XL 2013 VBA VLOOKUP???

[piskely]

Bonjour,
Je suis entrain de mettre en place une petite application de gestion de stock.
Mon souhait est que lorsque je veux ajouter une entrée ou sortie, je voudrai que "Label9" affiche le nom de l'article sélectionné.

exemple: ART-0004 sélectionné; "Label9" affiche "BIC BLEU".
je vous remercie d'avance de votre soutien.

 

[Dudu2]

Bonjour,

Perso j'ajouterais ça dans le code du UserForm en utilisant le nom de la colonne Nom du Tableau3.

Private Sub Cbx_article_Click()
    Me.Label9.Caption = Range("Tableau3[Nom]").Cells(Cbx_article.ListIndex + 1).Value
End Sub

 

[soan]

Bonsoir piskely, Dudu2,

Je propose ceci :

Private Sub Cbx_article_Change()
  If Cbx_article <> "" Then Label9.Caption = Application.VLookup(Cbx_article, [Article!B6:C11], 2, 0)
End Sub

Tu peux ajouter cette sub par exemple sous la sub Option_sortie_Click()

Comme je ne suis pas calé sur les TCD, je te laisse adapter [Article!B6:C11].

Je crois que la solution de Dudu2 est meilleure que la mienne ;
à tout hasard, je laisse quand même cette solution.

soan

 

[piskely]

Bonjour,

Perso j'ajouterais ça dans le code du UserForm en utilisant le nom de la colonne Nom du Tableau3.

Private Sub Cbx_article_Click()
    Me.Label9.Caption = Range("Tableau3[Nom]").Cells(Cbx_article.ListIndex + 1).Value
End Sub

Vous êtes les meilleurs! Mon problème est résolut.
Merci pour

 

[piskely]

Bonsoir piskely, Dudu2,

Je propose ceci :

Private Sub Cbx_article_Change()
  If Cbx_article <> "" Then Label9.Caption = Application.VLookup(Cbx_article, [Article!B6:C11], 2, 0)
End Sub

Tu peux ajouter cette sub par exemple sous la sub Option_sortie_Click()

Comme je ne suis pas calé sur les TCD, je te laisse adapter [Article!B6:C11].

Je crois que la solution de Dudu2 est meilleure que la mienne ;
à tout hasard, je laisse quand même cette solution.

soan

Merciiiiiii.
j'ai appliqué la solution de Dudu2 comme suggéré.

 

[Pounet95]

Private Sub Cbx_article_Change()
    Label9.Caption = Chercher_Libellé(Cbx_article.List(Cbx_article.ListIndex))
End Sub

 

[Pounet95]

Bonjour à toutes et tous
J'ai commencé à écrire le post précédent alors qu'aucune réponse n'était affichée (compteur à 0), Après avoir collé ce bout de code, les réponses sont apparues. Je pensais avoir effacé mais on dirait que ça n'a pas marché !
Et, à l'instant, bis repetita, un message me demande si je veux voir les réponses nouvelles ??????
Bizarre , non ?

 

[piskely]

Bonjour à toutes et tous
J'ai commencé à écrire le post précédent alors qu'aucune réponse n'était affichée (compteur à 0), Après avoir collé ce bout de code, les réponses sont apparues. Je pensais avoir effacé mais on dirait que ça n'a pas marché !
Et, à l'instant, bis repetita, un message me demande si je veux voir les réponses nouvelles ??????
Bizarre , non ?

Bonjour,
ça ne fait rien, au contraire nous avons une solution de plus.
Merci en tout cas