Renvoyer une valeur à chaque choix dans un ComboBox

[Raphael]

Hello à tous,

J'ai pas trouvé de solutions à mon problème depuis vendredi...

Sur un UserForm, j'ai un ComBox qui comporte une liste de dates. J'aimerais qu' à chaque choix de dates, un renvoi de valeur soit effectué dans une cellule.

Mes dates allant de 1997 à 2050, j'aimerais que si la date 1997 est choisie, la valeur 1 soit renvoyée dans la cellule Sheets(2).Range("E2") ; si 1998 est choisie, la valeur 2 ; si 1999, la valeur 3 et ainsi de suite.

Je bloque sur la boucle à utiliser. En espérant que qq'un puisse m'aider à définir la procédure adéquate...

Merci d'avance

 

[wally]

Bonjour Raphael et le forum,

Essaye ceci (en admettant que les dates soient triées dans l'ordre ascendant) :

Private Sub ComboBox1_Change()

Sheets(2).Range("E2") = ComboBox1.ListIndex + 1

End Sub


@+

wally

 

[Raphael]

Hello wally,

Ta procédure marche impec (je vais pouvoir avancer dans mon taf). Merci bcp pour ton aide.

Bye