Macro fusion de cellules
Résolu/Fermé
A voir également:
- Macro fusion de cellules
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Excel additionner des cellules - Guide
- Excel fusionner deux cellules - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
14 nov. 2012 à 17:31
14 nov. 2012 à 17:31
Bonjour,
A adapter a votre besoin
A adapter a votre besoin
Sub Macro1()
'butee a definir
Const fin = 30
For x = 1 To fin Step 2
With Worksheets("feuil1").Range("A" & x & ":A" & x + 1)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Next x
End Sub
