copie ligne si...

[serge]

Bonjour le forum.
Neurone à plat, comm' d'hab' je viens vous voir.
Je voudrais qu'une macro analyse les cellules d'une colonne (col A) en feuille 1. Si la valeur de la cellule Active est 'toto' ou 'tata', la ligne entière est copiée et collée à la suite de ses copines sur la feuille 2, après quoi on revient sur la feuille 1 analyser la cellule suivante.
J'ai essayé de 'synthétiser' quelques anciens messages mais... hummm... pas au point ! Si ça 'Do..' à peu près bien, ça 'Loop' pas du tout!
Merci d'avance de vos précieux conseils.
Serge.

 

[Sylvain]

bonjour,

une idée :

Private Sub multi_copy()
Dim i As Integer
For i = 1 To Sheets('feuil1').Range('a65536').End(xlUp).Row
  If Cells(i, 1) = 'toto' Then
    Rows(i).Copy Sheets('feuil2').Cells(Sheets('feuil2').Range('a65536').End(xlUp).Row + 1, 1)
  End If
Next
End Sub

 

[serge]

Ah! Que voila une bonne base sur laquelle je vais pouvoir partir. Merci beaucoup Sylvain et merci le forum.
Serge.

 

[CBernardT]

Bonjour Serge, Sylvain et le forum,

Un essai avec demande du mot à rechercher :

Le transfert n'est effectué que sur la portion de ligne utile.
L'effacement du récapitulatif est mis en place.
Le fichier s'enregistre à la fermeture.

Cordialement

CBernardT
[file name=RechercheMotTransfertV4.zip size=15655]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheMotTransfertV4.zip[/file]

 

[serge]

Lundi attaqué à fond, pas même le temps de jeter un oeil sur le forum. Et pourtant...
...Dire que j'ai galéré ce week-end à essayer de résoudre mes problèmes... et je trouve la solution toute faite! Merci CBernardT! Tout fonctionne au quart de poil et je l'adapte impec à mes gros tableaux.
Merci encore à tous, ce forum est vraiment précieux. Bonne journée.
Serge.