Sujet Précédent Sujet Suivant

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 !

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

qu'est-ce que diff message ?
zebulonmarie -
mumu -

18 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Comment reconnaitre si un SMS m'indiquant un message vocal est une arnaque ?
kikidefer -
brucine -

9 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses