Lancer macro et liste de données

Bonjour

J'ai une liste de données avec 3 valeurs A, B et C

Si je passe de n'importe quelle valeur à la valeur A, ça lance "macroA"

Si je passe de n'importe quelle valeur à la valeur B, ça lance "macroB"

Si je passe de n'importe quelle valeur à la valeur C, ça lance "macroC"

Mais je souhaite que lorsque je passe de la valeur C à la valeur A, aucune macro ne se lance. Comment puis-je faire??

Voici mon bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If Target.Column = 1 Then

Select Case UCase(Target)

Case "A"

MacroA

Case "B"

MacroB

Case "C"

MacroC

End Select

End If

End Sub

Bonjour,

l'utilisation d'une variable static peut être en faisant comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
'La ligne mise en commentaire ne sert à rien car déjà réalisé par la ligne suivante
'If Target.Column <> 1 Then Exit Sub
Static Témoin As Boolean
If Target.Count = 1 And Target.Column = 1 Then
    Select Case UCase(Target)
    Case "A"
      If Not Témoin Then MacroA
    Case "B"
      Témoin = False
      MacroB
    Case "C"
      Témoin = True
      MacroC
    End Select
End If
End Sub

arfff

ai pas pensé au boolean

merci bcp!!!

j'ai encore des progrès à faire. j'ai découvert le VB il y a 15 jours

Rechercher des sujets similaires à "lancer macro liste donnees"