Bonsoir
avec une combobox, et une formule calculée dans le code
pour voir le code, clic droit sur le nom de l'écran, "Visualiser le code"
Le code :
Private Sub ComboBox1_Change()
[G4] = Application.Index([cp], Application.Match(Me.ComboBox1, [villes], 0))
End Sub
Private Sub ComboBox1_DropButtonClick()
Range("A2:A" & [A65000].End(xlUp).Row).Name = "villes"
Range("B2:B" & [A65000].End(xlUp).Row).Name = "cp"
Me.ComboBox1.ListFillRange = Range("villes").Address
End Sub
Le fichier :
https://www.excel-pratique.com/~files/doc/korrigan_v1.xls