Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher un mot dans une liste qui apparaît plusieurs fois

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

ToFMalik

XLDnaute Nouveau
Bonjour,

Voici mon problème:

Dans le ficher ci-joint je veux rechercher le mot "rouge", le copier et le coller en B1. Or vu qu'il apparaît deux fois j'aimerais qu'il soit copié-collé deux fois. Donc ça donnerait A3 en B1 et A5 en B2.

Voici ma première tentative:

Sub Search()

Dim ColumnA As Range

If Cells.Find(What:="Rouge").Activate Then
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
End If

End Sub

Je demandais pour l'instant de copier-coller le mot recherché dans la cellule de droite, en attendant de pouvoir faire mieux.

La macro trouve le premier terme mais s'arrête là. Comment faire pour copier-coller en B1-B2 tous les "Rouge"?

Vous pouvez constater par vous-même que je patauge pas mal mais je ne demande qu'à apprendre...

Merci d'avance,

Christophe
 

Pièces jointes

Trier par date Trier par votes
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Merci à vous trois: Chalet, pierrejean, Abel. Vos trois solutions ont l'air de très bien marcher. J'essaierai de les adapter à mon fichier de travail lundi. Ça à l'air de parfaitement répondre à mes attentes.

Encore merci pour vos réponses précises et rapides.

TofMalik
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Bonjour,

Voici le problème que je rencontre aujoud'hui: lorsque je veux essayer ma macro sur mon fichier de travail, ça ne marche pas.
Evidemment je ne peux pas vous mettre le fichier mais je peux vous dire quel est le problème: imaginons que dans la liste il y ait un "Rouge Vert" et un "Vert Rouge". Dans ces cas là la macro ne trouve pas le mot Rouge et ne trouve que les précédents. Voici comment se présenterait une cellule dans laquelle je dois trouver le mot (ce que j'aurais dû faire depuis le début...): "Rouge vert : bleu orange".

Dans le meilleur des cas j'aimerais que la macro trouve dans la liste le mot rouge, copie juste bleu orange (sachant que l'espace entre les 2 points et "bleu" sera toujours le même) et le colle en B1. Puis la 2ème fois en B2, etc.

Sinon j'aimerais juste que la macro trouve le mot "Rouge" même s'il est accompagné d'autres mots, copie la cellule entière et la colle en B1, puis B2, etc.

Désolé si mon explication n'est pas très claire, n'hésitez pas à me demander plus de clarifications si nécessaire.

Merci d'avance,

TofMalik
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

bonjour tous🙂🙂🙂
une facon de l'ecrire


Code: 
Option Compare Text' pas de difference majuscule & minuscules
Sub es()
Dim t(), t1(), x As Long, i As Long
 t = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
 ReDim t1(1 To UBound(t), 1 To 1)
 For i = 1 To UBound(t)
 If t(i, 1) Like "*" & "rouge" & "*" Then
 x = x + 1
 t1(x, 1) = t(i, 1)
 End If
 Next i
 [b1].Resize(x, 1) = t1
End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Bonjour Laetitia,

J'ai malheureusement l'habitude avec les macros que ça ne marche jamais la première fois. 🙁

"Application-defined or object-defined error"
Dans Virtual Basic voici ce qui est surligné : [b1].Resize(x, 1) = t1

Merci de ton aide
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Toujours pareil,

J'ai peur que ça soit compliqué sauf si je donne un équivalent de mon fichier (ci-joint).

Il s'agit d'extraits Kbis, j'en ai reçu plus de 6000. Il faudrait que j'extraie plusieurs données. La première étant la dénomination sociale. Si, je l'espère, la prochaine macro fonctionne, j'aimerais pouvoir l'adapter car j'ai besoin d'extraire d'autres données (tel le numéro d'identification). Je suppose qu'il faut juste changer le terme à rechercher dans la macro mais est-ce bien tout?


Merci de votre temps.

TofMalik
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Bonjour,

Je ne comprends plus rien... la macro fonctionnait hier et en fin d'aprem ça me mets: "Subscript out of range"

Sub cherche()
Ach = InputBox("Achercher")
ligne = 2
Sheets("Feuil1").Columns("A").ClearContents
Set c = Columns("A").Find(Ach, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
x = Split(c.Value, ":")
Sheets("feuil1").Cells(ligne, 1) = Trim(x(1))
ligne = ligne + 1
Set c = Columns("A").FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Sheets("Feuil1").Select

End Sub

Est-ce que quelqu'un peut m'aider s'il vous plaît?

Merci d'avance

TofMalik
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Re

Sans plus de renseignements difficile de debugger
A priori on peut tomber sur un texte ou le ":" n'existe pas
mets ceci
Code: 
.....
x = Split(c.Value, ":")
msgbox(c.Value & "  " & c.row)
Sheets("feuil1").Cells(ligne, 1) = Trim(x(1))
.....

le message t'indiquera ce qui est trouvé et la ligne ou cela se situe
Essaie et dis-nous
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans une liste qui apparaît plusieurs fois

Re

Après avoir lu ton message (et réfléchi plus de deux secondes), j'ai tout simplement essayé de changer le mot que je cherchais. En effet celui que je cherchais était présent dans d'autre partie de mon document, sans les deux points...

Merci encore pierre jean
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 affiché une valeur texte dans un cellule
Réponses
1
Affichages
767
Gen Rose
  • Question Question
XL 2016 [RÉSOLU] Calculer une valeur qui apparait plusieurs fois dans un tableau (TCD, Power Query)
Réponses
8
Affichages
1 K
king76
  • Résolu(e)
Microsoft 365 Effacer dans colonne "G" les cellules qui ne contiennent pas un mot
2
Réponses
28
Affichages
2 K
dysorthographie
A
  • Résolu(e)
XL 2019 Copier une liste d'un tableau plusieurs fois
Réponses
4
Affichages
1 K
AlexiaC
A
A
  • Question Question
XL 2016 Détecter si un ou des mots présents dans une plage sont présents dans une autre
Réponses
1
Affichages
2 K
fanch55
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Résolu(e)
Microsoft 365 Extraire combien de fois un mot est renseigné dans une cellule
2
Réponses
17
Affichages
2 K
chris
A
  • Question Question
XL 2016 Afficher un mot aléatoire et retrié dans une nouvelle liste
Réponses
2
Affichages
825
adgm1
A
  • Question Question
XL 2016 rechercher un mot dans une base
2 3
Réponses
37
Affichages
4 K
dindin
S
  • Question Question
XL 2016 Rechercher une liste de référence et copier/coller dans un nouveau classeur
Réponses
9
Affichages
1 K
chris
M
  • Question Question
Autres Coller plusieurs fois grâce à un simple click.
Réponses
0
Affichages
585
mickachaumet
M
C
  • Question Question
XL 2019 Colorier une lettre, un mot ou une phrase recherchée
5 6 7
Réponses
95
Affichages
7 K
patricktoulon
V
  • Question Question
Microsoft 365 Valeur rechercher selon plusieurs critères et sur plusieurs pages par rapport à une cellule
Réponses
12
Affichages
1 K
Varona Rodriguez
V
D
  • Question Question
Microsoft 365 Compléter un tableau de suivi automatiquement et bien compliqué :-)
Réponses
1
Affichages
1 K
herve62
  • Question Question
XL 2016 Compter un mot une seule fois
Réponses
6
Affichages
931
pompaero
M
  • Question Question
Rechercher le nombre fois que mon code apparait dans un tableau excel
Réponses
5
Affichages
1 K
MyMy1988
M
L
  • Question Question
XL 2019 Saisie naturaliste basée sur code private sub de liste intuitive
2
Réponses
19
Affichages
4 K
lusert
L
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
A
  • Question Question
XL 2010 Copier N fois une valeur V dans une colonne donnée
2
Réponses
18
Affichages
5 K
anthony.unac
A
N
  • Question Question
insertion d'un nombre variable de données dans une boucle
2
Réponses
17
Affichages
3 K
ninajams
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…