XL 2016 recherche cellule avec ecriture couleur

[nico131]

Bonjour,
Je souhaite récupérer des données de cellules écrites d'un certaine couleur (manuel pas mfc). Voir fichier joint pour que se soit plus compréhensible.

Dans l'attente de vos réponses si cela est faisable

cdlt

 

[DoubleZero]

Bonjour, nico131, le Forum,

Si j'ai bien compris... Ajouter un onglet nommé "Résultat" et loger le code ci-après dans un module standard.

Option Explicit
Sub Couleur_x_récupérer()
    Dim c As Range
    On Error Resume Next
    Sheets("Résultat").Range("a:c").Clear
    For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants, 1)
        If c.Font.Color = 15773696 Then c(1, -1).Resize(, 3).Copy Sheets("Résultat").Range("a" & Rows.Count).End(xlUp)(2)
    Next
End Sub

A bientôt