Discussion :

[apdf1]

Bonjour

J'ai un formulaire avec des textbox de différente longueurs de texte donc j'ai mis "Propriété TextBox = Multiline True" J'aurais voulu mettre un petit code pour ajuster automatiquement la hauteur des lignes à "50"de mes cellules a chaque enregistrement.

J'ai essayer avec l'enregistreur de macro ceci

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 Worksheet_Change(ByVal Target As Range)
 
        Rows("12:12").RowHeight = 49.5
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
 
    End Sub

Sa n'a rien donnée?

Je vous remercie de votre aide

Cordialement

Max

[Daniel.C]

Bonjour,

Pourquoi :

Code :

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

Rows("12:12").RowHeight = 49.5

A tout hasard :

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 Worksheet_Change(ByVal Target As Range)
 
        Target.EntireRow.RowHeight = 49.5
        With Target
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
 
    End Sub

[apdf1]

Bonjour Daniel,

Je te remercie Nickel.

Je te souhaite une bonne fin après-midi

Max