(résolu par Chris401) Macro à modifier

[riton00]

Bonsoir à tous les excelliens et excelliennes

En fait je recherche une personne qui puisse me modifier une partie de cette macro
Actuellement cette macro me permet de m'indiquer les cellules qui sont fusionnées, par contre d'où ma demande, serait-il possible de colorer les cellules fusionnées par une couleur modifiable en même temps quelle sont signalé par la MsgBox

Sub recherche_cellule_Fusionné()
Dim cellule As Range
For Each cellule In Range("A1:G20")
If cellule.MergeCells = True Then
MsgBox (cellule.Address & " est fusionnée")
End If
Next cellule
End Sub

Merci à tous ceux qui puissent m'aider

 

[Chris401]

Re : Macro à modifier

Bonsoir

Essaye

Sub recherche_cellule_Fusionné()
Dim cellule As Range
For Each cellule In Range("A1:G20")
If cellule.MergeCells = True Then
MsgBox (cellule.Address & " est fusionnée")
cellule.Interior.ColorIndex = 3 '3 = rouge
End If
Next cellule
End Sub

Cordialement
Chris

 

[riton00]

Re : Macro à modifier

Bonsoir Chris401

C'est tout à fait ce que je cherchais, merci à toi pour ce nouveau code
Efficace comme toujours

Slts