Recherche Texte + copie de la ligne trouvé

[Guigui]

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 :

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

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....

 

[mutzik]

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

 

[Guigui]

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]

 

[Guigui]

Re...

Ya eu un bug ... je crois

Je sais pas si mon fichier est joint ?

 

[Guigui]

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]

 

[_Thierry]

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

 

[pat1545.]

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