couleur en VBA

Bonjour,

je voudrais crée une formule ou un code VBA qui permettrai de retire les informations des cellule dont le fond est jaune ou gris et les copiers sur une autre feuille. y a t il moyen d'apres vous???

Merci d'avance

Bonjour,
Voici un exemple avec une procédure Main qui invoque une procédure CopyIsColor en lui passant les arguments
FromRng - La plage à parcourir
Color - Le code RGB à tester
toRange - L'adresse où copier la valeur (ici la couleur est copiée aussi)

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Sub Main() Dim cFrom As Range, cTo As Range With ThisWorkbook Set cFrom = .Worksheets("Feuil1").Range("B3:B10") Set cTo = .Worksheets("Feuil2").Range("A1") End With CopyIsColor cFrom, vbYellow, cTo End Sub

---

Code:

---

1 2 3 4 5 6 7 8

Sub CopyIsColor(FromRng As Range, color As Long, toRange As Range) Dim cel As Range For Each cel In FromRng If cel.Interior.color = color Then cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count) End If Next End Sub

---

[EDIT]
Si tu veux copier la valeur sans la mise en forme

Code:

---

1 2	' cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count) toRange.Offset(toRange.CurrentRegion.Rows.Count) = cel

---