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:

VBA - Message d'erreur
Message - Guide
Erreur 0x80070643 - Accueil - Windows
Recuperer message whatsapp supprimé - Guide
Message d'absence thunderbird - Guide
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows

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)

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!

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)

Discussions similaires

qu'est-ce que diff message ?

^^ : Quelle signification dans un message SMS ?

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Ça veut dire quoi le signe ^^ en langage SMS/texto ?