Boucle sur VBA

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

Code:

---

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

Bonjour,

Il me semble que tu peux essayer comme cela :

Code:

---

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

merci Beaucoup
Sa marche