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

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

Pour marque-pages : Permaliens.

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

  1. paul dit :

    Bonjour,

    Je viens de tester le code sur l'un de mes fichiers mais ça ne donne rien. Y aurait-il des conditions pour exécuter ce code? La feuille sur laquelle j'ai effectué le test commence à la ligne 6.

    Merci beaucoup.

    Cordialement,

  2. Bonjour,

    Pourriez vous m'envoyer le fichier pour que je regarde où se trouve le bug?

    Merci

    Gaetan

  3. MIRO Florent dit :

    Parfait , Nickel et TOP!

    Merci

  4. Hery dit :

    Macro plus que Ok, Merci

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

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