Liste déroulante dynamique

[doudoualex77]

Bonjour,

Je cherche à créer une liste déroulante dynamique, je m'explique:
Dans un onglet j'ai ma BdD:
Colonne A Colonne B
Ref1 Code1
Ref1 Code2
Ref1 Code3
Ref2 Code1
Ref2 Code3
Ref3 Code4
Ref3 Code5
Etc...
Dans un autre onglet, je voudrais que lorsque je rentre une quelconque "Ref" dans la cellule A1 par exemple, que dans la cellule B1 apparaisse une liste déroulante des "codes" associés.
Je n'ai pas été en mesure de trouver la solution à mon problème :/

Merci d'avances à ceux qui liront ou auront des pistes à me proposer.
Cordialement,
Alex

 

[BOISGONTIER]

Re : Liste déroulante dynamique

Bonjour,

Listes en cascade

JB

 

[doudoualex77]

Re : Liste déroulante dynamique

Merci pour cette réponse aussi rapide.

 

[JHA]

Re : Liste déroulante dynamique

Bonjour à tous,

Un exemple en pièce jointe,

JHA

 

[doudoualex77]

Re : Liste déroulante dynamique

Bonjour,
J'ai trouvé ce code dans le lien que vous m'avez fourni, pourriez vous me commenter ces lignes car je ne les comprends pas ?
Merci d'avances

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
Sheets("BD").[g2] = ""
Sheets("BD").[A1:B1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("BD").[D1], Unique:=True
End If
If Not Intersect([b2:b10], Target) Is Nothing And Target.Count = 1 Then
Sheets("BD").[g2] = Target.Offset(, -1)
Sheets("BD").[A1:B1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("bd").[g1:g2], CopyToRange:=Sheets("BD").[E1]
End If
End Sub