Discussion :

[ginkas31]

Bonjour à tous,

J'ai lu cette discussion.
Je n'arrive pas à faire fonctionner ce morceau de code qui semble bloquer à la ligne

Code :

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

CurrentRowHeight = .RowHeight

. Quelqu'un aurait un début d'explication?

[ouskel'n'or]

Tes cellules sont-elles déja fusionnées ou non ?

[ouskel'n'or]

Si elles sont fusionnées, tu peux tester ça

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
Sub Test()
Dim cell As Range, H As Double
    For Each cell In Worksheets("feuil1").UsedRange
        If cell.Row = 1 Then
            Columns(cell.Column).EntireColumn.AutoFit
            Rows(cell.Row).AutoFit
        End If
        If cell.MergeCells Then
             'memo de l'adresse des cellules fusionnées
            Adres = cell.MergeArea.Address
            'on ne traite que la première cellule de la fusion
            If cell.Address = Split(Adres, ":")(0) Then
                'supprime la fusion
                cell.MergeCells = False
                'dimensionne la hauteur de la cellule
                cell.EntireRow.AutoFit
                'memo de la hauteur obtenue
                H = cell.Height
                'rétablissement de la fusion des cellules
                Range(Adres).MergeCells = True
                'Affectation de la hauteur
                Range(Adres).EntireRow.RowHeight = H
            End If
        End If
    Next
End Sub

Code testé...

[ginkas31]

Oui oui.

J'effectue une fusion sur la premiere colonne entre 2 lignes, par exemple je fusionne A4 et A5, la plage B4:F5 est remplie de données.. Pour le test j'ai placé un bouton sur lequel je place un évènement sur le click qui apelle ma méthode

Bizarre....

[ouskel'n'or]

Tu as vu ma réponse ?