textbox via combobox

Pierrot93

XLDnaute Barbatruc

• 17 Octobre 2006

• #2

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

Code:

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.
@+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 17 Octobre 2006

• #3

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

 

Pièces jointes

• Classeur2.zip

  11 KB · Affichages: 50
• Classeur2.zip

  11 KB · Affichages: 58
• Classeur2.zip

  11 KB · Affichages: 58

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Octobre 2006

• #4

Re : textbox via combobox

bonjour Kinkalero

Salut Pierrot93
Salut Hervé

ma version

je regarde les votres

 

Pièces jointes

• Classeur2.xls

  30 KB · Affichages: 82
• Classeur2.xls

  30 KB · Affichages: 86
• Classeur2.xls

  30 KB · Affichages: 93

Vote positif 0 Vote négatif

kinkalero

XLDnaute Occasionnel

• 17 Octobre 2006

• #5

Re : textbox via combobox

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Octobre 2006

• #6

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 !!!

 

Vote positif 0 Vote négatif

kinkalero

XLDnaute Occasionnel

• 20 Octobre 2006

• #7

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

 

Pièces jointes

• test.JPG.zip

  9 KB · Affichages: 38

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2006

• #8

Re : textbox via combobox

Bonjour Kinkalero, PierreJean, Hervé

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

Bonne après midi
@+

 

Vote positif 0 Vote négatif