Date et toupie dans Userform

Bonsoir,

Dim Mois As Integer, Annee As Integer, Elements

Private Sub UserForm_Initialize()
TextBox1.Value = "01/01/2000"
End Sub

Private Sub SpinButton1_SpinDown()
SplitTextBox
If Mois = 1 Then
Mois = 12
Annee = Annee - 1
Else
Mois = Mois - 1
End If
UpdateTextBox
End Sub

Private Sub SpinButton1_SpinUp()
SplitTextBox
If Mois = 12 Then
Mois = 1
Annee = Annee + 1
Else
Mois = Mois + 1
End If
UpdateTextBox
End Sub

Private Sub SplitTextBox()
Elements = Split(TextBox1.Value, "/")
Mois = Elements(1)
Annee = Elements(2)
End Sub

Private Sub UpdateTextBox()
If Mois > 9 Then
TextBox1.Value = "01/" & Mois & "/" & Annee
Else
TextBox1.Value = "01/0" & Mois & "/" & Annee
End If
End Sub

Les variables sont à déclarer au niveau module.

Cordialement,

Manu/



"erwann67" <erwann67@discussions.microsoft.com> a écrit dans le message de
news: A613B772-94CD-4070-A2AE-76D7193FB70C@microsoft.com...

Bonjour a tous

Ma question est courte

J'ai créé un userform avec une zone de texte et une toupie
La zone de texte contient une date sous le format 01/mm/aaaa

Je souhaiterais que la toupie ne gère pas les jours, mais les mois
c'est à dire 01/01/2000 doit devenir 01/02/2000, puis 01/03/2000
et si possible 01/12/2000 doit devenir 01/01/2001

Merci