Sujet Précédent Sujet Suivant

VBA - Message d'erreur

Résolu
RussellD Messages postés 60 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
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

Réponse 1 / 2
Polux31 Messages postés 7219 Statut Membre 1 204
 
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 60 Statut Membre 7
 
Parfait, merci beaucoup!
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
De rien

Merci de mettre le topic en résolu

Bonne continuation

;o)
0

Discussions similaires

SMS message vocal arnaque ?
kikidefer -
Stepik -

10 réponses
Signification de ^^
takataka26 -
Adraen -

13 réponses
Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

6 réponses
Diff message
zebulonmarie -
mumu -

18 réponses
Ca veut dire quoi ^^
Misty-in -
Mixou -

9 réponses