XL 2019 VBA - Liste déroulante à partir de cellules d'une autre feuille

im_Guillaume à dit:

Efgé, je ne sais pas si le bug est de mon côté mais je n'arrive pas à ouvrir votre document pour l'instant.

Cliquez pour agrandir...

Robert à dit:

Bonjour Guillaume, bonjour le forum,

Ton fichier modifié en pièce jointe.
Le code principal dans le module standard Module1 :

VB:

Sub Macro1()
Dim OC As Worksheet 'déclare la variable OC (Onglet Choix)
Dim OL As Worksheet 'déclare la variable OL (Onglet Liste)
Dim CC As Range 'déclare la variable CC (Cellule Cible)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As String 'déclare la variable L (Liste)

Set OC = Worksheets("Choix") 'définit l'onglet OC
Set OL = Worksheets("Liste") 'définit l'onglet OL
Set CC = OC.Range("C5") 'définit la cellule cible CC
TV = OL.Range("C4").CurrentRegion 'définit le tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    D(TV(I, 1)) = "" 'alimente le dictionnaire D avec les données en colonne 1 de TV
Next I 'prochaine ligne de la boucle
L = Join(D.Keys, ",") 'définit la liste L (la réunion de l'ensemble des éléments du dictionnaire D sans doublon (les clés), séparés par une virgule)
With CC.Validation 'prend en compote la validation de donnée de la cellule CC
    .Delete 'efface une eventuelle validation
    .Add xlValidateList, Formula1:=Lst 'ajoute la validation avec L comme Liste
End With 'fin de la prise en compte de validation de données de la cellule CC
End Sub

Pour qu'il agisse dès l'ouverture du classeur, le code dans le composant ThisWorkbook :

Code:

Private Sub Workbook_Open()
Module1.Macro1
End Sub

Et pour qu'il s'actualise si tu modifies la liste, le code dans le composant Feuil2 (Liste) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Module1.Macro1
End Sub

Cliquez pour agrandir...

Ne pourrait-on pas garder l'ancienne méthode en l'appliquant au nouveau cas?

Cliquez pour agrandir...

Robert à dit:

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié. J'ai utilisé une autre méthode avec les événementielles Change et SelectionChange...

Cliquez pour agrandir...

Select Case Target.Address 'agit en fonction de l'adresse de la cellule sélectionnée
    
    Case "$A$2" 'cas A2
        TEST = True
        COL = 1 'définit la colonne COL
        Range("B2:E2").ClearContents 'efface la plage B2:E2
        If Target.Value = "" Then TEST = False: Exit Sub
        L = "" 'vide la liste L
        
    Case "$B$2" 'cas B2
        TEST = True
        COL = 2 'définit la colonne COL
        Range("D2:E2").ClearContents 'efface la plage D2:E2
        If Target.Value = "" Then TEST = False: Exit Sub
        L = "" 'vide la liste L
        
    Case "$C$2" 'cas C2
        TEST = True
        COL = 3 'définit la colonne COL
        Range("D2:E2").ClearContents 'efface la plage D2:E2
        If Target.Value = "" Then TEST = False: Exit Sub
        L = "" 'vide la liste L
        
    Case "$D$2" 'cas D2
        TEST = True
        COL = 4 'définit la colonne COL
        Range("E2").ClearContents 'efface la cellule E2
        Range("E2").Validation.Delete 'efface la validation de données en E2
        If Target.Value = "" Then TEST = False: Exit Sub
        L = "" 'vide la liste L
        
End Select 'fin de l'action en fonction de l'adresse de la cellule sélectionnée

For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    
    'alimente le dictionnaire D avec les données de TV en fonction de ce qui a déjà été remplis
    If TV(I, 1) = Range("A2").Value Then D(TV(I, 2)) = "" And D(TV(I, 3)) = ""
    If TV(I, 2) = Range("B2").Value Then D(TV(I, 3)) = ""
    If TV(I, 3) = Range("C2").Value Then D(TV(I, 2)) = ""
    If TV(I, 4) = Range("D2").Value Then D(TV(I, 5)) = ""
    
Next I 'prochaine ligne de la boucle