VBA - Message d'erreur

[Résolu/Fermé]
Signaler
Messages postés
57
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
6 septembre 2010
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
Bonjour tout le monde,

Est-ce que quelqu'un saurait programmer un message d'erreur sur VBA (pour Excel2003) qui s'affiche si la valeur rentrée dans une cellule n'est pas un nombre? L'utilisateur clique alors sur OK, et est renvoyé sur la cellule (qui se serait effacé).

Merci d'avance pour vos réponses !

2 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 179
Bonjour,

Dans l'éditeur de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsNumeric(Target.Value) Then
        MsgBox "La valeur n'est pas numérique", vbExclamation, "Erreur saisie"
        Target.Value = ""
        Target.Select
    End If
End Sub


;o)
Messages postés
57
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
6 septembre 2010
7
Parfait, merci beaucoup!
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 179
De rien

Merci de mettre le topic en résolu

Bonne continuation

;o)