Vba excel: copier les lignes de couleur.
Résolu
Clairette
-
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 !
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 !
A voir également:
- Vba excel: copier les lignes de couleur.
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Bonjour,
essaie avec
.Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).offset(1,0)
(non testé)
eric
essaie avec
.Range(.Cells(z, 1), .Cells(z, 18)).Copy Sheets("Feuil2").Range("A30000").End(xlUp).offset(1,0)
(non testé)
eric
Clairette
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
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