VBA - Message d'erreur

Résolu/Fermé
RussellD Messages postés 57 Date d'inscription jeudi 18 mars 2010 Statut Membre Dernière intervention 6 septembre 2010 - 31 mars 2010 à 16:35
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 1 avril 2010 à 10:53
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 !
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
31 mars 2010 à 17:07
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)
0
Réponse 2 / 2
RussellD Messages postés 57 Date d'inscription jeudi 18 mars 2010 Statut Membre Dernière intervention 6 septembre 2010 7
1 avril 2010 à 10:07
Parfait, merci beaucoup!
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
1 avril 2010 à 10:53
De rien

Merci de mettre le topic en résolu

Bonne continuation

;o)
0

Discussions similaires

message "impossible d'envoyer le message via free erreur 0"
TATA -
Pierr10 -

3 réponses
Facebook « Cette personne ne peut actuellement pas recevoir de message »
Cynamon -
Titia -

5 réponses
Erreur 3005 sur France TV
Cambodgil -
Cambodgil -

4 réponses