Bonjour,
tout est dans le sujet donc ... j'ai une textbox dans un formulaire, et je voudrai pouvoir insérer sur la première ligne du haut une phrase en faisant descendre le contenu existant dans l’effacer.
Alors en lisant ta réponse, je me suis dis: "Et si c'était, bon sang mais bien sûr!"
TextBox1 avec propriété MultiLine sur True
Et dans ce cas, quand l'userform est affiché, on saisit "une phrase" dans le TextBox puis SHIFT+ENTREE pour passer à la ligne suivante sans effacer la précédente.
Dans ce cas, où est le problème?
Si tu saisis une ligne dans ton TextBox et que tu valides par SHIFT+ENTREE tu vas à la ligne sans perdre la ligne précédente, non ?
Dans ce cas, où est le problème?
Si tu saisis une ligne dans ton TextBox et que tu valides par SHIFT+ENTREE tu vas à la ligne sans perdre la ligne précédente, non ?
Parce que sinon, on peut broder dans le vide...
Comme ci-dessous par exemple
VB:
Private Sub CommandButton1_Click()
Dim t, Derligne&, Val_Derligne$
If InStr(TextBox1, Chr(10)) = 0 Then Exit Sub
t = Split(TextBox1, Chr(10))
Derligne = UBound(t)
Val_Derligne = t(UBound(t))
Cells(Derligne + 1, 1) = Val_Derligne
End Sub
Private Sub CommandButton1_Click()
Dim phrase
phrase = "ce que tu veux patin couffin etc.. et tout le reste et meme plus "
With TextBox1
.MultiLine = True ' au cas ou ca ne serait pas fait
.WordWrap = False ' avec false si la phrase est trop longue il y en aura une partie qui sera non visible , avec true le textbox subit le wordwrap et adapte le nombre de ligne
.Value = phrase & vbCrLf & .Value
End With
End Sub