Copie cellule sans couleur

[JANO]

Bonjour le forum,

j'ai essayé de modifier une macro trouvé sur le forum, mais ça bug.

feuil 2, colonne a, j'ai une liste et je voudrai récupérer la cellule sans couleur en feuil3 colonne d.

la cela trouve bien les cellule sans couleur mes copie et bug.

SVP, pouvez-vous une nouvelle fois m'aider.

merci 🙂

Sub TEST()

Sheets("Feuil2").Select
derlig = Range("A65536").End(xlUp).Row
For I = 2 To derlig
If Cells(I, 1).Interior.ColorIndex = -4142 Then Cells.Copy
Sheets("feuil3").Range("D" & Sheets("feuil3").Range("D65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Next

End Sub

 

[Pierrot93]

Re : Copie cellule sans couleur

Bonjour,

essaye peut être comme suit, non testé...

Sub TEST()
Sheets("Feuil2").Select
derlig = Range("A65536").End(xlUp).Row
For I = 2 To derlig
    With Sheets("feuil3")
        If Cells(I, 1).Interior.ColorIndex = -4142 Then .Range("D65536").End(xlUp)(2) = Cells(I, 1)
    End With
Next
End Sub

bon après midi
@+

 

[JANO]

Re : Copie cellule sans couleur

Merci Pierrot93, cela fonctionne.

bonne après midi à tous

 

[C@thy]

Re : Copie cellule sans couleur

Coucou Pierrot,

toujours un plaisir de lire tes astuces,

pourrais-tu, m'expliquaer le .End(xlUp)(2)
ça marche génial, mais j'ai pas compris pourquoi😱

Bises

C@thy

 

[Pierrot93]

Re : Copie cellule sans couleur

Bonjour Cathy,

1 étant la cellule renvoyée par le xlup, 2 est la suivante... on décale donc de 1 par rapport à la cellule trouvée...
bonne soirée
@+

 

[C@thy]

Re : Copie cellule sans couleur

Super j'ai tout compris, et appris quelque chose

Merci à toi

C@thy