IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

problème sur comparaison de caractère


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    mai 2007
    Messages
    192
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2007
    Messages : 192
    Points : 392
    Points
    392
    Par défaut problème sur comparaison de caractère
    Bonjour,
    j'ai une macro XL dans laquelle j'aimerais faire une fonction qui traite une chaîne en entrée et qui renvoie
    - soit la même chaîne
    - soit la même chaîne moins le dernier caractère. (s'il ne fait pas partie de '0' à '9' ou de 'a' à 'f'... oui ça ressemble à de l'Hexa)

    le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Function clrEndOfStr(ByVal strToClr) As String
    
    Dim lastChar As String
        lastChar = Right(strToClr, 1)      
        If (lastChar Like [!0-9]) And (lastChar Like [!a-f]) Then
            strToClr = Left(strToClr, Len(strToClr) - 1)
        End If
        clrEndOfStr = strToClr
    End Function
    bien-sûr la partie en rouge, lorsqu'elle est évaluée crée une erreur "type mismatch".
    Avez-vous une idée de pourquoi ?
    Qu'est ce que je fais mal ?

    merci

  2. #2
    Membre chevronné

    Profil pro
    Inscrit en
    avril 2006
    Messages
    1 399
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2006
    Messages : 1 399
    Points : 2 220
    Points
    2 220
    Par défaut
    bonjour,

    il faut encadrer les patterns par des guillemets :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    If (lastChar Like "[!0-9]") And (lastChar Like "[!a-f]") Then
    cordialement,

    Philippe

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    mai 2007
    Messages
    192
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2007
    Messages : 192
    Points : 392
    Points
    392
    Par défaut merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème sur comparaison nombre
    Par benoitL39 dans le forum ASP
    Réponses: 4
    Dernier message: 03/04/2009, 08h56
  2. Problème sur comparaison de date
    Par Nixar dans le forum Langage SQL
    Réponses: 4
    Dernier message: 07/12/2007, 10h19
  3. Réponses: 11
    Dernier message: 22/03/2006, 22h57
  4. Problème sur des chaînes de caractères
    Par Anonymous dans le forum Access
    Réponses: 9
    Dernier message: 16/09/2005, 09h21
  5. Problème d'impression de caractère (gras) sur matricielle
    Par Tiefolo Salia dans le forum Langage
    Réponses: 1
    Dernier message: 02/09/2005, 00h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo