Chiffres ou lettres

[eliot raymond]

XL 2007 VBA bonsoir a tous et toutes, bonsoir forum

Voila comment svp on teste en VBA une VARIABLE qui contient soit du chiffre ou lettre

Exemple if Cel=chiffre then message

Exemple if Cel=lettre then message

un petit code ferai bien mon bonheur en cette fin de Dimanche

Alors merci et bonne soirée a vous

Raymond

[Mytå]

Salut le forum

A adapter

Code: Tout sélectionner

Sub essai()
With ActiveCell
If Asc(.Value) > 47 And Asc(.Value) < 58 Then MsgBox "Valeur = 0 à 9"
If Asc(.Value) > 96 And Asc(.Value) < 123 Then MsgBox "Valeur = a à z"
If Asc(.Value) > 64 And Asc(.Value) < 91 Then MsgBox "Valeur = A à Z"
End With
End Sub

Mytå

[eliot raymond]

Bonjour Myta bonjour a tous forum

Merci pour ta reponse mais ce n'ai pas ca

je souhaiterai simplement tester en VBA si une variable par exemple Cel

la variable Cel contient un chiffre 587 par ex
OU
la variable Cel contient un mot dudule par ex

voila c'est tout pour aujourd'hui

merci bien et bonne semaine
raymond

[Nad-Dan]

Bonjour,

Si la cellule n'est pas un chiffre tu veux qque cela te dise quoi en retour ?

Amicalement

Dan

[Mytå]

Salut le forum

Code: Tout sélectionner

Sub Test_Cellule()
With ActiveCell
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) Then MsgBox "numérique" Else: MsgBox "alpha"
End With
End Sub

Mytå