Problème avec une boucle

[Lord Brett Sinclair]

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?

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

 

[Pierrot93]

Re : Problème avec une boucle

Bonjour,

essaye peut ceci, si la totalité de la cellule est égale à "Toto" :

Dim i As Long
For i = 1 To Range("C65536").End(xlUp).Row
    If Cells(i, 3).Value = "Toto" Then Rows(i).Copy Destination:=Worksheets("Toto").Cells(i 1)
Next i

bonne fin d'après midi
@+

 

[Lord Brett Sinclair]

Re : Problème avec une boucle

Salut,

et merci pour ta réponse.
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
merci encore et bon week end