Archives de la catégorie : Divers

Comment, en VBA, ajuste la hauteur d'une ligne contenant des cellules fusionnées

de | |
4 commentaires

Bonjour à tous,

Lorsque vous fusionnez des cellules pour pouvoir ensuite faire un alignement à gauche, il devient impossible d'ajuster correctement la hauteur de la ligne contenant ces cellules fusionnées (habituellement un double clic entre les deux lignes).

Voici un exemple.

Pour réussir à aboutir à ce résultat :
2010-05-17 11h53_19

Voici la macro de Jim Rech:

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

Sub AutoFitMergedCellRowHeight()
    Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
    Dim CurrCell As Range
    Dim ActiveCellWidth As Single, PossNewRowHeight As Single
    If ActiveCell.MergeCells Then
        With ActiveCell.MergeArea
            If .Rows.Count = 1 And .WrapText = True Then
                Application.ScreenUpdating = False
                CurrentRowHeight = .RowHeight
                ActiveCellWidth = ActiveCell.ColumnWidth
                For Each CurrCell In Selection
                    MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
                Next
                .MergeCells = False
                .Cells(1).ColumnWidth = MergedCellRgWidth
                .EntireRow.AutoFit
                PossNewRowHeight = .RowHeight
                .Cells(1).ColumnWidth = ActiveCellWidth
                .MergeCells = True
                .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
                        CurrentRowHeight, PossNewRowHeight)
            End If
        End With
    End If
End Sub

A bientôt.

Gaetan