XL 2013 code qui de-fusionne des cellules et le transforme

vinciHorus

XLDnaute Junior
Bonjour

J'aimerais avoir un code qui de-fusionne des cellules dans un tableau comme indiqué dans ce fichier joint

merci
 

Pièces jointes

  • Classeur1te.xlsm
    143.3 KB · Affichages: 12

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour VinciHorus,
un essai en PJ avec cette macro :
VB:
Sub Essai()
L = 20  ' N° ligne de destination
For Each c In Range("D7:D18")
    If c <> "" Then
        Range("H" & L) = c
        Range("I" & L) = Cells(c.Row, c.Column + 1)
        L = L + 1
    End If
Next
End Sub
 

Pièces jointes

  • Classeur1te.xlsm
    154.4 KB · Affichages: 3

vinciHorus

XLDnaute Junior
Bonjour,

Bah pourquoi n'être pas resté sur ce fil :

https://www.excel-downloads.com/thr...lules-dans-un-tableau.20045989/#post-20338061

L'adaptation est pourtant évidente :
VB:
Sub Sup()
With Range("D7:E" & Rows.Count)
    .UnMerge
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).Delete xlUp
    .CurrentRegion.Borders.Weight = xlThin 'facultatif
End With
End Sub
A+
Vu que quand je l'adapte certaines données sur la feuille remontent injustement !!! j'ai essayé de mieux formuler !!! actuellement j'essaye de fixer mais c'est toujours pareil !!!!
 

job75

XLDnaute Barbatruc
Vu que quand je l'adapte certaines données sur la feuille remontent injustement !!! j'ai essayé de mieux formuler !!! actuellement j'essaye de fixer mais c'est toujours pareil !!!!
Quelles données injustes ??? Après les cellules fusionnées ? Essayez donc :
VB:
Sub Sup()
With [D7].CurrentRegion
    .UnMerge
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).Delete xlUp
    .CurrentRegion.Borders.Weight = xlThin 'facultatif
End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510