XL 2010 Eliminer toutes les zones fusionnées ds une selection

[fattah_5791]

Bonjour
j ai realisé une petite macro me permettant de rentrer dans fichier excel pour y extraire des données. le fichier en question contient des zones fusionnées que je veux eliminer avant de copier le contenu et quitter ce fichier sans faire de sauvegarde.
fichier exemple: je veux eliminer ttes les zones fusionnées de la zone "A2:y70" du fichier joint Cc1.xls SANS alterer ses données.
Merci encore

 

[sousou]

bonjour
essaie ce code sur la zone que tu sélectionnes
Sub fus()
For Each i In Selection
If i.MergeArea.Count > 1 Then
i.MergeArea.UnMerge
End If
Next
End Sub

 

[jecherche]

Bonjour,

Une autre proposition :

Sub Macro1()
 
ActiveSheet.Range("A2:Y70").Select  ' sélection de la plage
    With Selection
        .MergeCells = False  ' défusion
    End With
ActiveWorkbook.Close Savechanges:=False  'fermer classeur sans enregistrer
End Sub

Jecherche

 

[job75]

Bonsoir à tous,

Un complément au code de sousou pour que tout reste lisible :

Sub fus()
For Each i In [A2:Y70]
  With i.MergeArea
    If .Count > 1 Then
      .UnMerge
      .HorizontalAlignment = xlCenterAcrossSelection 'pour la lisibilité
    End If
  End With
Next
End Sub

A+

 

[job75]

Bonjour à tous,

Une solution plus élaborée pour que l'aspect soit modifié le moins possible :

Sub fus()
Dim c As Range, x
Application.ScreenUpdating = False
For Each c In [A2:Y70]
  With c.MergeArea
    If .Count > 1 Then
      .UnMerge
      .Interior.Color = .Cells(1).Interior.Color
      .Borders(xlInsideVertical).LineStyle = xlNone
      x = .Cells(1).ColumnWidth
      .Columns(1).AutoFit
      If .Cells(1).ColumnWidth > x Then _
        .HorizontalAlignment = xlCenterAcrossSelection 'pour la lisibilité
      .Cells(1).ColumnWidth = x
    End If
  End With
Next
End Sub

PS : pour que l'orientation du texte en R10 ne soit pas modifiée il suffit d'augmenter légèrement la largeur de la colonne R.

A+