Liste déroulante

Bonjour à vous,

je souhaite mettre dans une liste déroulante les valeur de C4 jusqu'à la dernière ligne dans une liste déroulante à partir de ma feuille BDD.

Sub Zonecombinée3_Quandchangement()
Dim DerLigne As Long
DerLigne = Sheets("BDD").Range("C4" & Rows.Count).End(xlUp).Row

Dim i As Long
For i = 1 To DerLigne
Zonecombinée3.AddItem Cells(i, 1)
Next

End Sub

Bonsoir,

On a besoin de regarder ton fichier pour te conseiller efficacement.

voici le fichier

Re,

Le fichier n'a aucune macro. Le fichier avec une macro a l'extension .xlsm. As-tu ce fichier ?

avec macro