Copier ligne entière selon valeur d'une cellule

[Nico]

Bonjour,

Je cherche à automatiser un copier coller qui me rend fou.
Je voudrais pouvoir copier/coller d'une feuille à une autre une ligne entière à laquelle correspond une valeur de cellule (mon prénom par exemple) qui n'est pas toujours dans la même colonne (sinon j'utiliserai des Filtres et hop!).
En ligne 1, mon prénom sera en colonne A
En ligne 15, mon prénom sera en colonne D
En ligne 20, mon prénom sera en colonne B
...

Seulement, ces dizaines de valeurs sont noyées au milieu de centaines d'autres.

L'idéal serait qu'il n'y ait pas de lignes vides sur la feuille de destination...

Je rame, au secours !

Macro ou formule...j'arrive à rien.

 

[mutzik]

Bonjour Nico,

faut un bout de ton fichier pour t'aider efficacement

 

[Nico]

En fait ça ira... Merci beaucoup.

j'ai trouvé des trucs sympa qui ont été postés il y a plus d'un an. :whistle:

J'ai lu la charte un peu en diag' après avoir utilisé le moteur de recherche. :unsure: désolé !

L'essentiel, c'est que grâce à cette communauté de de balaises, j'ai trouvé mon bonheur.

:silly:

 

[veesti]

Re : Copier ligne entière selon valeur d'une cellule

salut, ne pourrais tu pas nous dire où as tu trouvé ce qui fait aujourd'hui ton bonheur, car je cherche le même paradis!
a +

Steve

 

[Staple1600]

Re : Copier ligne entière selon valeur d'une cellule

Bonjour à tous


A tester

Sub copie_lignes()
[COLOR="SeaGreen"]'macro originale: Sub copyData_1()
'auteur: byundt (expert-exchanges)[/COLOR]
Dim donnees As Range, C As Range
Dim wsDest As Worksheet
Dim i As Long
Application.ScreenUpdating = False
'ici adapter le nom de la feuille
Set wsDest = Sheets(2)
i = wsDest.Cells(Rows.Count, 1).End(xlUp).Row
If (i = 1) And (wsDest.Cells(1, 1) = "") Then i = 0
Set donnees = Sheets(1).UsedRange.SpecialCells(12)
For Each C In donnees.Cells
'ici mettre la valeur recherchée
    If C.Value Like "[B]motrecherché[/B]" Then
    i = i + 1
    C.Resize(1, Cells(C.Row, 256).End(xlToLeft)).Copy wsDest.Cells(i, 1)
    End If
Next
Application.ScreenUpdating = True
End Sub