Discussion :

[djamat]

Bonjour à tous,

Voici ma question de la semaine:
J'aimerai à la fin de mon code faire une mise en page de mon fichier.

but: Que mes titres de ma colonne A soient fusionnés afin que l'on est une meilleure visibilitée avec ma colonne B les commentaires.

J'ai donc utilisé l'enregistrement de macro pour avoir un morceau de code de ce que je voudrai:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   ActiveCell.Range("A1:A5").Select
  With Selection
       .HorizontalAlignment = xlCenter
       .VerticalAlignment = xlCenter
       .WrapText = True
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
      .ShrinkToFit = False
       .ReadingOrder = xlContext
       .MergeCells = True
   End With

Le problème est que j'aimerai faire une boucle du style:
Pour A? à prochaine cellule pleine faire fusion sinon aller à la prochaine cellule.

Mais comment faire cette boucle, un coup de main ? please
Merci par avance pour votre aide

PS: mon tableau commence à la cellule A2.

djamat

[Daniel.C]

Bonjour,

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub test()
  Dim DerLig As Long, Res As Integer
  Res = 2
  DerLig = Cells(Rows.Count, 2).End(xlUp).Row
  For i = 3 To DerLig
      If Cells(i, 1) <> "" Then
            With Range(Cells(Res, 1), Cells(i - 1, 1))
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .WrapText = True
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = True
            End With
            Res = i
      End If
  Next i
 With Range(Cells(Res, 1), Cells(i - 1, 1))
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
 End With
End Sub

[djamat]

Merci Daniel cela fonctionne correctement