Bonjour,
Par l'intermediaire d'un internaute j'ai adapté un code VBA pour un tableau :
Dans un module voici le code qui sert a lancer un scénario 😛ublic Sub scenario(li As Long)
Sheets("Calcul").Select
Range("H" & li).Select
Range("H" & li).GoalSeek Goal:=0, ChangingCell:=Range("C" & li)
Sheets("PDC").Select
Range("F" & li & ":G" & li).Select
End Sub
Ceci me lance un scénario.
Dans ma feuille ou les changement se font voici le code VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D20:AU44")) Is Nothing Then
Call scenario(Target.Row)
End If
End Sub
Ce qui signifie que dès qu'il y a un changement dans l'une de ces cellules, la macro se relance.
Pour beaucoup des cellules cela fonctionne, sauf pour une colonne.
Dans cette colonne, il y a une formule de type :
Si(a20="";"";temp_1)
Et la il y a beau avoir changement le scénario ne se relance pas.
Merci
Par l'intermediaire d'un internaute j'ai adapté un code VBA pour un tableau :
Dans un module voici le code qui sert a lancer un scénario 😛ublic Sub scenario(li As Long)
Sheets("Calcul").Select
Range("H" & li).Select
Range("H" & li).GoalSeek Goal:=0, ChangingCell:=Range("C" & li)
Sheets("PDC").Select
Range("F" & li & ":G" & li).Select
End Sub
Ceci me lance un scénario.
Dans ma feuille ou les changement se font voici le code VBA :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D20:AU44")) Is Nothing Then
Call scenario(Target.Row)
End If
End Sub
Ce qui signifie que dès qu'il y a un changement dans l'une de ces cellules, la macro se relance.
Pour beaucoup des cellules cela fonctionne, sauf pour une colonne.
Dans cette colonne, il y a une formule de type :
Si(a20="";"";temp_1)
Et la il y a beau avoir changement le scénario ne se relance pas.
Merci
