XL 2016 Insérer une ligne dans textbox d'un formulaire sans effacer le contenu existant

[Pexcel]

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.

J'ai fait plusieurs recherche sans sucés ...

Merci d'avance pour l'aide.

 

[Staple1600]

Bonjour le fil, Pexcel

Pexcel
Si j'ai bien compris

Private Sub CommandButton1_Click()
Cells(1).EntireRow.Insert , CopyOrigin:=0: Cells(1) = TextBox1: TextBox1 = ""
End Sub

 

[youky(BJ)]

Bonjour JM,
moi, j'ai compris comme ceci
Bruno

Private Sub CommandButton1_Click()
'feuil1.[A1] est le text qui viens se placer avant
TextBox1 = Feuil1.[A1] & Chr(13) & TextBox1
End Sub

 

[Staple1600]

Bonjour youky(BJ)

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.

Attendons les précisions du demandeur

 

[Pexcel]

Bonjour à tous !!!

dim maligne$
maligne = " ici j'insère une ligne en haut de ma grande textbox1, sans supprimer les autres "

Insérer ma variable ma ligne.

Merci et bon weekend.

 

[Staple1600]

Re

Pexcel
Si tu joignais un fichier exemple, on y verrait tout de suite plus clair, non ?

PS: Ta grande TextBox1 a sa propriété MultiLine paramétrée sur True ou pas ?

 

[Pexcel]

Re

Pexcel
Si tu joignais un fichier exemple, on y verrait tout de suite plus clair, non ?

PS: Ta grande TextBox1 a sa propriété MultiLine paramétrée sur True ou pas ?

re
Oui sur true

 

[Staple1600]

Re

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 ?

 

[Pexcel]

Re

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 ?

En fait l'insertion de la ligne doit se faire automatiquement, lorsque je fais le bon choix sur une combo box.

 

[Staple1600]

Re

Je le répète

Si tu joignais un fichier exemple, on y verrait tout de suite plus clair, non ?

Parce que sinon, on peut broder dans le vide...
Comme ci-dessous par exemple

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

 

[youky(BJ)]

Re à tous,
J'ai bien une petite idée . . . .
Je mettrais bien volontiers le code dans un fichier exemple.
Bruno

 

[Staple1600]

Re

youky(BJ)
On a la même idée (ou plutôt suggestion)
Mais elle semble rester lettre morte (côté demandeur)

 

[Pexcel]

Je prépare le fameux fichier

 

[patricktoulon]

Bonjour a tous
exemple

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

 

[Pexcel]

Voilà