(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