Bonjour à tous!
Ce forum à l'air vraiment bien alors j'en profite pour poser une question qui me tracasse: j'essaie de fusionner des cellules de façon automatique.
J'explique, à partir d'une sélection "à la main "(A3:A7 par exemple), j'ai besoin de fusionner automatiquement (merci les macros
) B3:B7 et C3:C7
Les dimensions étant les même j'ai pensé à utiliser
ActiveCell.Offset(0, 1).Selection
Mais bon ça veut pas
( alors je m'en remets à vous
Voilà à quoi ça ressemble:
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
With ActiveCell.Offset(0, 1).Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Merci d'avance pour votre aide.