Repérer les cellules en couleur

DubbleYou · 16 Avril 2005

Bonsoir le Forum,

Quelle est la formule permettant de repérer, parmi une sélection de cellules, celles dont le fond est en couleur ?

Merci à vous,

DubbleYou

Hervé · 16 Avril 2005

Bonjour

Je ne connais pas de formule pour ceci, je te propose donc un code VBA :

plage scannée : C47 , résultat en msgbox

Public Sub recherchecellulecoloriée()
Dim c As Range
Dim texte As String
'pour chaque cellule de la plage C47
For Each c In Range('c4:d7')
'si la couleur de la cellule est différent de -4142 (pas de couleur)
If c.Interior.ColorIndex <> -4142 Then
'alors note dans la varaible texte, l'adresse de la cellule, et sa couleur
texte = texte & c.Address(0, 0) & vbTab & c.Interior.ColorIndex & vbNewLine
'fin de condition
End If
'prochaine cellule
Next c
'renvoi du résultat par msgbox
MsgBox texte, , 'Cellules coloriées :'
End Sub

Salut

DubbleYou · 16 Avril 2005

Salur Hervé,

C'est bien un code VBA que je recherchais. Celui que tu me donnes réponds parfaitement à ma question. Merci.

DubbleYou.

Repérer les cellules en couleur

DubbleYou

Guest

Hervé

XLDnaute Barbatruc

DubbleYou

Guest

Discussions similaires