Discussion :

[tzan03]

comment faire avec Visaul Basic pour :
- faire pivoter le contenu d'une cellule EXCEL de 90° dans une macro
- fusionner deux cellules adjacentes
??

[ouisansdoute]

Bonjour et bienvenue sur le forum

Pour connaître le code qui réalisera les opérations que tu souhaites, tu peux enregistrer automatiquement une macro et dérouler tes manip. ensuite tu ouvres le code de la macro et tu obtiens la syntaxe.

Cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Pour aligner verticalement
Sub alignement()
Range("A1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

'ET pour fusionner A2 et B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub fusionner()
    Range("A2:B2").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub

a priori tu peux réduire ton code aux lignes en bleu