Voir la listBox selectionnée
Bonjour à tous,
Je suis en train de travailler sur un sujet où je travaille avec du VBA. Mais mon problematique est telle :
j'ai créé un userform contenant une liste box laquelle contient des données. Je souhaiterai créeer un autre liste box2 (ou textbox) dans laquelle chaque ligne de listbox1 selectionnée apparait sur la deuxieme liste box. Par exemple lorsque je sélectionne la ligne 2 de la listboxt1 le code(ex:FR247) de la première colonne doit apparaître sur la listbox 2 (entourée en bleu).
Je vous joins le fichier simplifié.
Merci d'avance,
Alban
Bonjour,
En supposant que vous n'afficher qu'un seul matériel,
Remplacez votre listbox par une Textbox.
Ensuite mettez ce code dans l'userform
Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex)
End SubCela va afficher le numéro du matériel choisi.
Cordialement
Bonjour,
Merci de votre réponse.
Et effectivement ce code marche parfaitement.
Merci encore une fois.
Bonne journée,
Alban
Rebonjour,
J'ai un autre souci en effet maintenant j'essaie de modifier les données déjà enregistrer mais je n'y arrive pas avec le codes que j'ai mit en place.
Pourriez-vous m'aider a ce sujet s'il vous plait?
Bien cordialement,
Alban
Re
J'ai un autre souci en effet maintenant j'essaie de modifier les données déjà enregistrer mais je n'y arrive pas avec le codes que j'ai mit en place.
Est-ce normal de laisser modifier la réf FRxxx, quand vous êtes en modification ?
Dans le code, on dirait que vous utilisez le bouton Modifier pour Ajouter ?
Bonjour Dan,
non c'est bien le bouton pour modifier les données. J'ai juste mal ecrit le msgBox du bouton.
Ci-joint vous trouvez le fichier corrigé.
Re
Votre fichier en retour pour test avec l'adaptation de la macro bouton Modifier
J'ai aussi modifié :
- le code Private sub initialize
- le code Private Sub ListBox1_Click()
Cordialement
Rebonjour Monsieur Dan,
Merci beaucoup de votre retour.
Le fichier fonctionne parfaitement.
Merci encore une fois de votre aide.
Bonne fin de journée.
Alban
Re
Parfait donc
Bonne fin de journée
Rebonjour,
En effet je détecte un problème lors de l’exécution. il affiche une erreur " incompatibilité de type".
Aurions-vous une idée de ce problème.
Rebonjour,
Non c'est bon finalement j'ai trouvé mon erreur. Dans l'option TabIndex de mon ListBox j'avais mit 9 au lieu de 20.
Merci
Bonjour de nouveau.
Non non non j'ai rien dit ça marche tjs pas malheureusement.
Re
Ben si mais bon si vous n'utilisez pas les codes dans la fichier que j'ai joint...
Dans la private sub initialize, ce n'est pas ce que je vous ai donné
remplacez le ROWSOURCE par LIST (mon conseil comme toujours avec Rowsource, ... laissez tomber cette instruction, on toujours des soucis à un moment ou un autre)
Cordialement