XL 2013 Fusionner et défusionner

[harveyspecter]

Bonjour à tous,

je travail sur de grande base et j'aimerais défusionner des cellule fusionner et quel remplissent les cellue devenu vide par le contenu initial avec ou sans macro.

la question n'a pas été posé dans les archives

merci à tous les amis!!!

 

[Robert]

Bonjour Harvey, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
For Each cel In ActiveSheet.UsedRange
    If cel.MergeCells = True Then
        Set PL = cel.MergeArea
        cel.UnMerge
        PL.Value = cel.Value
    End If
Next cel
End Sub

 

[pierrejean]

Bonjour harveyspecter

Un essai

Edit Salut Robert (et bravo !!!)