Problème avec une boucle

Lord Brett Sinclair · 29 Octobre 2010

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:

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 · 29 Octobre 2010

Re : Problème avec une boucle

Bonjour,

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

Code:

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 · 29 Octobre 2010

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

Problème avec une boucle

Lord Brett Sinclair

Guest

Pierrot93

XLDnaute Barbatruc

Lord Brett Sinclair

Guest

Discussions similaires

Problème avec une boucle

Lord Brett Sinclair

Guest

Pierrot93

XLDnaute Barbatruc

Lord Brett Sinclair

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency