enlever les fusions et recopier les valeurs

[roudrick]

Bonjour,

Afin de récupérer des données, je souhaite enlever les cellules fusionner et recopier la valeur dans chacune des cellules.
J'ai déjà trouver des choses, mais je n'arrive pas à les adapter.
Ci-dessous un exemple.

merci d'avance!!😱

 

[roudrick]

Re : enlever les fusions et recopier les valeurs

j'ai trouvé ça sur un forum... une macro qui date de 2008 mais qui fonctionne 🙂

Sub x()

Dim rng As Range, rng2 As Range

For Each rng In ActiveSheet.UsedRange
If rng.MergeCells Then
With rng
Set rng2 = .MergeArea
.MergeArea.UnMerge
rng2.Value = .Value
End With
End If
Next rng

End Sub

merci