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

Bon­jour à tous,

Lorsque vous fusion­nez des cel­lules pour pou­voir ensuite faire un aligne­ment à gauche, il devient impos­si­ble d’a­juster cor­recte­ment la hau­teur de la ligne con­tenant ces cel­lules fusion­nées (habituelle­ment un dou­ble clic entre les deux lignes).

Voici un exem­ple.

Pour réus­sir à 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 bien­tôt.

Gae­tan

Pour marque-pages : Permaliens.

4 réponses à Comment, en VBA, ajuste la hauteur d’une ligne contenant des cellules fusionnées

  1. paul dit :

    Bon­jour,

    Je viens de tester le code sur l’un de mes fichiers mais ça ne donne rien. Y aurait-il des con­di­tions pour exé­cuter ce code? La feuille sur laque­lle j’ai effec­tué le test com­mence à la ligne 6.

    Mer­ci beaucoup.

    Cor­diale­ment,

  2. Bon­jour,

    Pour­riez vous m’en­voy­er le fichi­er pour que je regarde où se trou­ve le bug?

    Mer­ci

    Gae­tan

  3. MIRO Florent dit :

    Par­fait , Nick­el et TOP!

    Mer­ci

  4. Hery dit :

    Macro plus que Ok, Merci

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.