Créer une mgbox dans une macro ou une procédure

randall Messages postés 439 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour,

Comment faire une macro pour indiquer que la valeur entrée dans une cellule (exemple feuille 1 cellule A1)doit être un nombre pair par une mgbox

si le nombre est impair déclencher une mgbox pour indiquer qu'il faut rentrer un nombre pair

Merci pour la réponse

ndows / Chrome 107.0.0.0

A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 

bonjour,

faire Alt F11 sur la feuille concernée pour accéder à l'éditeur et mettre ce code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value Mod 2 <> 0 Then
MsgBox "Entrez un chiffre pair!", vbCritical, "Saisie"
Target.Value = ""
End If
End Sub

0