Bonjour,
je suis débutant dans les macros et voirci ce que je voudrais faire.
Disons qu'à la case C1 j'ai la valeur 2000
En A2 150, B2 200 et C2 c'est le résultat de C1-(A2+B2). Bref c'est un genre de calcul d'hypothèque.
Par la suite, en A3 et suivant c'est toujours 150 et idem pour B3. À un certain moment, le résultat de Cx va arriver à 0.

Je voudrais donc une macro qui va copier les lignes jusqu'à temps que le résultat en Cx soit à 0.
J'ai gossé quelque chose de ce genre voir plus bas. Avec ce code je pogne un erreur de référence #REF! dans la case où j'ai le calcul soir en Cx. S'il n'y a pas de formule en Cx, ca fonctionne bien. Lorsqu'il copie la ligne suivante, dans la formule le C1 ne semble pas augmenter à C2 et suivant. Pourtant, le reste de la formule c-a-d A2+B2 eux s'incrémente à A3+B3 etc...

Merci de votre aide.


Sub Macrocopie()
For AdrCel = 2 To 10000
If Cells(AdrCel, 3).Value > 0 Then
MsgBox "salut" & Cells(AdrCel, 3).Value
Cells(AdrCel, 1).EntireRow.Copy
Cells(AdrCel, 1).Insert Shift:=xlDown
Cells(AdrCel + 1, 1).Activate
Selection.Copy
End If
Next AdrCel

Application.ScreenUpdating = True
End Sub

Petite suggestion:

Sub Yallow()
ro = 2
co = 3
Cells(ro, co).Formula = "=c1 - (a2 + b2)"
Do
Cells(ro, co).EntireRow.Copy Destination:=Cells(ro + 1, co).EntireRow
ro = ro + 1
Loop Until Cells(ro, co) <= 0
Cells(ro, co).EntireRow.Delete 'efface la dernière ligne si Cx<= 0
MsgBox "salut" & (Chr(10)) & "C'est fini"
End Sub

_________________
qazzar

Y a rien de TEL qu'un bon p'tit programme EXCEL

Work fine !!


Thx, t'es fort !!!

IL me reste juste à le modifier un peu mais l'essentiel est là !