VBA test alphanumérique

http://toptech.geekaddict.net/ -  
Patrice33740 Messages postés 8400 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/

1 réponse

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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

Discussions similaires

Caractères Alphanumériques
AK68 -
Mo -

2 réponses