Défusionner des cellules tout en sauvegardant des informations

[exene]

Bonjour,

J'importe très souvent un fichier d'une application interne. Dans ce fichier, il y a des cellules fusionnées très génantes. J'ai trouvé sur le forum un code permettant de colorier les cellules fusionnées puis de défusionner ces mêmes cellules. Si je supprime les lignes où il y a des cellules vides (en colonne C dans l'exemple), je perds des informations. Dans le fichier joint, en feuille 1, un exemple du fichier importé, en feuille 2 ce que je voudrais obtenir après traitement.

Merci de votre aide

 

[laurent950]

Re : Défusionner des cellules tout en sauvegardant des informations

Bonjour

Voici une solution :

Sub visualiserCellulesFusionnees()
Dim cell As Range
For Each cell In Feuil1.UsedRange.Cells
If cell.MergeCells = True Then
cell.MergeArea.Interior.ColorIndex = 6
cell.MergeCells = False
' Ajout dans votre code
cell.Offset(1, 0) = cell.Value
End If
Next cell
End Sub

 

[pierrejean]

Re : Défusionner des cellules tout en sauvegardant des informations

Bonjour exene

Vois si cela te convient

 

[exene]

Re : Défusionner des cellules tout en sauvegardant des informations

Bonjour Laurent, pierrejean,

Merci de votre aide, le code de pierrejean va me permettre d'avancer. A moi, désormais de travailler.

@+