Lord Brett Sinclair
XLDnaute Nouveau
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?
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:
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