Macro recherche de chaine de caracteres

[LocSta]

Bonjours, je souhaiterai trouver une macro ou une formule qui me permette de faire la liste de toute les lignes contenant une meme chaine de caractére
ex:
L1: clavierazerty
L2: ref azerty
L3: voiture
L4: camion
L5: az-01-erty

j'aimerai que la macro me permette d'afficher dans une autre feuille uniquement les lignes 1, 2 voir 3 (si possible)
Si j'ai rentré dans la cellule "chaine de caractéres à rechercher": azerty

Merci de vos réponses.

 

[LocSta]

Re : Macro recherche de chaine de caracteres

Toujours pas de réponses 🙁

 

[PascalXLD]

Re : Macro recherche de chaine de caracteres

Toujours pas de réponses 🙁

en effet .... tu es très perspicace 😀

 

[Staple1600]

Re : Macro recherche de chaine de caracteres

Bonjour


As-tu cherche avec le moteur de recherche du forum?


Sur un moteur de recherche?


vba excel strings manipulation -access -powerpoint -autocad

vba excel characters

vba excel trouver caractères



etc....

 

[Staple1600]

Re : Macro recherche de chaine de caracteres

La ligne 3 dans ton exemple contient voiture

ce qui ne ressemble pas à azerty non?

Tu peux essayer le filtre automatique personnalisé couplé à l'enregistreur de macro


C'est ce que j'ai fait et ca marche

 

[LocSta]

Re : Macro recherche de chaine de caracteres

Je comprend pas comment ça marche l'enregistreur de macro

 

[Staple1600]

Re : Macro recherche de chaine de caracteres

Outils/Macros/Nouvelle Macro

et la tu réalises les manipulations sur ton fichier

a savoir

Filtre automatique /Personnalisé

contient "azerty"

ensuite tu arretes l'enregistreur
et tu regardes le code génére (ALT+F11)

 

[LocSta]

Re : Macro recherche de chaine de caracteres

Ok jV essayé thx

 

[LocSta]

Re : Macro recherche de chaine de caracteres

Je viens de faire ce que tu m'as, il me marque 33 enregistrement trouvés et quand je fais Alt+F11 il me créer une nouvelle feuille appelé macro01 et puis... Rien

 

[criscris11]

Re : Macro recherche de chaine de caracteres

Bonjour,
Voici ce que cà donne : Selection.AutoFilter Field:=3, Criteria1:="=*azerty*", Operator:=xlAnd
en admettant que la colonne filtrée est la colonne C (Field:=3)
A toi d'adapter maitenant et pour en revenir à la réponse de Staple (que je salue au passage), quand on connaît pas le VBA l'enregistreur est un bon moyen de découvrir les possibilités de ce language de programmation.
Bonne journée.

 

[Staple1600]

Re : Macro recherche de chaine de caracteres

Re

Tu dois voir quelquechose qui ressemble
à une télécommande de magnétoscope (une barre d'outils)

Tu appuies sur le carré pour arréter l'enregistreur

et ensuite tu fais ALT+F11

pour voir le code VBA

Salutations à criscris11

 

[JYLL]

Re : Macro recherche de chaine de caracteres

Bonjour LocSta et le fil,

Voici un petit classeur avec une macro pour faire ce que tu cherches:

Sub Recherche_lettres()
 pointeur = 1
 chaine = InputBox("Chaine à chercher", "Recherche")
 For i = 1 To Range("A65536").End(xlUp).Row
  For J = 1 To Len(chaine)
   If InStr(Cells(i, 1), Mid(chaine, J, 1)) = 0 Then GoTo Ligne_Suivante
  Next J
  Cells(pointeur, 2) = Cells(i, 1)
  pointeur = pointeur + 1
Ligne_Suivante: Next i
End Sub

J'espère répondre à ta question.

Bon test.

 

[LocSta]

Re : Macro recherche de chaine de caracteres

J'ai essayé ça ne marche pas comme je le souhaiterai
je m'explique: je tape 075 et il me trouve parmi les réponses des fichiers du type: (qui ne contienne pas la chaine 075)
15vicabh07vkvjc100cavk

??

 

[Staple1600]

Re : Macro recherche de chaine de caracteres

re

tu trouves des fichiers????

 

[JYLL]

Re : Macro recherche de chaine de caracteres

Re bonjour,

Voici un nouveau code, le précédent pépondait au désir de la ligne "L5"

Sub Recherche_lettres()
 pointeur = 1
 chaine = InputBox("Chaine à chercher", "Recherche")
 For I= 1 To Range("A65536").End(xlUp).Row
    If InStr(Cells(I, 1), chaine)<>0 Then 
     Cells(pointeur, 2) = Cells(i, 1)
     pointeur = pointeur + 1
   End If
 Next I
End Sub

Bon test.