vba excel

[georges]

J'ai un fichier Xls seule la feuille "1" comporte les données en fait ces données sont simplement un LISTING
si un anomalie dans ce listing est dévoilée je la colorie en ROUGE
couleur 3 ou vbred par une action souris.

je voudrais :

selectionner TOUTES CcesLIGNES ROUGES puis les coller dans la feuille "2"


cela permet d'avoir que les lignes posant un problème
ce doit être simple mais je n'y arrive pas j'ai toujours des messages d'erreur
Je vous remercie si vous pouviez me trouver un bout de code vba qui ferait cela.
Merci d'avance
Georges

 

[Lord Nelson]

Salut Georges,

Une boucle For Each pour tester la couleur de chaque cellule devrait convenir :

Private Sub CommandButton1_Click()
Dim CL As Range
Dim Ligne As Long
Ligne = 1
Feuil2.Range("A2:B25").ClearContents
For Each CL In Range("A2:A25")
If CL.Interior.ColorIndex = 3 Then
Ligne = Ligne + 1
Feuil2.Range("A" & CStr(Ligne)) = CL
Feuil2.Range("B" & CStr(Ligne)) = CL.Offset(0, 1)
End If
Next
End Sub

Qu'en dis-tu ?

A+
LN