copie ligne si...

serge · 1 Avril 2005

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 · 1 Avril 2005

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 · 1 Avril 2005

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

CBernardT · 1 Avril 2005

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 · 4 Avril 2005

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.

copie ligne si...

serge

Guest

Sylvain

XLDnaute Occasionnel

serge

Guest

CBernardT

XLDnaute Barbatruc

Pièces jointes

serge

Guest

Discussions similaires