Recherche Texte + copie de la ligne trouvé

  • Initiateur de la discussion Initiateur de la discussion Guigui
  • Date de début Date de début

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 !

G

Guigui

Guest
Hello le forum,

Je rencontre plusieur petit souci avec mon projet :

J'ai 4 tableaux par feuille (defois 2 ou 5 mais bon ... bref),
J'ai 9 feuilles...
Je souhaite faire une recherche dans ces feuilles,
A chaque fois que le critere de recherche est trouvé, situé en Col A, j'aimerais que la ligne entiere soit copier et coller dans une autre feuille...
Si j'ai mes 4 tableaux le nom doit etre trouvé 4 fois et ce dans mes 9 feuilles. Donc au final, sur ma feuille 'Résumé' je dois avoir 36 lignes.
J'ai essayé un code du genre :
Code:
Cells.Find(What:='toto', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
Ensuite, je ne sais pas comment lui faire selectioné la ligne ...
la copier ca je pense m'ensortir, la coller idem mais aprés faute faire
Code:
Cells.FindNext(After:=ActiveCell).Activate
et coller .... en dessous la 1ere ligne !! lol facil a dire...

un systeme de boucle surment mais je vois pas....
 
Re Guillaume

C'est pas sale, mais c'est pas ce qu'il y a de plus simple

le vrai code serait :
Range('A100').End(xlUp)(2).Value = 'toto'

J'ai rajouté (2)

Essaie le code suivant avec différentes valeurs (2) (3) ...
range('A100').End(xlUp).select

ensuite tu rajoutes derriere (xlup)(2) ou 3 ou ...
tu veras la différence

à+
Bertrand
 
Re...

Yes ok j'ai compris... Merci bien

Maintenant, je veut utilisé ce procédé pour délimiter une range :

je te joint un ti support ... ca va aidé..

Merci d'avance.

A+
Guillaume [file name=Classeur1_20050414164839.zip size=9497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050414164839.zip[/file]
 

Pièces jointes

Re...

Yes ok j'ai compris... Merci bien

Maintenant, je veut utilisé ce procédé pour délimiter une range :

je te joint un ti support ... ca va aidé..

Merci d'avance.

A+
Guillaume [file name=Classeur1_20050414165553.zip size=9497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050414165553.zip[/file]
 

Pièces jointes

RE Bonjour Bertrand, Guigui, le Forum

J'ai juste survolé le Fil, j'ai du taff car demain tout sera fermé ici.

Pour ton dernier fichier joint Guigui, moi je mettrai ceci dans le Private Module de Ton UserForm :

Private Sub UserForm_Initialize()
Dim i As Integer

   
With Sheets('Feuil5')
       
For i = 5 To .Range('D1000').End(xlUp).Row
          ComboBox1.AddItem .Range('D' & i)
       
Next
   
End With
End Sub


C'est pas bien compliqué... Sinon en RowSource Dynamique on peut le faire aussi très Simplement

Private Sub UserForm_Initialize()
ComboBox1.RowSource = 'Feuil5!D5😀' & Sheets('Feuil5').Range('D1000').End(xlUp).Row
End Sub

Sinon pour 'Thierry, tu me tires les oreilles si je raconte des bétises (je préfère celles de Cambrai) ' Non non Bertrand, tes remarques ne justifient pas un tirage d'oreille !! lol En fait l'Union n'est pas justifiée, c'est un résidu du Code de Pat, que j'aurai dû également supprimer !

Bonne Fin de Journée
@+Thierry
 
re _Thierry et les autres

ok le test de vitesse est concluant et ça semble normal , c'est sûr mais je select la feuille pas la cellule... 🙂)
OK aussi pour ne pas prendre 65536 mais 32267 mais les pc sont tellement rapides.

Enfin suis pas venu pour rien on apprends tous les jours sur les différents forum..
Au fait , tu viens jamais sur MPFE, Thierry ?


Patrrick
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
461
Réponses
3
Affichages
582
Retour