Microsoft 365 Liste déroulante dynamique via données horizontales

job75 à dit:

Bonsoir sebien0077, bienvenue sur XLD,

Même avec des tableaux structurés une solution par formules nécessitera des matricielles.

Et ce ne sera pas simple.

Par contre par VBA ce n'est pas très compliqué, voyez le fichier joint et cette macro dans la 2ème feuille :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Variant, j%, liste$
With [Tableau2].Columns(2)
    .Validation.Delete 'RAZ
    If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With [Tableau1]
    i = Application.Match(ActiveCell(1, 0), .Columns(1), 0)
    If IsError(i) Then Exit Sub
    For j = 2 To .Columns.Count
        If .Cells(i, j) <> "" Then liste = liste & "," & .Cells(0, j)
    Next
End With
If liste <> "" Then ActiveCell.Validation.Add xlValidateList, Formula1:=Mid(liste, 2)
End Sub

A+

Cliquez pour agrandir...