deudecos
XLDnaute Impliqué
Bonjour à toutes et à tous,
Malgré mes recherches, je ne parviens pas à élucider mon problème que je vous expose maintenant.
J'ai, dans un UserForm, une ListeBox multicolonne, qui, quand je clique sur une ligne de celle-ci, me donne la valeur de la colonne choisie via BoundColumn et l'inscrit dans une TextBox.
Jusque là, tout va bien. Mon soucis, c'est que je voudrais récupérer, dans une autre TextBox, la valeur d'une autre colonne de la même ligne. Je pensais pouvoir le faire en modifiant la valeur BoundColumn, Mais ça me fait lamentablement planter.
Le code utilisé:
Private Sub ListBox1_Click()
UserForm1.ListBox1.BoundColumn = 1
UserForm1.TextBox1=UserForm1.ListBox1.Value
UserForm1.ListBox1.BoundColumn = 2
UserForm1.TextBox2=UserForm1.ListBox1.Value
End Sub
Quand je clique, tout s'arrête et je ne peux plus m'en sortir qu'en faisant un Ctrl, Alt, Suppr...
Si quelqu'un sait pourquoi ça plante et connait la solution. Je serais ravi de la connaitre à mon tour!
Bonne journée.
Olivier
Malgré mes recherches, je ne parviens pas à élucider mon problème que je vous expose maintenant.
J'ai, dans un UserForm, une ListeBox multicolonne, qui, quand je clique sur une ligne de celle-ci, me donne la valeur de la colonne choisie via BoundColumn et l'inscrit dans une TextBox.
Jusque là, tout va bien. Mon soucis, c'est que je voudrais récupérer, dans une autre TextBox, la valeur d'une autre colonne de la même ligne. Je pensais pouvoir le faire en modifiant la valeur BoundColumn, Mais ça me fait lamentablement planter.
Le code utilisé:
Private Sub ListBox1_Click()
UserForm1.ListBox1.BoundColumn = 1
UserForm1.TextBox1=UserForm1.ListBox1.Value
UserForm1.ListBox1.BoundColumn = 2
UserForm1.TextBox2=UserForm1.ListBox1.Value
End Sub
Quand je clique, tout s'arrête et je ne peux plus m'en sortir qu'en faisant un Ctrl, Alt, Suppr...
Si quelqu'un sait pourquoi ça plante et connait la solution. Je serais ravi de la connaitre à mon tour!
Bonne journée.
Olivier