liste de choix: comment ca marche?

[Jean-Nicolas Laniepce]

Bonsoir... encore une fois!

J'aimerais affecter une valeur à une cellule en fonction du choix selectionne dans la liste.

Mon code (qui genere des erreurs! est le suivant):

Sub Zonecombinée4_QuandChangement()
If Zonecombinée4.ListIndex = 1 Then
Range("D5").Value = 948
ElseIf Zonecombinée4.ListIndex = 2 Then
Range("D5").Value = 1788
ElseIf Zonecombinée4.ListIndex = 3 Then
Range("D5").Value = 2988
ElseIf Zonecombinée4.ListIndex = 4 Then
Range("D5").Value = 4548
End If
End Sub

Qu'est-ce qui ne fonctionne pas?

Merci beaucoup!!

Jean-Nicolas