Fonction Like avec case texte

Résolu

jungledidi Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 2 déc. 2015 à 16:36

Bonjour,

Je cherche à utiliser la fonction Like sur du texte..
Je veux identifier dans une matrice les cases qui contiennent la chaine de caractère présente dans une case donnée dans excel.

En gros (et sans succés, va sans dire..) dans ma feuille Excel dans la case A1 j'ai "bonbon"

Dans ma macro, je veux faire scanner la matrice non pas en mettant "bonbon" mais en renvoyant à la chaine de caractère dans A1 , sachant que les cases de la matrice scannée contiennent, entre autres cette chaine de caractère.

Ce qui marche:
If Cells(i, X).Text Like "*bonbon*" Then
etc..

Ce qui ne marche pas (je comprends pourquoi mais je sais pas comment l'écrire pour que ça marche):
If Cells(i, X).Text Like "cells(1,1).Text" Then
etc..

merci de votre aide.

Afficher la suite

A voir également:

Vba like
Voir like instagram - Guide
Coco like - Accueil - Réseaux sociaux
Excel compter cellule couleur sans vba - Guide
Wawacity like - Accueil - Outils
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour

un exemple à adapter à ton contexte

Pattern = "*" & Range("B2") & "*"
If Range("D4") Like Pattern Then MsgBox ("gagné")

pattern ou autre nom au choix !

Attention sensible à la casse !
a essayer "au cas où"
Pattern = Ucase("*" & Range("B2") & "*")

Michel

jungledidi Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Bonjour Michel,

Merci pour ta réponse, ça marche parfaitement !
Je mets mon code qui est dans une boucle For au cas où pour les prochains.

Dim Pattern As String
COLONNE = COLONNE + 1
For i = 3 To DerLign
    Pattern = "*" & Range("U1") & "*"
    If Range("C" & i) Like Pattern Then
    Cells(i, COLONNE).Value = Cells(i, 4).Value
  End If
Next i

Bonne journée

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314 > jungledidi Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Re

tu as beaucoup plus rapide

Nbre=application counif(range("C5:C" & derlig,pattern)

If Nbre >0 then

    Lig=5
For cptr=1 to Nbre
    lig=Column("C").find(pattern,cells(lig,"C")).row
   cells(cptr,colonne)=cells(lig,"D")
next

else

Mgbox' pattern &  "inconnu"
endif

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Retrouver like supprimé Facebook Rencontres

Erreur d'exécution 13 Incompatibilité de type

Comment voir mes "mentions j'aime"et pas les suggestions

comment supprimer des j'aimes sur mes photos

Votre réponse

Discussions similaires