Creation messagebox

Résolu
JCB40 Messages postés 3012 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 3012 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
JCB40 Messages postés 3012 Date d'inscription   Statut Membre Dernière intervention   463
 
Re
Merci pour ta réponse
Peux tu m'expliquer un peu plus je suis limite en vba
Crdlt
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
0
JCB40 Messages postés 3012 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour

Solution simple trouvée
MFC+formule SI
Cordialement
0