Comment alimenter un textbox depuis une plage de cellules, pointé au travers d'une listbox ?

Version imprimable

1 pièce(s) jointe(s)

Bonjour a tous !

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

Pièce jointe 206316

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:

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 !

Bonjour,

Une piste :

Code:

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.

08/04/2016, 10h27
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.
08/04/2016, 13h52
kressano

2 pièce(s) jointe(s)

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)

Pièce jointe 206352

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.

Pièce jointe 206353

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.

Citation:

Envoyé par kressano

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:

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.

19/04/2016, 21h02
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 !
19/04/2016, 21h33
Invité

Citation:

Envoyé par kressano

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

Bonsoir Kressano,
Alors tu as mieux à faire que de l'informatique.... :scarymov:

Cordialement.