Définir la taille textrBox

Bonjour

J'ai un code pour rendre mes textbox auto-extensible

Mon code:

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.AutoSize = True
End If
Next
End Sub

Je voulais savoir si possible, peut on définir la taille minimum et Maximun au textbox .

Je vous remercie

Max

Bonjour,

Cette propriété n'existe pas sur le contrôle, en revanche, tu peux très bien coder ça

Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim largMin, hautMin
largMin = 100
hautMin = 100

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
        ctrl.AutoSize = True

        If ctrl.Width < largMin Then
            ctrl.Width = largMin
        End If
        If ctrl.Height < hautMin Then
            ctrl.Height = hautMin
        End If
    End If
Next
End Sub

D'après moi ça ressemblerait à ça, mais à tester.