Creation messagebox [Résolu]

Messages postés
1101
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 octobre 2019
- - Dernière réponse : JCB40
Messages postés
1101
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 octobre 2019
- 18 juin 2019 à 17:32
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
Afficher la suite 

3 réponses

Messages postés
26487
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 octobre 2019
1825
0
Merci
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é.
Commenter la réponse de jordane45
Messages postés
1101
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 octobre 2019
133
0
Merci
Re
Merci pour ta réponse
Peux tu m'expliquer un peu plus je suis limite en vba
Crdlt
jordane45
Messages postés
26487
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
14 octobre 2019
1825 -
Commenter la réponse de JCB40
Messages postés
1101
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 octobre 2019
133
0
Merci
Bonjour

Solution simple trouvée
MFC+formule SI
Cordialement
Commenter la réponse de JCB40