Ajuster automatiquement la hauteur des lignes

Bonjour

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

Je vous remercie de votre aide

Cordialement

Max

Bonjour

ce que donne l'enregistreur de macro

Selection.RowHeight = 50

Cordialement

Bonjour Amadéus

Je te remercie mais j'ai essayer sa ne fonctionne pas chez moi et j'ai même essayer ceci mais sa n'a rien donnée.

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

@+

Max

Bonjour

j'ai même essayer ceci mais sa n'a rien donné

Test joint

Cordialement

Re,

Oui je viens de vérifier tu as raison, sa fonctionne mais comment lui dire qu'il faut que la macro fonctionne uniquement lorsque l’enregistrement de la feuille avec le formulaire?

@+

Bonjour

N'ayant ni ton code, ni ton fichier avec le formulaire, il est difficile de répondre.

Je dirai:

Sors le PrivateSub de la Feuille et mets la suite du Code dans un Module

Et sur ton code d'enregistrement, avant d'enregistrer, un

Call Mamacro devrait fonctionner?

cordialement

Re amadeus

Je te remercie mais regarde j'ai trouver ceci et sa fonctionne pas très mal

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

Bonne soirée

Max