XL 2019 Evénement click sur listbox

[tuonoman]

Bonjour à tous,

Je travaille actuellement sur un projet de gestion de stock sur excel, rien de très classique. Très novice en VBA je commence juste à me former

J’ai réussi à faire une première partie qui me permet de me créer mes produits, bouton « Créer un article » sur feuille tableau de bord.

J’ai réussi à faire un module de recherche par mot clé dans la partie modifier un article ( sur feuille tableau de bord ), attention pour l’instant uniquement la textbox « produit » fonctionne.

Mais à cet instant je bute sur le point suivant, en l’occurrence je souhaite réaliser un évènement click dans ma listbox me permettant de remplir automatiquement les textbox (Produit, détail, fabriquant …..) correspondant au produit que j’ai sélectionné dans ma listbox.



J’ai testé différentes solutions qui ne fonctionnent pas bien et dont la logique du code ne met pas très claire, j’ai donc volontairement rien mis dans « click listbox »

Quelqu'un aurait-il une solution à me proposer,

merci de votre aide

 

[JM27]

Bonjour
Je suppose que tu veux récupérer la ligne de la base de donnée cliquée dans la list box( en modification)
il suffit tout simplement de mettre le numéro de ligne en colonne 2 de la listbox(colonne masquée)
et après il suffit d'alimenter les autres objets.

comme tu as plusieurs objets , tu peux aussi documenter la propriété tag des différents objet avec le numéro de colonne correspondant de la base de données , et documenter les objets en créant une boucle sur ceux ci.

 

[tuonoman]

Merci @ JM27

Oui l’idée est là mais tu as remarqué que volontairement je restreins les informations qui apparaissent dans le « listbox » mais pour autant je souhaiterais si possible que lorsque je clic sur le résultat d’une recherche dans la listbox cela renseigne les textbox sous le listbox.

J’espère être plus claire

Merci

 

[JM27]

bonjour
comme cela ?

 

[tuonoman]

Juste parfait

Mais mon niveau actuel ne me permet pas de comprendre ton code

Private Sub listproduct_Click()


Dim Ctrl As Control


If Me.listproduct.ListIndex = -1 Then Exit Sub


'MsgBox (Me.listproduct.List(Me.listproduct.ListIndex, 1))


For Each Ctrl In Me.Controls


If Ctrl.Tag <> "" Then


Ctrl.Value = Feuil1.Cells(Me.listproduct.List(Me.listproduct.ListIndex, 1), CByte(Ctrl.Tag))


End If


Next


End Sub

As-tu le temps de commenter ton code pour m’aider a progresser.

Encore merci

 

[JM27]

bonsoir

Private Sub listproduct_Click()
    Dim Ctrl As Control
    ' si aucun élément est sélectionné , je sors
    If Me.listproduct.ListIndex = -1 Then Exit Sub
         ' Pour chaque controle de mon userform
         For Each Ctrl In Me.Controls
            ' si ceux ci ont une propriété tag de défini
            ' rappel dans la propriété tag des éléments à documenter j'ai inscris la colonne de la base de données
            ' exemple le détail est en colonne a la propriété tag : 3
            If Ctrl.Tag <> "" Then
               ' j'affecte au controle la valeur de la base de donnée
               ' exemple dans Me.listproduct.List(Me.listproduct.ListIndex, 1) est rangé la ligne sélectionnée
               ' CByte(Ctrl.Tag) est rangé la colonne de l'objet
               ' donc le controle est affectée à la valeur de la base de donnée intersection ligne/colonne
               ' et cela pour tout les contrôles ayant un tag documenté.
               Ctrl.Value = Feuil1.Cells(Me.listproduct.List(Me.listproduct.ListIndex, 1), CByte(Ctrl.Tag))
            End If
         Next

End Sub

Ci joint propriétés tag de la textboxDétail

 

[tuonoman]

Merci beaucoup tu m'as apporté de nouvelles connaissances

 

[tuonoman]

Bonjour JM27

je rencontre des difficultés avec le fichier d'origine, je n'arrive pas trouver le problème.

peux tu jeter un un coup d'œil et me mettre sur la piste

merci

 

[JM27]

bonjour
quand une combobox est en style dropdownlist , elle n'accepte pas des valeurs autres que celles inscrites dans la liste.
donc manufacture1 par exemple n'existe pas dans la liste de la combo fabricant : => plantage.
Si tu passes la combobox en dropdownCombo elle accepte des valeurs autre que celles de la liste des fabricant. :=> plus de plantage.
A toi de voir ce que tu souhaites faire : adapter ta base de données à tes listes sur tout l'ensemble des combo ou autoriser des saisies autres.

de plus dans la combo lieu de stockage la colonne de destination est 15 et non 14 !
il doit persister d'autres pb ( notamment des valeurs numériques transférées sous forme de texte )