Discussion :

[operaq]

Bonjour,

Peut on figer une largeur prédéfinie pour une Textbox dont le AutoSize et MultiLine sont autorisés

La possibilité d'ajustement automatique verticale me convient parfaitement, mais hélas cela le fait horizontalement aussi et word ne semble pas trouver ça gênant que la textbox puisse se barrer de sa feuille.

[Sepia]

Salut operaq,

Dans ce cas non, pas à ma connaissance.

@+

[operaq]

Merci de ta réponse,

C'est dommage, du coup j'ai choisi une autre option, pas de autosize mais une limitation de ligne;

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub TextBox1_Change()
' Limit the number of lines allowed
Dim MaxNumLines As Integer
MaxNumLines = 10
    Temp = LimitLines(TextBox1, MaxNumLines)
End Sub
 
Public Function LimitLines(Control1 As TextBox, int1 As Integer)
' Limit the number of line in a textbox
    Count = CountReturns(Control1)
    If Count > int1 Then
        TempLen = Len(Control1.Value)
        TempStr = Left(Control1, TempLen - 2)
        Control1.Value = TempStr
    End If
End Function
 
Public Function CountReturns(String1)
' Count the number of returns in the supplied string
Inc = 1
Count = 1
StrLen = Len(String1)
While Inc < (StrLen + 1)
    X = Mid(String1, Inc, 1)
    If X = Chr$(13) Then Count = Count + 1
    Inc = Inc + 1
Wend
CountReturns = Count
End Function

Malheureusement étant débutant en VBA je ne fais que recopier, je commence à déchiffrer avec plus de facilité mais cela reste encore très vague.

Ici j'aimerais utiliser ce code pour d'autre TextBox (TextBox2, TextBox3 etc..), mais je n'arrive pas à trouver tout ce que je dois changer exactement.



EDIT: finalement ca marche simplement en nommant TextBox1_Change() il me semblant que ca ne fonctionnait pas après nouvelle essai plus de souci.