recherche couleur dans plage

G

Guest

Guest

• 26 Février 2011

• #2

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.

Code:

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+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 26 Février 2011

• #3

Re : recherche couleur dans plage

Salut jtitin et le forum

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Février 2011

• #4

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+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Février 2011

• #5

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

 

Pièces jointes

• couleur.zip

  13.9 KB · Affichages: 38
• couleur.zip

  13.9 KB · Affichages: 38
• couleur.zip

  13.9 KB · Affichages: 35

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Février 2011

• #6

Re : recherche couleur dans plage

RE,

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

 

Vote positif 0 Vote négatif