Discussion :

[Redoouane1979]

Bonjour
Je cherche à réaliser les commande ci-dessous par une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Range("G10").GoalSeek Goal:=0, ChangingCell:=Range("H10")
    Range("G11").GoalSeek Goal:=0, ChangingCell:=Range("H11")
    Range("G12").GoalSeek Goal:=0, ChangingCell:=Range("H12")
    ....................................................................................
    ....................................................................................
    ....................................................................................
    Range("G127").GoalSeek Goal:=0, ChangingCell:=Range("H127")

Cordialement

[Mimisator]

Bonjour,

Il me semble que tu peux essayer comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i as Integer
For i = 1 to 127
Range("G"& i).GoalSeek Goal:=0, ChangingCell:=Range("H"&i)
Next i

Bonne journée

[Redoouane1979]

merci Beaucoup
Sa marche