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 à la ligne 138 et que le résultat obtenu soit un multiple de 25 arrondi au supérieur.
Voici mon code :
De plus, est-il possible que cette macro fonctionne uniquement si la valeur de la cellule G17 et des lignes suivantes soit égale à "Acier galvanisé rectangulaire" ou "Fibre de verre". Le contenu de cette cellule peut varier d'une ligne à l'autre.
Merci pour votre aide
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 à la ligne 138 et que le résultat obtenu soit un multiple de 25 arrondi au supérieur.
Voici mon code :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If [BE17] < 0 Then [BE17] = 0
If Not Intersect(Target, [E17,F17,G17,M17,BD17]) Is Nothing Then [BI17].GoalSeek Goal:=0, ChangingCell:=[BE17]
Application.ScreenUpdating = True
End Sub
Merci pour votre aide