Discussion :

[Sergio33600]

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

[EricDgn]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.