XL 2016 Msgbox

[pascalpetanque]

Bonsoir et Bonne Année

Lorsque le chiffre en a2 est impair le message s'affiche c'est normal, mais quand je clic sur une autre cellule le message réapparait comment éviter cela ?
Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A2") Mod 2 <> 0 Then
MsgBox " blablabla", vbOKOnly

End If
End Sub

 

[JM27]

bonsoir

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect([A2], Target) Is Nothing And Target.Count = 1 Then
        If Target Mod 2 <> 0 Then
            MsgBox " ok"
        End If
    End If
End Sub

ou
évènement différent en fonction de ce que tu souhaites faire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([A2], Target) Is Nothing And Target.Count = 1 Then
        If Target Mod 2 <> 0 Then
            MsgBox " ok"
        End If
    End If
End Sub

 

[pascalpetanque]

Petit souci, il faut que je reclic sur a2 pour voir le msgbox

 

[pascalpetanque]

Ca marche, merci beaucoup

 

[Staple1600]

Bonsoir le fil

Une variante
(ca pourrait servir, donc je publie)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
MsgBox IIf([A2] Mod 2, "Impair", "Pair"), IIf([A2] Mod 2, 48, 16), "Parité"
End If
End Sub