Trouver l'adresse d'une cellule colorée

[clemflm]

Bonjour,

J'aurai voulu connaître l'adresse des cases colorés en cyan (color index =42) dans une certaine plage de ma feuille excel, pour cela j'ai utilisé ce code :

Dim Adresse As Variant

If ActiveCell.Range("D5:M14").Interior.ColorIndex = 42 Then
Adresse = ActiveCell.Address
MsgBox (Adresse)
End If



mais rien ne se passe même lorsque des cellules sont colorées.

Avez vous une idée pour me débloquer?
Merci

 

[Papou-net]

Re : Trouver l'adresse d'une cellule colorée

Bonsoir clemflm,

Voici un exemple avec boucle de lecture:

Sub Exemple()
Dim Cel As Range, Plage As Range
For Each Cel In Range("D5:M14")
 If Cel.Interior.ColorIndex = 42 Then
  If Plage Is Nothing Then
    Set Plage = Cel
    Else
    Set Plage = Application.Union(Plage, Cel)
  End If
End If
Next
MsgBox Plage.Address
End Sub

Cordialement.