Creation messagebox

Résolu
JCB40 -  
Bonjour,
Au code qui suit je voudrais ajouter :
si la valeur de la cellule K4 est impaire un message box du genre "pas bon"
Là je coince
Merci pour votre aide
Cordialement

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B2:H26"), Target) Is Nothing And Target <> "" Then
Application.EnableEvents = False
Target = Application.Proper(Target)
Application.EnableEvents = True
End If
End Sub

Configuration: Windows / Firefox 67.0

3 réponses

  1.  jordane45 Modérateur
    Bonjour
    Avec un modulo 2 tu peux savoir si le nombre est pair ou impair.
    Tu utilises ça dans un if...et le tour est joué.
    0
    2. JCB40 Auteur
      Bonjour

      Solution simple trouvée
      MFC+formule SI
      Cordialement
      0