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