[Toutes versions] Liste déroulante - Sélection puis affichage d'une autre donnée

[matbiz]

Bonjour le forum,

Je souterais faire une liste déroulante qui m'affiche différents choix, mais que ce soit une autre donnée qui s'affiche dans ma cellule à la place de mon premier choix.
Je m'explique: je travaille avec des compagnies aériennes qui ont un code et un nom. J'aimerais choisir le nom dans ma liste déroulante, mais que ce soit le code qui s'affiche. Exemple: choix de "Air France" dans la liste, puis affichage de "AF" dans la cellule.

Est-ce que c'est possible? Si oui, par quel moyen on doit passer?

Merci par avance de vos réponses.

[Daniel.C]

Bonjour,

Tu peux afficher le résultat voulu dans une cellule voisine en utilisant RECHERCHEV.

[matbiz]

Bonjour Daniel.C,

Merci pour ta réponse, je comptais utiliser cette méthode si je n'arrive pas à faire ce que je veux.

Si quelqu'un à une autre solution, je suis preneur

[Daniel.C]

Avec une macro, tu peux le faire. Le code suivant est écrit popur une liste de validation en D2 dont les données sont en colonne A (de A1 à A20); les données correspondantes à afficher sont en colonne B. Colle le code suuivant dans le module de la feuille :

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
26
27
28
29
30
31
32
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Var As Variant
If Target.Address = "$D$2" Then
    Application.EnableEvents = False
    Var = Application.VLookup([D2].Value, [A:B], 2, 0)
    With [D2].Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    [D2] = Var
    With [D2].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$20"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
    Application.EnableEvents = True
End If
End Sub

[Daniel.C]

Ou, beaucoup simplement :

Code :

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    [B1].Offset(Application.Match([D2].Value, [A:A], 0) - 1).Copy
    [D2].PasteSpecial xlPasteValues
    Application.EnableEvents = True
End Sub

[Daniel.C]

Bonjour,

Peux-tu donner un retour sur la solution que je t'ai proposée ou sur une autre que tu aurais adoptée ?