verifier le contenu d'une cellule

[ludovic]

Bonjour,
Je cherche a faire un test sur ma cellule A1.
Si ce n'est pas un nombre, alors je voudrai afficher un MsgBox "Vous devez entrer un nombre"

je suis dans ma procédure Private Sub Worksheet_Change(ByVal Target As Range)

Mais je ne sais pas comment lui ondiquer:
If Range("F2").Type != Number Then
MsgBox "Vous devez entrer un nombre"
End If

il refuse.
est ce que qq1 connait la syntaxe ?
Merci
Ludo

 

[CHti160]

Salut"ludovic"
je pense que
if not IsNumeric("A1") then
MsgBox "Vous devez entrer un nombre"
End If
devrait convenir
A+++
jean marie

 

[Jean-Marie]

Bonsoir

Autre possibilité sans passer par VBA.

Sélectionne la cellule F2, puis clique sur le menu Données/Validation..., dans la boîte de dialogue, remplace dans la liste de choix "Tout" par "Personnalisé", dans le champ saisissable, tu tapes ceci =ESTNUM(F2). Dans l'onglet, tu peux spécifier le message que tu retourneras quand la valeur saisie ne sera pas un nombre, valide la boîte de dialogue. Voilà c'est tout.

@+Jean-Marie

 

[ludovic]

OK je l'ai fait avec la seconde méthode finalement.
Merci bcp
a+
Ludo