VBA - Message d'erreur

Résolu

RussellD Messages postés 60 Statut Membre -
Polux31 Messages postés 7219 Statut Membre - 1 avr. 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 !

Afficher la suite

2 réponses

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)

Réponse 2 / 2
RussellD Messages postés 60 Statut Membre 7

Parfait, merci beaucoup!
0
1. Polux31 Messages postés 7219 Statut Membre 1 204
  
  De rien
  
  Merci de mettre le topic en résolu
  
  Bonne continuation
  
  ;o)
  
  0

VBA - Message d'erreur

2 réponses

Discussions similaires

Newsletters