Bonjour,
Pourquoi ne pas utiliser les propriétés "MultiLine" et "Autosize"?
Sans ces propriété, je ne vois pas comment tu pourrais mettre à la ligne dans ton TxtBx, à part une usine à gaz...
Comme ceci, le TxtBx réagit comme tu le souhaites, mais si tu n'en veux pas, ça va pas être simple...
PS, ton USF ne fait pas 300 de largeur, donc en mettant une largeur de 300 à ton TxtBx, tu ne verras pas tout...
Private Sub UserForm_Initialize()
With Me.TextBox1
.Text = Range("L6").Text
.MultiLine = True
.Width = 300
.AutoSize = True
End With
End Sub
Autrement, je ne pense pas savoir faire...
Bon courage