Vba excel: copier les lignes de couleur. [Résolu/Fermé]

Signaler
-
 Clairette -
Bonjour,

Je cherche à copier en feuil2, toutes les lignes dont la colonne P est coloriée en violet. Serait-ce possible ?

Merci d'avance à tous ceux qui me répondront !


3 réponses

Messages postés
23813
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2021
6 590
Bonjour,

essaie avec
.Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).offset(1,0)
(non testé)
eric
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Merci beaucoup, ca marche !!! Bonne soirée à toi et merci beaucoup !!!
Cela devrait fonctionner :

Private Sub CommandButton1_Click()

Dim z As Long

For z = 2 To Sheets("Feuil1").Range("B30000").End(xlUp).Row
With Sheets("Feuil1")

If .Cells(z, 16).Interior.ColorIndex <> 34 Then
.Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).Row

End If
End With
Next z
End Sub
La ligne

.Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).Row

ne fonctionne pas...

La méthode Copy de la Classe Range a échoué...

Quelqu'un a une idée ???
Personne n'a une idée ? Désolé de vous déranger mais j'en ai vraiment besoin et je suis bloqué. Si quelqu'un a une piste qu'il n'hésite pas !!!