Discussion :

[xvrpetit]

Bonjour à tous.
Voila mon problème, je voudrais ajuster automatiquement la hauteur d'une cellule fusionnée. Si la cellule n'est pas fusionnée, elle s'ajuste automatiquement, mais pas avec des cellules fusionnées.
Venez moi en aide....
Merci d'avance...

[Guidhy]

Bonjour,

On a déjà traité de ce sujet ici.
J'éspère que cela va pouvoir t'aider.

Bonne journée.

[ouskel'n'or]

Une autre solution. Je suppose les cellules "D5:E5" fusionnées :

Code :

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

1
2
3
4
5
6
7
8
9
10
    With Range("D5:E5")
        .MergeCells = False
        .Rows.AutoFit
        DoEvents
        Hauteur = Int(.RowHeight / 2)
        .WrapText = True
        .MergeCells = True
        .RowHeight = Hauteur
        .VerticalAlignment = xlVAlignCenter
    End With

[rakhann974]

Une autre solution. Je suppose les cellules "D5:E5" fusionnées :

Code :

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

1
2
3
4
5
6
7
8
9
10
    With Range("D5:E5")
        .MergeCells = False
        .Rows.AutoFit
        DoEvents
        Hauteur = Int(.RowHeight / 2)
        .WrapText = True
        .MergeCells = True
        .RowHeight = Hauteur
        .VerticalAlignment = xlVAlignCenter
    End With

Bonjour,

excellent ta solution et très simple à mettre en place.
chez moi je l'ai modifié comme ç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
Private Sub TextBox_commentaires_Change()
Sheets("MATIN").Activate
Range("commentaires") = TextBox_commentaires.Value
 With Range("commentaires")
        .MergeCells = False
        .Rows.AutoFit
        DoEvents
        Hauteur = Int(.RowHeight / 1)
        .WrapText = True
        .MergeCells = True
        .RowHeight = Hauteur
        .VerticalAlignment = xlVAlignTop
        .HorizontalAlignment = xlLeft
    End With
Range("C19", "D19").Merge
End Sub

J'ai mis "1" au lieu de "2" afin d'afficher correctement le texte.
Avec cette méthode je ne perd plus la fusion et mon texte aligné en haut et a gauche.

A plus