Je l'ai vue mais je ne la trouve plus...

[deudecos]

Bonjour a toutes et a tous,

Je profite d'une de mes rare visite sur le site pour vous poser une petite question concernant le comportement d'une cellule donnee en fonction de ce qu'elle contient.
En gros je voudrais renvoyer un message d'erreur si ce qui est inscrit dans ma cellule n'est pas un nombre, mais je suis bien incapable de remettre la main sur cette formule...
Quelqu'un peut il m'aider ?

Merci d'avance

Olivier

 

[Staple1600]

Re : Je l'ai vue mais je ne la trouve plus...

Bonjour le forum

A tester

SI(ESTERREUR(ESTNUM(A1);"erreur";""))

 

[deudecos]

Re : Je l'ai vue mais je ne la trouve plus...

Salut Staple1600, re le forum,

Merci pour ta reponse, mais...

En fait j'ai un peu oublie de preciser que je prefererais que ce soit sous vba avec un mechant MsgBox bien visible histoire que ca ne passe pas inapercu...
En fait je crois que le debut de la formule serait du genre...

If range("A1") Is Not ??? then
MsgBox"Patati patata", VbCritical
End If

 

[Gruick]

Re : Je l'ai vue mais je ne la trouve plus...

Salut,

Essaies ceci :

if not isnumeric(range("A1")) then msgbox "patate, c'est pas un nombre !"

pas besoin de end if quand la réponse suit le then

A plus,
Gruick

 

[Staple1600]

Re : Je l'ai vue mais je ne la trouve plus...

Re

Une variante

Sub test()
If Not [A1] Like "[0-9]" Then MsgBox "Erreur, veuillez saisir une valeur numérique"
End Sub

 

[CB60]

Re : Je l'ai vue mais je ne la trouve plus...

Bonjour
Avec le soupçon de rigolade de Gruick, je ferais ma macro de cette façon:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric([a1]) Then
MsgBox "Patate, c'est pas un nombre !"
[a1].Value = ""
[a1].Select
End If
End Sub

 

[deudecos]

Re : Je l'ai vue mais je ne la trouve plus...

Merci a tous !

C'est en effet ce que je cherchais,y compris "Patate c'est pas un nombre !"
parce que c'est justement pour mon petit frere que je creer ce fichier... ;-)

Bonne journee

Olivier