Discussion :

[kressano]

Bonjour a tous !

Je suis en train de créer un fichier excel pour la gestion de produit via des useform.





J'utilise pour ce faire une listbox que j'alimente via une colonne 'code_produit'. Tout fonctionne jusque là.
Maintenant, je veux que mes textbox soient mises à jour avec les spécifications du produit sélectionné via ma listbox.
Et c'est là que je me casse les dents depuis 3 jours. J'ai bien trouvé des pistes et des astuces sur le net mais je n'y arrive tout simplement pas.
Ci joint une partie du code de test, pour que vous puissiez mieux apréhender ce que je veux faire.

Code :

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

1
2
3
4
5
6
7
8
 
'Verifier si l item est selecté
If List_Produits.ListIndex = -1 Then
MsgBox "Aucun produit sélectionné", vbExclamation, "Erreur de saisie"
Else
MsgBox "Vous avez sélectionné : " & List_Produits.Value, vbInformation, "Message de confirmation"
'Ed_Nom = JE SAIS PAS QUOI METTRE au secours !
End If

Je veux pouvoir utiliser la valeur de la liste produit pour m'en servir comme pointeur et ainsi extraire mes données et remplir mes textbox.

Si quelqu'un a une idée, je suis preneur.

Merci à tous !

[Invité]

Bonjour,


Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Dim CtrI As Long
 
    If List_Produits.ListCount > 0 Then
        For CtrI = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(CtrI) = True Then
                 MsgBox "Vous avez sélectionné : " & List_Produits.List(CtrI), vbInformation, "Message de confirmation"
            End If
        Next CtrI
 
     End If

Cordialement.

[thebenoit59]

Bonjour kressano, bonjour Eric.

Si tu peux mettre à disposition un exemple de ligne avec le produit et les différentes valeurs à afficher dans les TextBox ça permettrait de voir la solution possible à fournir.

[kressano]

Bonjour Eric et Benoit

J'ai bien vu ton code Eric, et c'est justement ce que je veux éviter : passer par un index numérique.
En fait, je tiens vraiment à travailler avec le code_produit. Il me faudrait une astuce en VBA du genre =RECHERCHEV($B$8;produits;2;FAUX)



Comme tu peux voir Benoit, j'ai une listbox qui me permet de choisir le produit voulu. Lorsque je clique sur un en particulier et ensuite sur le bouton modifier, je récupère la valeur contenue dans value.



C'est avec ce qui est stockée dans value que je souhaite ensuite pointer dans mon tableau excel, plage code_produit, pour extraire les données dans chaque colonnes et les placer dans un textbox.

[Invité]

C'est avec ce qui est stockée dans value que je souhaite ensuite pointer dans mon tableau excel, plage code_produit, pour extraire les données dans chaque colonnes et les placer dans un textbox.

Un exemple dans le fichier joint Pièce jointe 206364

Pièce jointe 206365

Le code sur clic du ListBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub List_Produits_Click()
 
 Dim CtrI As Long
 
    If List_Produits.ListCount > 0 Then
        For CtrI = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(CtrI) = True Then
 
                 For Each CelluleProduits In AireProduits
                     If CelluleProduits = List_Produits.List(CtrI) Then
                        TextBoxLibelle = CelluleProduits.Offset(0, 1)
                        TextBoxDisplay = CelluleProduits.Offset(0, 2)
                        TextBoxBarres = CelluleProduits.Offset(0, 3)
                        TextBoxShipper = CelluleProduits.Offset(0, 4)
                     End If
 
                 Next CelluleProduits
 
            End If
        Next CtrI
 
     End If
 
End Sub

Cordialement.

[kressano]

Bonjour Eric, désolé de ne pas avoir répondu avant, un mariage (le mien entre autres ) m'a monopolisé .

Bref, je me replonge dans le code aujourd'hui et j'ai trouvé la solution grace a toi. Encore merci de ton temps !