SpinButton

[apdf1]

Bonjour,

Voila j'ai un petit problème avec mon calendrier j'ai 4 SpinButton pour avancer ou reculer année, mois , semaine et jour. Je peut avancer sans problème mais quand je recule il se bloque je pense que sa doit venir des propriétés mais je ne sais pas comment régler ?

Si quelqu'un pouvait m'aider je le remercie d'avance.

Ci joint mon fichier qui seras plus parlant.

Cordialement
Max

 

[Pierrot93]

Re : SpinButton

Bonjour Max

perso, plutôt que l'événement "change" des "SpinButton", j'utiliserais les événements "SpinUp" et "SpinDown" :

Private Sub SpinButton4_SpinDown()
Private Sub SpinButton4_SpinUp()

bonne journée
@+

 

[apdf1]

Re : SpinButton

Bonjour Pierrot

Je te remercie mais le probléme est toujours en moins que je me suis tromper?

J'ai mis le code comme ceci !

' SpinButton Année
Private Sub SpinButton1_SpinDown()

If SpinButton1 >= -1 And SpinButton1 _
<= 1 Then dDate = Calendar1
TextBox8 = SpinButton1
Calendar1 = DateAdd _
("YYYY", TextBox8.Value, dDate)
'UpdateCell
Label21.Caption = Format(Calendar1.Value, "dddd d mmmm yyyy") 'Date qui s'affiche
TextBox10 = Format(Calendar1, "ww") 'n°Semaine

End Sub

' SpinButton Année
Private Sub SpinButton1_SpinUp()

If SpinButton1 >= -1 And SpinButton1 _
<= 1 Then dDate = Calendar1
TextBox8 = SpinButton1
Calendar1 = DateAdd _
("YYYY", TextBox8.Value, dDate)
'UpdateCell
Label21.Caption = Format(Calendar1.Value, "dddd d mmmm yyyy") 'Date qui s'affiche
TextBox10 = Format(Calendar1, "ww") 'n°Semaine

End Sub

@+

Max

 

[Pierrot93]

Re : SpinButton

Re,

regarde ceci, à adapter :

Private Sub SpinButton1_SpinDown()
Calendar1.Value = Calendar1.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
Calendar1.Value = Calendar1.Value + 1
End Sub

 

[apdf1]

Re : SpinButton

Re,

Je suis arrivé à l'adapter au textbox mais pas au calendrier se qu'il veut que l'année du calendrier ne change pas.

Max

 

[Pierrot93]

Re : SpinButton

Re,

comme ceci :

Private Sub SpinButton1_SpinDown()
Calendar1.Value = DateAdd("yyyy", -1, Calendar1.Value)
End Sub
Private Sub SpinButton1_SpinUp()
Calendar1.Value = DateAdd("yyyy", 1, Calendar1.Value)
End Sub

 

[apdf1]

Re : SpinButton

Re,

Je te remercie sa marche nickel je les ais reporté sur les autres SpinButton tous fonctionne.

Merci beaucoup et bonne journée

@+

Max