Discussion :

[Faradeorn]

Bonjour,

j'ai dans un userform, créé une toupie pour pouvoir à l'aide de celle ci faire défiller des années.
Cependant je n'arrive pas à lier cette cellule à la toupie de façon à ce que je puisse faire défiler les dates.

Quelqu'un aurait une idée?

[Qwazerty]

Salut
Un fihcier démo serait le bienvenu pour éclairer, "Toupie" ca me dit rien
++
Qwaz

[Faradeorn]

Voila en fichier joint ce à quoi ressemble une toupie

[casefayere]

Bonsoir, tu n'aurais pas aussi court d'inserer un dtpicker ?

[Faradeorn]

Qu'est-ce qu'un dtpicker?

[Qwazerty]

Salut

Voila en fichier joint ce à quoi ressemble une toupie

... j'ai un peu honte, mais je n'ai jamais utilisé, ni même vu (du moins le nom de) se composant ...

Pour le DtPicker tu trouveras plus d'info ici

++
Qwaz

[Invité]

Bonjour

Pourquoi veux-tu prendre les années dans une liste ?

Un exemple sans liste :

Un UserForm avec une toupie (SpinButton) et une zone de texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub SpinButton1_SpinDown()
    Me.txtAnnee.Value = Me.txtAnnee.Value - 1
End Sub
 
Private Sub SpinButton1_SpinUp()
    Me.txtAnnee.Value = Me.txtAnnee.Value + 1
End Sub
 
Private Sub UserForm_Initialize()
    Me.txtAnnee.Value = Year(Date)
End Sub

A l'initialisation, tu trouves l'année en cours dans la zone de texte.

Et en cliquant sur les boutons tu décrémentes ou incrémentes les années.

Philippe

[Faradeorn]

Merci de l'info sur le dtpicker Qwazerty et peu de personne utilisent la toupie en effet!

Philippe JOCHMANS, je me suis mal exprimé quand je disais vouloir prendre les années dans une liste, je confondais avec une liste déroulante.

J'ai un problème avec le code, il fait une erreur dès le début sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm_Initialize()

Je ne comprends pas pourquoi.

J'ai remplacé cette ligne par la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub SpinButton1_Change()

Et là cela fonctionne pour cette partie mais il y a une autre erreur à la ligne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub SpinButton1_SpinDown()

Saurais-tu d'où peut provenir le problème?