Bonjour à tous !
J'utilise Excel 2019 et je suis actuellement bloqué. En effet j'utilise un code VBA pour obtenir une liste déroulante sur une Feuille 2 sans vide basée sur une base sur Feuille 1
Mais dans le code actuel, je n'arrive pas à sortir la liste déroulante de la feuille actuelle.
Si quelqu'un une solution je suis preneur !
Merci d'avance les amis !
J'utilise Excel 2019 et je suis actuellement bloqué. En effet j'utilise un code VBA pour obtenir une liste déroulante sur une Feuille 2 sans vide basée sur une base sur Feuille 1
Mais dans le code actuel, je n'arrive pas à sortir la liste déroulante de la feuille actuelle.
Si quelqu'un une solution je suis preneur !
Merci d'avance les amis !
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("D4:f3"), Target) Is Nothing Then
Set d = CreateObject("scripting.dictionary")
Set f = Sheets("PosteListeDeroulante")
Set Rng = f.Range("B4:B" & f.[B65000].End(xlUp).Row)
For Each c In Rng
If c.Value <> "" Then d(c.Value) = ""
Next c
Target.Validation.Delete
If d.Count > 0 Then Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
End If
End Sub