enlever les fusions et recopier les valeurs

roudrick · 4 Septembre 2012

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 · 4 Septembre 2012

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

enlever les fusions et recopier les valeurs

roudrick

Guest

Pièces jointes

roudrick

Guest

Discussions similaires

enlever les fusions et recopier les valeurs

roudrick

Guest

Pièces jointes

roudrick

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency