Macro: Fusion automatique

[Jérôme]

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.

 

[vincent]

bonjour,

voila une macro qui fusionne les colonnes de 1 a 10 2 par 2.modifie le parametre to 10 en fonction de tes besoins


Sub fusion()
For i = 1 To 10 Step 2
With Sheets(1).Range(Columns(i), Columns(i + 1))
.Merge
End With
Next
End Sub


ps:cette macro ne fais que fusionner les cellules,rajoute au besoin entre with .... et end with la mise en forme de tes cellules