J
Jean-philippe94
Guest
Bonjour,
J'ai trier des cellules et je souhaite fusionner 2 cellules a chaque lignes automatiquement. J'ai essayer une macro mais je ne sais pas comment faire pour le macro passe a la ligne suivante automatiquement et s'arrete au bout d'un certain nombre de ligne.
voila mon essaye..
'
Range('B81:C81').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range('B81+1:C81+1').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
J'ai trier des cellules et je souhaite fusionner 2 cellules a chaque lignes automatiquement. J'ai essayer une macro mais je ne sais pas comment faire pour le macro passe a la ligne suivante automatiquement et s'arrete au bout d'un certain nombre de ligne.
voila mon essaye..
'
Range('B81:C81').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range('B81+1:C81+1').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub