Modifier une macro pour l'appliquer à une boucle variable

Bonjour le forum,

J'ai une macro qui me permet de calculer une valeur cible.
Aujourd'hui cette macro fonctionne uniquement pour la ligne 17.
Je souhaiterai modifier cette macro avec une boucle pour l'appliquer de la ligne 17 à une ligne variable. C'est à dire que si la cellule de la colonne E (E17+i) est >0 on calcule la valeur cible.
Voici mon code :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If [N17] < 0 Then [N17] = 0 If Not Intersect(Target, [E17, G17, M17, AQ17]) Is Nothing Then [BE17].GoalSeek Goal:=0, ChangingCell:=[N17] Application.ScreenUpdating = True End Sub

---

Merci d'avance pour votre aide

Bonjour,

Je n'ai pas exactement saisi votre demande, aussi 2 variantes dont vous comprendrez aisément la différence.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Worksheet_Change(ByVal Target As Range) Dim kR As Long, r As Range Application.ScreenUpdating = False kR = Target.Row If Range("N" & kR) < 0 Then Range("N" & kR) = 0 Set r = Range("E" & kR & ",G" & kR & ",M" & kR & ",AQ" & kR) If Not Intersect(Target, r) Is Nothing Then Range("BE" & kR).GoalSeek Goal:=0, ChangingCell:=Range("N" & kR) End If Set r = Nothing Application.ScreenUpdating = True End Sub   Private Sub Worksheet_Change(ByVal Target As Range) Dim kR As Long, i As Long Application.ScreenUpdating = False kR = Target.Row i = 2 '--- à adapter If [N17] < 0 Then [N17] = 0 If Not Intersect(Target, [E17, G17, M17, AQ17]) Is Nothing Then For kR = 17 To 16 + i Range("BE" & kR).GoalSeek Goal:=0, ChangingCell:=Range("N" & kR) Next kR End If Set r = Nothing Application.ScreenUpdating = True End Sub

---

Cordialement.