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 : Sélectionner tout - Visualiser dans une fenêtre à part
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