textbox via combobox

[kinkalero]

bonjour tous le monde,

Dans mon application, je souhaite remplir une textbox via une combobox(sa g sais faire), mais là où g buche c'est que je souhaite mettre plusieurs datas dans ma textbox grace au bouton "ajouter" et "supprimer" et dès que l'on click sur OK toute ma textbox se transfert vers une seule cellule.

Ci joint un fichier pour plus d'informations...^^

En vous remerciant tous d'avance

Kinkalero

 

[Pierrot93]

Re : textbox via combobox

Bonjour Kinkalero, le forum

Si j'ai bien compris ton problème, peut être le code ci dessous à inséré dans le module de ton USF

Private Sub CommandButton1_Click()
TextBox1 = TextBox1 & vbLf & ComboBox1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Feuil1!liste")
TextBox1.MultiLine = True
End Sub

Dis nous si cela te conviens.
Bonne journée.
@+

 

[Hervé]

Re : textbox via combobox

bonjour

une autre possibilité en passant par une listbox (sinon, je vois pas comment gérer le bouton supprimer.

méfie toi de rowsource.

salut

 

[pierrejean]

Re : textbox via combobox

bonjour Kinkalero

Salut Pierrot93
Salut Hervé

ma version

je regarde les votres

 

[kinkalero]

Re : textbox via combobox

Nikel Merci à tous pour vos réponse
J'ai opter pour l'idée de Hervé, merci encore.

 

[pierrejean]

Re : textbox via combobox

re

@ Hervé

tu as peut-etre perdu l'aide d'Excel

mais nous on a la tienne

et Qu'est-ce qu'elle es bonne !!!

 

[kinkalero]

Re : textbox via combobox

Bonjour à tous

j'ai tester les formule, sa fonctionne bien avec vos exemples mais sur mon application, les noms ne vont pas à la ligne....
j'applique pourtant les formules comme vous...:

Private Sub CommandButton5_Click()
dest = dest & ComboBox5 & Chr(10)
End Sub

Private Sub CommandButton6_Click()
texte = Left(dest, Len(dest) - 1)
For n = Len(texte) To 1 Step -1
If Mid(texte, n, 1) = Chr(10) Then
dest = Left(texte, n)
Exit For
End If
Next n
End Sub

je joint une image du problème

Merci

Kinkalero

 

[Pierrot93]

Re : textbox via combobox

Bonjour Kinkalero, PierreJean, Hervé

la propriéte "MultiLine" de ton "textbox" est elle bien à "True" ?

Bonne après midi
@+