Creation messagebox

Résolu/Fermé
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 17 juin 2019 à 18:39
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 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
A voir également:

3 réponses

jordane45 Messages postés 38289 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 novembre 2024 4 703
17 juin 2019 à 18:50
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 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 461
17 juin 2019 à 19:15
Re
Merci pour ta réponse
Peux tu m'expliquer un peu plus je suis limite en vba
Crdlt
0
jordane45 Messages postés 38289 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 novembre 2024 4 703
17 juin 2019 à 19:42
0
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 461
18 juin 2019 à 17:32
Bonjour

Solution simple trouvée
MFC+formule SI
Cordialement
0