Défusionner et décentrer

[tomtom323232]

Bonjour, j'aimerais automatisé certaines actions sur Excel dont enlever l'action "fusionner et centrer" sur toute une feuille. Quand j'utilise l'enregistreur de macro, la macro est trop grande car :

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

La macro enregistrée effectue cette opération autant de fois qu'il y a de ligne je pense. Est t'il possible de raccourci la macro en écrivant juste une boucle pour x colonnes et x lignes ?

Merci d'avance

 

[DoubleZero]

Re : Défusionner et décentrer

Bonjour, tomtom323232, le Forum,

Peut-être ainsi :

Option Explicit
Sub Fusion_supprimer()
Range("a1:d1000").UnMerge 'adapter à la plage concernée
End Sub

A bientôt 🙂

 

[tomtom323232]

Re : Défusionner et décentrer

non cela ne fonctionne pas malheureusement

 

[tomtom323232]

Re : Défusionner et décentrer

Je n'ai rien dis, cela marche très bien. Ca fait peur de simplicité.

Merci beaucoup