combobox.text = textbox

**oscar.cesar** · 09/08/2007, 19h42

bonjour
je souheterai recuperer les valeurs combobox1.text d'un ComboBox1_Change et
les afficher dans un textbox)
actuellement les valeurs combobox1.text s'affichent les unes par dessus les autres dans le textbox1.
alors que je voudrais les voir les unes en dessous des autres tant que je n'ai pas
fait un RAZ du textbox1

voila le debut decode que j'ai crée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change() 
TextBox1.Text = ComboBox1.Text & vbLf
End Sub

merci

**jfontaine** · 09/08/2007, 20h16

c'est plutot dans le combobox1_change qu'il faut mettre le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub combobox1_Change() 
if textbox1.text<>"" then textbox1.text=textbox1.text & chr(13)
TextBox1.Text = ComboBox1.Text
End Sub

**oscar.cesar** · 09/08/2007, 20h59

ok merci je regarde cela

**oscar.cesar** · 09/08/2007, 21h06

negatif pour moi le contenu de la textbox reste affiche sur une seule ligne.?

**jfontaine** · 09/08/2007, 21h09

as tu mis la propriete de la textbox a multiligne= true

**oscar.cesar** · 09/08/2007, 21h11

yes

**jfontaine** · 09/08/2007, 21h11

excuse j'ai oublié un truc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Text = TextBox1.Text & ComboBox1.Text

**oscar.cesar** · 09/08/2007, 21h14

super merci

combobox.text = textbox

Macros et VBA Excel

Discussions similaires

Partager

Partager