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 :

VBA - Fonction Like


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Inscrit en
    Juillet 2009
    Messages
    17
    Détails du profil
    Informations forums :
    Inscription : Juillet 2009
    Messages : 17
    Par défaut VBA - Fonction Like
    Bonjour,

    Question toute bête je pense mais qui me bloque et pour laquelle je ne trouve pas de solutions ...

    J'aimerais vérifier la présence d'une valeur (dans une variable) dans une variable, je procède donc de la façon suivante :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Test = Variable Like "*" & Valeur & "*"
    Et le code ne se lance pas car il me dit qu'il y a une erreur type mismatch au niveau du like

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 137
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 137
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Pour tester l'existence d'une chaîne de caractères dans une autre utilise la fonction Instr ou InstrRev
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     Dim maValeur As String
     maValeur = "Toto le héros"
     MsgBox InStr(maValeur, "héros")
    Ces fonctions renvoient la position du premier caractère de la chaîne cherchée. O si pas trouvé

    Avec Like
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     Dim maValeur As String
     maValeur = "Toto le héros"
     MsgBox IIf(maValeur Like "*" & "héro" & "*", "Trouvé", "Pas trouvé")
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre Expert Avatar de Thautheme
    Homme Profil pro
    salarié
    Inscrit en
    Août 2014
    Messages
    1 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : salarié

    Informations forums :
    Inscription : Août 2014
    Messages : 1 373
    Par défaut
    Bonjour Jujuseless, bonjour le forum,

    J'ai écrit Jujuseless en A1, use en A2 et lancé le code ci-dessous :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub Macro1()
    Dim test As Boolean
    Dim variable As String
    Dim valeur As String
     
    variable = Range("A1").Value
    valeur = Range("A2").Value
    If variable Like "*" & valeur & "*" Then test = True
    MsgBox test
    End Sub
    Modifie variable ou valeur et tu verras que ça marche....

  4. #4
    Membre averti
    Inscrit en
    Juillet 2009
    Messages
    17
    Détails du profil
    Informations forums :
    Inscription : Juillet 2009
    Messages : 17
    Par défaut
    Merci à tous les deux.

    Ca fonctionne bien avec vos deux méthodes.

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

Discussions similaires

  1. [VBA]Fonction 'ajout' en vba sur une table
    Par rico63 dans le forum VBA Access
    Réponses: 15
    Dernier message: 28/03/2007, 16h56
  2. [VBA] Fonction non définie dans l'expression
    Par DREADY dans le forum VBA Access
    Réponses: 17
    Dernier message: 08/03/2007, 16h49
  3. [Excel VBA]fonction dans une cellule qui modifie une autre cellule
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 24/01/2007, 17h43
  4. VBA - opérateur LIKE
    Par Gunther dans le forum Access
    Réponses: 6
    Dernier message: 09/12/2006, 23h22
  5. fonction LIKE Mysql
    Par franfr57 dans le forum SQL Procédural
    Réponses: 3
    Dernier message: 30/05/2006, 19h22

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