recherche couleur dans plage

[jtitin]

Bonjour à tous
je recherche une macro pour faire cela:
recherche dans des plages, les cellules de Interior.ColorIndex= 44
et renvoyer le résultat pour chaque plage dans une autre feuille
je vous joint un fichier qui doit être plus explicite
en vous remerciant par avance.

 

[Guest]

Re : recherche couleur dans plage

Bonjour,

Comme le principe du forum, c'est le partage et le dépanage, qu'il vaut mieux que le demandeur travaille un peu, que tu semble savoir ce qu'est un colorIndex voici une macro à finir. Tu n'a plus qu'à diriger les sortie vers des cellules au lieu de la fenêtre d'exécution.

P.s. sur la palette excel que j'ai, l'orange est = colorindex 45 et non 44.

Sub Couleur44()
    Dim i As Byte
    Dim t: t = Array("pomme", "orange", "poire", "ananas")
    Dim c As Range
    For i = 0 To 3
        For Each c In Feuil1.Range(t(i))
            If c.Interior.ColorIndex = 45 Then
                Debug.Print t(i), c.Offset(-(i + 1))
            End If
        Next c
    Next
End Sub

A+

 

[Gorfael]

Re : recherche couleur dans plage

Salut jtitin et le forum

recherche dans des plages, les cellules de Interior.ColorIndex= 44

Juste une précision par rapport à l'exemple donné et la réponse d'Hasco : elle répond à la demande. mais ne fonctionnera pas avec une coloration par MFC => dans ce cas, il faudra refaire la condition de la MFC dans le code.
A+

 

[Guest]

Re : recherche couleur dans plage

RE,

Mais comme il n'y a pas de MFC dans le fichier...
Si ma mère se cassait une jambre il faudrait lui refaire ses conditions de logement.

A+

 

[pierrejean]

Re : recherche couleur dans plage

Bonjour jtitin

Vois si cela te convient

NB: chez moi ton orange=45

Edit severe a la bourre moi !!!

Salut Hasco
Salut Gorfael

 

[Guest]

Re : recherche couleur dans plage

RE,

Salut Pierre-Jean🙂 heureux de te croiser de nouveau.
Chez moi aussi colorindex = 45
A++