VBA - Message d'erreur

Résolu
RussellD -  
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

  1.  Polux31
    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)
    1. RussellD Auteur
      Parfait, merci beaucoup!
      1. Polux31
        De rien

        Merci de mettre le topic en résolu

        Bonne continuation

        ;o)

    Discussions similaires

    SMS message vocal arnaque ?
    kikidefer

    10 réponses
    Non envoyé. Appuyez pour réessayer. Problème d'envoi SMS pour un seul contact.
    emembi

    5 réponses
    Signification de ^^
    takataka26

    13 réponses
    Message "SMS Non envoyé"
    El-Gallego

    1 réponse
    Erreur s3 bbox wifi 7 bouygues
    Fido62

    14 réponses