Macro Evenementielle

[Chartchai]

Bonjour,

Après avoir cherché dans le forum, j'ai trouvé la manière théorique de mettre en place une macro évènementielle. Problème : je n'arrive pas à la faire fonctionner 🙁

Ci dessous un petit code qui devrait faire apparaître une box nok si on ecrit non dans la cellule c3 et ok si on ecrit oui.

Pourriez-vous m'éclairer sur ce mystère ?

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$3" Then
             If Target.Value = "OUI" Then Call ok
             If Target.Value = "NON" Then Call nok
     End If
End Sub

Sub nok()

MsgBox ("nok")

End Sub

Sub ok()

MsgBox ("ok")

End Sub

 

[phlaurent55]

Re : Macro Evenementielle

Salut Chartchai,

ça coince peut-être parce que tu as deux fois de suite la ligne suivante

Private Sub Worksheet_Change(ByVal Cellule As Range)

 

[Spitnolan08]

Re : Macro Evenementielle

Re,

S'il s'agit d'une erreur de recopie, une autre idée :

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$3" Then
             If Ucase(Target.Value) = "OUI" Then Call ok
             If Ucase(Target.Value) = "NON" Then Call nok
     End If
End Sub

Cordialement

 

[Chartchai]

Re : Macro Evenementielle

Il s'agissait effectivement d'une faute de copie.
Merci Spitnolan08, mais ca marche pas 🙁
J'ai du mal à voir d'où ça vient 🙁🙁🙁

 

[Chartchai]

Re : Macro Evenementielle

En fait, le code fonctionne, mais ...

Cela vient du fait que ma feuille est alimentée par l'extérieur et la cellule se met automatiquement à oui ou non. Dans ce cas là, ça ne fonctionne pas. Si je modifie la case à la main, alors la macro se déclenche.

Auriez-vous une idée pour que ça fonctionne y compris en cas d'une alimentation automatique ?

merci d'avance pour vos idées 🙂

 

[MichelXld]

Re : Macro Evenementielle

bonsoir

Cela vient du fait que ma feuille est alimentée par l'extérieur

peux tu préciser comment tu procèdes pour alimenter la feuille ?


bonne soirée
michel

 

[J-F]

Re : Macro Evenementielle

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$C$3" Then
        
        If Target.Value = "OUI" Then
        Call ok
        
        ElseIf Target.Value = "NON" Then
        Call nok
        End If
        
     End If
     
End Sub

Attention, ce code est sensible à la casse. Tu dois écrire "OUI" ou "NON" dans la case C3.