Discussion :

[Walt51]

Bonjour,

J'ai un classeur Excel 2003 avec une feuille "création de commande" et une "Base articles"
Dans la "Création de commandes" j'ai des menus déroulant permettant de sélectionner des références d'articles prérenseigné dans la "Base articles".
Cette "Base articles" est un tableau avec une colonne "n° référence", "désignation"....

J'aimerai que dans mes menus déroulants dans la "Création de commandes" s'affiche (en complément) du n° de référence la désignation correspondante.
Attention, je ne cherche pas à Concaténer les 2 colonnes. Simplement à donner un complément d'information dans le menu déroulant.

Es-ce possible?

Merci,

Walt

[orducom1]

Salut Walt,

Je ne comprends pas bien ton besoin ... tu cherches à avoir "n° référence" et "désignation" dans le même menu déroulant, c'est bien ça ?
Question subsidiaire, qu'est qui te bloque pour créer une colonne qui concaténerait "n° référence" et "désignation" ?

A priori, il semble qu'Excel ne permette pas de le faire par liste de choix
C'est possible avec un peu de code pour créer un "ComboBox" qui se déclenche quand tu cliques la cellule de destination pour la remplir. Est-ce que cela peut répondre à ton besoin ?

Cdlt

[Walt51]

Bonjour,

Précisément je cherche à avoir une présentation plus conviviale.

Actuellement j'ai ma feuille de commande avec une colonne "N° de référence" puis une colonne "Désignation" puis une colonne "Matière"....
Les menus déroulant sont dans la colonne "N° de référence",
Quand dans la ligne 1 par exemple, je choisi un N° de référence dans le menu déroulant, les autres colonnes se remplissent automatiquement via une macro
PB: Les n° de référence ne sont pas trop parlant et parfois il faut recommencer plusieurs fois avant de trouver la bonne référence.

J'aimerai avoir dans le menu déroulant une présentation du genre
"N° de référence" - "Désignation"

Par exemple:

156466 - Axe droit
156467 - Axe gauche
157598 - Pivot

J'ai récupéré ce code

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer, MaListe As String
If Target.Column <> 2 Then Exit Sub
For I = 1 To Target.Row
    MaListe = MaListe & ";" & Range("A" & I) & " " & Range("B" & I)
Next I
MaListe = Right(MaListe, Len(MaListe) - 1)
With Range("D1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=MaListe
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
Calculate
End Sub

Le problème est que le résultat obtenu est:

156466 - Axe droit

Alors que j'aimerai seulement 156466

Est plus clair?

Cordialement

[orducom1]

Impec

Là ou tu récupères la valeur de ta liste déroulante tu dois "spliter" la valeur

Remplaces en ligne 11

Code :

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

Formula1:=MaListe

par

Code :

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

Formula1:=Trim(Split(MaListe, "-")(0))

Trim supprime les espaces qu'ils pourraient y avoir
Split éclate ta chaîne sur le "-" et la transforme en tableau
(0) récupère la première entrée du tableau qui doit être le code produit "123456"

[Walt51]

Impec

Là ou tu récupères la valeur de ta liste déroulante tu dois "spliter" la valeur

Remplaces en ligne 11

Code :

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

Formula1:=MaListe

par

Code :

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

Formula1:=Trim(Split(MaListe, "-")(0))

Trim supprime les espaces qu'ils pourraient y avoir
Split éclate ta chaîne sur le "-" et la transforme en tableau
(0) récupère la première entrée du tableau qui doit être le code produit "123456"

Bonjour,
Je pense qu'on ne s'est pas bien compris.
J'ai 2 colonnes:
-A : "N° de réf" :156466...
-B : "Désignation" : Axe droit...

En "D4" j'aimerai voir " 156466 - Axe droit " mais j'aimerai récupérer uniquement "156466"

Voir le fichier jointEssai Concaténation.xls