Liste déroulante "conditionelle"

[Thrimph]

Bonjour

Nouvel inscrit sur ce forum, je sollicite votre aide non sans avoir cherché une solution à mon problème, solution que je n'ai pas trouvé (certainement du à une mauvaise recherche car je suis sur que le problème a déjà été soulevé).

Je m'explique:

J'ai un fichier excel dont le premier classeur contient une liste de pays en 1ère colonne, puis sur la 1ère ligne de chaque colonne, le nom d'un produit. Dans le reste du classeur, je met des croix si le produit est commercialisé dans le tableau.

Chaque autre classeur du fichier correspond à un produit. Dans chaque classeur je vais mettre diverses infos concernant le produit. L'une d'entre elle est la liste des produits dans lesquels le produit est commercialisé. Ainsi, je veux faire une liste déroulante qui va m'afficher la liste des pays pour lesquels il y aura une croix sur le premier classeur.
Par exemple, pour le produit A, je ne veux que les Pays 1, 2 et 4.

Aussi bête que cela à l'air, je n'y arrive pas 🙁

Voila pourquoi je sollicite votre aide. Cerise sur le gateau, si celle liste peut être évolutive (ajout d'une croix qui se répercute sur la liste voire même ajout d'un nouveau pays) ce serait tip top

Un grand merci d'avance

PS : Pour mieux comprendre, le fichier excel est en PJ.

 

[JCGL]

Re : Liste déroulante "conditionelle"

Bonjour à tous,

Bienvenue sur XLD

Un essai sans traitement des vides dans les listes

A + à tous

 

[Dugenou]

Re : Liste déroulante "conditionelle"

Bonjour trimph, JCGL, le forum,

Pour compléter la proposition de JCGL (que je salue) : liste sans les vides

Cordialement

 

[BOISGONTIER]

Re : Liste déroulante "conditionelle"

Bonjour,

Voir PJ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$8" Then
    Set d = CreateObject("Scripting.Dictionary")
    Set f = Sheets("Liste Pays Produit")
    p = Application.Match([B1], f.[B1:D1], 0)
    If Not IsError(p) Then
     For Each c In f.Range("B2:B8").Offset(, p - 1)
       If c = "x" Then d(c.Offset(, -p).Value) = ""
     Next c
     Target.Validation.Delete
     Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
    End If
  End If
End Sub

JB