Microsoft 365 Listes déroulantes

sylvanu à dit:

Bonjour Matthieu,
En fait la liste affichée doit dépendre de la colonne E ?
En PJ un essai :
Feuil2 nommage des deux listes Liste106 et Liste508, car on ne peut pas faire de listes déroulantes sur des plages d'autres feuilles, il faut passer par un nommage.
Et la liste déroulante avec :

VB:

=SI($E2="OP106";Liste106;Liste508)

Cliquez pour agrandir...

sylvanu à dit:

146 listes !
Avec 146 SI imbriqués ... ou peut être un peu de VBA.
On a le droit au VBA ?

Cliquez pour agrandir...

sylvanu à dit:

Re,
Un essai en PJ avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col%, DL%, ListName$, NomFeuille$
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("Q1:Q10000")) Is Nothing Then
        If Cells(Target.Row, "E") = "" Then Exit Sub        ' car pas d' OP.
        Col = Application.Match(Cells(Target.Row, "E"), Sheets("Feuil2").[1:1], 0) ' recherche OP dans la liste
        If Col = 0 Then Exit Sub                            ' car l' OP n'existe pas
        With Sheets("Feuil2")
                NomFeuille = .Name                                                          ' Nom de la feuille
                DL = .Cells(65000, Col).End(xlUp).Row                                       ' Dernière cellule
                ListName = "=" & NomFeuille & "!R2C" & Col & ":R" & DL & "C" & Col & ""     ' Def de la plage
                ActiveWorkbook.Names("Liste").RefersToR1C1 = ListName                       ' Affecter Nom
        End With
    End If
Fin:
End Sub

A chaque clic sur une cellule de P, on choisit la liste déroulante à afficher. Il n'y a pas de limite au nombre de listes ( mais ici limité à 32767, ça laisse de la marge )
J'ai aussi mis une liste pour les OP, pour simplifier.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Dans la feuille où il y a les listes, vous sélectionnez quelques cellules ( n'importe lesquelles ) et vous faites Formules/Gestionnaire de nom/Nouveau et vous l'appelez Liste.
La plage de Liste sera actualisée en fonction de la valeur trouvée pour OP.

Cliquez pour agrandir...