(résolu par Chris401) Macro à modifier

riton00 · 11 Mars 2016

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

Code:

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 · 11 Mars 2016

Re : Macro à modifier

Bonsoir

Essaye

Code:

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 · 11 Mars 2016

Re : Macro à modifier

Bonsoir Chris401

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

Slts

(résolu par Chris401) Macro à modifier

riton00

XLDnaute Impliqué

Chris401

XLDnaute Accro

riton00

XLDnaute Impliqué

Discussions similaires