Menu déroulant: 2 colonnes (sans concatener)

Bonjour,

Toujours pas possible avec une validation par liste.

Mais comme tu as l'air d'y tenir une proposition avec une combobox.
En sachant que ces objets sont parfois plus ou moins bien gérés s'ils sont sur une feuille...
Ne viens pas réclamer si tu as une image fantôme de la liste qui apparait sur ta feuille.
https://www.cjoint.com/c/CEFo6Gc9QQl

eric

Bonjour,

(sans concatener)
Pourquoi ?
Ca ne vaut pas le coup de mettre du vba parce que tu t'interdis la concaténation.
Ajoute-toi une colonne et fais ta liste de dessus.

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

La source de la validation de données doit être

BE Belgique;FR France;NL Pays-Bas;GB Grande-Bretagne;...

On fait des tableaux croisés dynamiques sur cette colonne finale et souhaiterions que la colonne soit "courte"
Concrètement ce n'est pas
BE / FR / NL
ni
Belgique / France / Pays-Bas

mais
WARL
WCHR
WEMA
WLIE
WMOR
qui sont des codes qui représentent une région, la politique ici, est de garder cette colonne tel quel mais les nouveaux ne pourront pas deviner à quoi correspond ce code.
Je souhaiterais donc que l'utilisateur voit
WARL - Entreprise Y d'Arlon
WCHR - Entreprise X de Charleroi
...

Ca peut justifier mon besoin? :)

Bonjour,

toujours la même réponse :
fais-toi une colonne pour ta liste et une autre pour ton TCD.
eric

Salut le fil,

pour info, un petit tour ici

https://www.commentcamarche.net/faq/33516-excel-afficher-plusieurs-colonnes-dans-une-liste-de-validation

Ok, merci...

J'aurais souhaité que cela ressemble à ceci:
https://www.cjoint.com/c/CEFovYl5Ns8
Mais d'après ce que je vois je rêve de trop :)

TROP-CLASSE !

Quel est l'inconvéniant?

Je dois coller

Option Explicit

Private Sub ComboBox1_Change()
    ActiveCell = ComboBox1
    ComboBox1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [C2:C12]) Is Nothing And Target.Count = 1 Then
        With Worksheets("Listes")
            ComboBox1.List = .Range("A2:B" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
        End With
        With ComboBox1
            .Value = Target
            .Left = Target.Left
            .Top = Target.Top
            .Visible = True
        End With
    Else
        ComboBox1.Visible = False
    End If
End Sub

dans le VBA dans la feuille en question?
(et aussi créer ma liste dans une autre feuille)

C'était l'occasion de les tester tous et voir les possibilités. Faut pas être timide...

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Je dois créer un petit rectangle pour chacune de mes lignes? (12077 actuellement?).......

En plus, niveau mise en page, c'est pas très... esthétique.
Misère, tout ça, pour ça,... lol