Creation messagebox [Résolu/Fermé]

Signaler
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
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

Messages postés
29567
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 septembre 2020
2 785
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é.
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
Re
Merci pour ta réponse
Peux tu m'expliquer un peu plus je suis limite en vba
Crdlt
Messages postés
29567
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 septembre 2020
2 785
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
Bonjour

Solution simple trouvée
MFC+formule SI
Cordialement