Bonsoir,
2 champs nommés dynamiques :
Machine
=DECALER(INDIRECT(CONTROLE!$C$5&"!B11");;;;NBVAL(INDIRECT(CONTROLE!$C$5&"!11:11"))-1)
Contrôle
=DECALER(INDIRECT(CONTROLE!$C$5&"!A13");;;NBVAL(INDIRECT(CONTROLE!$C$5&"!A:A"))-3)
Respectivement affectés comme source de liste déroulante aux cellules concernées.
On peut allonger les listes ou les diminuer, le nom s'adapte automatiquement, mais il ne doit pas y avoir de ligne vide (ou colonne vide) à l'intérieur de la plage nommée pour que cela fonctionne.
En complément un petit dispositif macro pour que lors d'un changement en C5 les deux autres cellules soient effacées, la liste ne le fait pas automatiquement...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
Union(Me.Range("G5"), Me.Range("K5")).ClearContents
End If
End Sub
Le classeur est dès lors enregistré en .xlsm (contenant des macros).
Cordialement.