Vba excel: copier les lignes de couleur.

Résolu
Clairette -  
 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

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    essaie avec
    .Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).offset(1,0)
    (non testé)
    eric
    1
    1. Clairette
       
      Merci beaucoup, ca marche !!! Bonne soirée à toi et merci beaucoup !!!
      0
  2. Gianlica
     
    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
    0
    1. Clairette
       
      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 ???
      0
  3. Clairette
     
    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 !!!
    0