VBA test alphanumérique

http://toptech.geekaddict.net/ -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

comment fairre une procedure pour savoir que le contenu d'une cellule est numéque ou alphanumérique







http://toptech.geekaddict.net/
A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonsoir,

Voici un test de contenu de cellule 
Sub test()
Dim cel As Range
    Set cel = ActiveCell  'ou n'importe quelle autre cellule à contrôler
    Select Case VarType(cel.Value)
        Case 0
            MsgBox "Cellule vide"
        Case 2 To 7
            MsgBox "Valeur numérique"
        Case 8
            MsgBox "Valeur alphanumérique"
        Case 10
            MsgBox "Valeur d'erreur"
        Case 11
            MsgBox "Valeur booléenne"
        Case Else
            MsgBox "Autre Valeur"
    End Select
End Sub

Patrice
0