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
Partager