XL 2010 Récupération de données

[quilici]

Bonjour,
J'ai défini une zone dans laquelle figurent des cellules qui contiennent des valeurs (issues de formules de calcul)
Certaines de ces cellules ont une zone de remplissage avec une couleur, d'autres non.
Je souhaite récupérer les valeurs des cellules qui sont colorées.
Merci pour vos réponses
Bonne journée

 

[vgendron]

edit: ce message n'a plus lieu d'être puisque l'auteur a rajouté la formule de politesse qui manquait

 

[djidji59430]

Bonjour

- - - Un fichier EXCEL (test ou non), complété par des explications exhaustives et des exemples remplis à la main (si besoin), mis sur le forum, permettrait aux intervenants de répondre plus précisément à ta question.

Crdmt

 

[quilici]

Bonjour

- - - Un fichier EXCEL (test ou non), complété par des explications exhaustives et des exemples remplis à la main (si besoin), mis sur le forum, permettrait aux intervenants de répondre plus précisément à ta question.

Crdmt

Merci pour votre réponse.
Ci joint le fichier Excel
Bonne journée

 

[quilici]

Merci pour votre réponse.
Ci joint le fichier Excel
Bonne journée

 

[vgendron]

Bonjour
un essai avec cette macro à placer dans un module standard

Sub Récup()
Dim cell As Range
    With Sheets("Poules")
        For Each cell In .Range("Poules")
            If cell.Interior.Color <> vbWhite Then
                .Range("I" & .Rows.Count).End(xlUp).Offset(1, 0) = cell.Value
            End If
        Next cell
    End With
End Sub

 

[JHA]

Bonjour à tous,

Peut-être un début de piste avec 2 colonnes supplémentaires et une fonction personnalisée.

JHA

 

[job75]

Bonjour à tous,

Avec une fonction VBA :

Function ListeCouleur(plage As Range, ordre&)
Dim c As Range, n&
Set plage = Intersect(plage, plage.Parent.UsedRange)
ListeCouleur = ""
For Each c In plage
    If c.Interior.Color <> vbWhite Then
        n = n + 1
        If n = ordre Then ListeCouleur = c: Exit Function
    End If
Next
End Function

Le code doit être placé dans un Module Standard.

Formule en I16 à tirer vers le bas =ListeCouleur(B:G;LIGNE(I1))

A+