Selectionner une valeur d'une listbox

  • Initiateur de la discussion Mickaël
  • Date de début
M

Mickaël

Guest
Bonjour le forum

Bon alors, une question en amenant une autre.

Alors j'ai des valeurs dans ma listbox1.
Je click sur une valeur, elle se surligne.

Je voudrai que la valeure sur laquelle je click vienne ce placée dans une textbox.

Alors j'ai essayer un truc tout bete.

textbox1 = listbox1

il doit manquer QQchose.

merci pour votre aide.
 
@

@+Thierry

Guest
Re Salut Mickaël, le Forum

Pour ta question tu es tout bon, mais c'est l'évènement qui te manque .... Pour le Click, il suffit de faire ceci :

Private Sub Listbox1_Click()
TextBox1 = ListBox1
End Sub

Bon aprèm
@+Thierry
 
Dernière modification par un modérateur:
@

@+Thierry

Guest
Re Mickaël, Laeti, le Forum

Disons que si vos codes sont écrits d'une manière cohérente, il n'est pas nécessaire de spécifier Value car c'est la propriété par défaut de ces deux Controls ActiveX (TextBox et ListBox)

Et donc ceci devrait suffir
Private Sub Listbox1_Click()
TextBox1 = ListBox1
End Sub

Attention pour
TextBox1 = ListBox1.Text
Car la propriété Text dans une ListBox ou ComboBox est plutot utilisé pour changer the selected row avec un Matching. Mais dans le cas présent qui nous interesse celà peut fonctionner avec Text.

Ensuite
Il est possible que ton problème provienne d'une sorte de "croisement d'évènements"...
Par exemple tu as dois faire attention aux évènements qui s'enchainent...

Private Sub ListBox1_AfterUpdate()
TextBox1 = "Toto"
End Sub
Private Sub Listbox1_Click()
TextBox1 = ListBox1
End Sub
Private Sub ListBox1_Change()
TextBox1 = ""
End Sub
Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = "Titi"
End Sub

Et ben que va-t'il y avoir dans la TextBox1.... Hi hi hi ... (Mdrrr) Je suis vache là !!!

Bon enfin j'ai mis ce qu'il fallait dans la Démo ci-jointe... Et çà fonctionne sur le Click des ListBox Respectives... Quoique à ce stade je ne vois pas encore l'utilité de faire reporter dans des TextBox la Sélection de ListBox...

Bon Fin de Journée
@+Thierry
 

Pièces jointes

  • USF-AutoFilter-Collection.01.00.zip
    17.2 KB · Affichages: 440

Discussions similaires

Réponses
8
Affichages
397

Statistiques des forums

Discussions
312 211
Messages
2 086 299
Membres
103 172
dernier inscrit
Aurelyan