XL 2013 Textbox auto-extensible

[maval]

Bonjour

J'ai sur mon formulaire 22 textbox nommé TBx_1 TBx_2 TBx_3 ect... Pour les rendre auto-extensible j'ai ce code:

Private Sub UserForm_Initialize()
With Me.TBx_1
    .MultiLine = True
    .Width = 300
    .AutoSize = True
End With
End Sub

Je cherche à savoir comment je peut faire pour mettre les 220 Textbox en quelque lignes

Je vous remercie

 

[Staple1600]

Bonsoir le fil,

maval
Il suffit de boucler sur les contrôles qui sont des TextBox.

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

PS: valmax a posé la même question ou pas (là-bas) ?

 

[maval]

Bonsoir

merci

 

[maval]

Bonjour

Suite au code de Staple que je remercie peut on imposer au textbox un minimum et un maximum en largeur.

Je vous remercie