Liste: selectionner une description, mais afficher un code?
1 réponse
Twistal
Bonjour,
J'ai une table comportant une colonne avec un code produit une colonne pour
la description complète du produit.
La clef de voute de mon fichier Excel est une cellule dans laquelle je
rentre le bon code produit en fonction du produit que je veux analyser.
Ce que je voudrais faire, c'est accoler une liste à la cellule. la liste
donnerait les différentes descriptions du produit, mais une fois qu'on a
selectioné un produit je voudrais que ce soit bien le code qui s'affiche dans
la cellule.
Pour l'instant je peux afficher uniquement les codes (menu, données,
validation, + eventuellement fonction décaler pour que ma liste soit
dynamique) mais l'utilisateur ne pourra jamais savoir quel code choisir car
ils ne sont pas du tout "evocateurs" j'ai vraiment besoin d'afficher la
description...
Je ne suis pas très à l'aise avec les listes, ni dans Excel pur ni dans VBA,
donc j'ai sûrement raté une solution toute simple, alors je vous écoute...
Merci beaucoup, ce forum m'est d'une aide précieuse!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
PJ http://cjoint.com/?btlIg4p0RI
Code Description 55391 *PRESSE A POINCONNER 50T 55907 *RECTIFIEUSE CYLINDRIQUE CN 56211 *CABINE DE PEINTURE 56637 *MACHINE A LAVER HAFROY 56726 *GRENAILLEUSE CN 5 56913 *GRENAILLEUSE CN 6 70021 *CABINE DE PEINTURE CEL 7 70064 *CHAINE*E* ATTAQUE MACRO
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" And Target.Count = 1 Then Range("C3") = Range("code").Cells(Application.Match(Target.Value, Range("description"), 0), 1) End If End Sub
Cordialement JB
Bonjour,
PJ http://cjoint.com/?btlIg4p0RI
Code Description
55391 *PRESSE A POINCONNER 50T
55907 *RECTIFIEUSE CYLINDRIQUE CN
56211 *CABINE DE PEINTURE
56637 *MACHINE A LAVER HAFROY
56726 *GRENAILLEUSE CN 5
56913 *GRENAILLEUSE CN 6
70021 *CABINE DE PEINTURE CEL 7
70064 *CHAINE*E* ATTAQUE MACRO
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" And Target.Count = 1 Then
Range("C3") = Range("code").Cells(Application.Match(Target.Value,
Range("description"), 0), 1)
End If
End Sub
Code Description 55391 *PRESSE A POINCONNER 50T 55907 *RECTIFIEUSE CYLINDRIQUE CN 56211 *CABINE DE PEINTURE 56637 *MACHINE A LAVER HAFROY 56726 *GRENAILLEUSE CN 5 56913 *GRENAILLEUSE CN 6 70021 *CABINE DE PEINTURE CEL 7 70064 *CHAINE*E* ATTAQUE MACRO
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" And Target.Count = 1 Then Range("C3") = Range("code").Cells(Application.Match(Target.Value, Range("description"), 0), 1) End If End Sub
