Autres Modifier une macro pour l'appliquer à une boucle

Elisa47 · 17 Septembre 2020

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 :

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

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

sylvanu · 17 Septembre 2020

Bonjour Elisa,
Un premier essai en PJ avec :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
Application.ScreenUpdating = False
If Not Intersect(Target, Range("E17:E138,F17:F138,G17:G138,M17:M138,BD17:BD138")) Is Nothing Then
    L = Target.Row
    If Range("G" & L) = "Acier galvanisé rectangulaire" Or Range("G" & L) = "Fibre de verre" Then
        Application.EnableEvents = False
        If Range("BE" & L) < 0 Then Range("BE" & L) = 0
        Range("BI" & L).GoalSeek Goal:=0, ChangingCell:=Range("BE" & L)
        Range("BE" & L) = Application.WorksheetFunction.RoundUp(Range("BE" & L), 25)
        Application.EnableEvents = True
    End If
End If
Application.ScreenUpdating = True
End Sub

Si j'ai bien compris la demande. Ce qui est loin d'être sûr. 🙄

Elisa47 · 18 Septembre 2020

Bonjour sylvanu,
Merci pour ta réponse, mais j'ai un soucis avec l'arrondi au 25 supérieur qui ne fonctionne pas.
Il faudrait si possible l'équivalent en VBA de (pour la ligne 17) : ARRONDI.SUP(BE17/25;0)*25.
Encore merci pour ton aide.

sylvanu · 18 Septembre 2020

Bonjour Elisa,
😳 Petit bug.
J'ai utilisé ça :

VB:

Range("BE" & L) = 25 * Application.WorksheetFunction.RoundUp(Range("BE" & L) / 25, 0)

Corrigé en PJ.

Elisa47 · 18 Septembre 2020

Merci beaucoup pour ton aide.

Autres Modifier une macro pour l'appliquer à une boucle

Elisa47

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Elisa47

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Elisa47

XLDnaute Nouveau

Discussions similaires

Autres Modifier une macro pour l'appliquer à une boucle

Elisa47

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Elisa47

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Elisa47

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency