Discussion :

[julius999]

Bonjour à tous
J'ai cette petite boucle qui à mon sens devrait parcourir toute ma sélection, au sein de la colonne 3 et qui devrait relever tous les "toto", s'il trouve "toto", il doit copier toute la ligne dans l'onglet appelé "toto" non?
mais ça ne marche pas. Si le premier toto se trouve à la ligne 1012, je dois rentrer Rw.Cells(1012, 3).Value pour que les lignes soient copiées...
quelqu'un à une une idée?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each Rw In Selection.Rows
 
Ligne = Rw.Row
 
If Rw.Cells(1, 3).Value = "Toto" Then
Rw.Copy Destination:=Worksheets("Toto").Cells(Ligne, 1).EntireRow
End If
 
Next Rw

[julius999]

je suis un âne, en fait, ça marchait très bien, sauf que ça copiait sur les lignes 1012 et suivantes...

j'ai modifié en demandant de supprimer les lignes inutiles
bon week end