Agrandir un textbox suivant le nombre de mot

[maval]

Bonjour,

je recherche si possible d'agrandir un textbox suivant le nombre de mots

Je vous remercie de votre aide

 

[Pierrot93]

Re : Agrandir un textbox suivant le nombre de mot

Bonjour,

mets peut être la propriété "AutoSize" du "textbox" à "True"... enfin si j'ai bien compris...
bonne journée
@+

 

[maval]

Re : Agrandir un textbox suivant le nombre de mot

Bonjour Pierrot,

Je te remercie seul problème c'est qu'il s'agrandie sur la largeur alors que j'aurais souhaité qu'il s'agrandie sur la hauteur.

Bonne journée

 

[Pierrot93]

Re : Agrandir un textbox suivant le nombre de mot

Re,

essaye de jouer également avec la propriété "MultiLine"...

 

[Pierrot93]

Re : Agrandir un textbox suivant le nombre de mot

Re,

peut être lieu également de placer la propriété "WordWrap" sur "False"...

 

[david84]

Re : Agrandir un textbox suivant le nombre de mot

Bonjour, salut Pierrot,
ci-joint un exemple issu de l'aide Excel qui t'aideront à comprendre le rôle des propriétés AutoSize, MultiLine, WordWrap, ScrollBars.
Il suffit de suivre les explications pour construire le formulaire et de le manipuler.

AutoSize, MultiLine, WordWrap, ScrollBars, propriétés, TextBox, contrôle, exemple

L'exemple suivant illustre l'utilisation des propriétés MultiLine, WordWrap et ScrollBars dans un contrôle TextBox.

Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :

un contrôle TextBox nommé TextBox1,


quatre contrôles ToggleButton nommés ToggleButton1 à ToggleButton4.
Pour visualiser tout le texte placé dans le contrôle TextBox, attribuez la valeur True aux propriétés MultiLine et WordWrap en cliquant sur les contrôles ToggleButton.

Lorsque MultiLine a la valeur True, vous pouvez entrer de nouvelles lignes de texte à l'aide des touches MAJ+ENTRÉE.

La propriété ScrollBars apparaît lorsque vous modifiez manuellement le contenu du contrôle TextBox.

Private Sub UserForm_Initialize()
'Initialize TextBox properties and toggle buttons

TextBox1.Text = "Type your text here. "
& "Enter SHIFT+ENTER to move to a new line."

TextBox1.AutoSize = False
ToggleButton1.Caption = "AutoSize Off"
ToggleButton1.Value = False
ToggleButton1.AutoSize = True

TextBox1.WordWrap = False
ToggleButton2.Caption = "WordWrap Off"
ToggleButton2.Value = False
ToggleButton2.AutoSize = True

TextBox1.ScrollBars = 0
ToggleButton3.Caption = "ScrollBars Off"
ToggleButton3.Value = False
ToggleButton3.AutoSize = True

TextBox1.MultiLine = False
ToggleButton4.Caption = "Single Line"
ToggleButton4.Value = False
ToggleButton4.AutoSize = True
End Sub

Private Sub ToggleButton1_Click()
'Set AutoSize property and associated ToggleButton

If ToggleButton1.Value = True Then
TextBox1.AutoSize = True
ToggleButton1.Caption = "AutoSize On"
Else
TextBox1.AutoSize = False
ToggleButton1.Caption = "AutoSize Off"
End If
End Sub
Private Sub ToggleButton2_Click()
'Set WordWrap property and associated ToggleButton

If ToggleButton2.Value = True Then
TextBox1.WordWrap = True
ToggleButton2.Caption = "WordWrap On"
Else
TextBox1.WordWrap = False
ToggleButton2.Caption = "WordWrap Off"
End If
End Sub
Private Sub ToggleButton3_Click()
'Set ScrollBars property and associated ToggleButton

If ToggleButton3.Value = True Then
TextBox1.ScrollBars = 3
ToggleButton3.Caption = "ScrollBars On"
Else
TextBox1.ScrollBars = 0
ToggleButton3.Caption = "ScrollBars Off"
End If
End Sub
Private Sub ToggleButton4_Click()
'Set MultiLine property and associated ToggleButton

If ToggleButton4.Value = True Then
TextBox1.MultiLine = True
ToggleButton4.Caption = "Multiple Lines"
Else
TextBox1.MultiLine = False
ToggleButton4.Caption = "Single Line"
End If
End Sub

A+