Trouver l'adresse d'une cellule colorée

clemflm · 26 Novembre 2014

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 · 26 Novembre 2014

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

Bonsoir clemflm,

Voici un exemple avec boucle de lecture:

Code:

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.

Trouver l'adresse d'une cellule colorée

clemflm

Guest

Papou-net

XLDnaute Barbatruc

Discussions similaires

Trouver l'adresse d'une cellule colorée

clemflm

Guest

Papou-net

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency