Date et toupie dans Userform

Le
erwann67
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4553631
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" news:
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


Publicité
Poster une réponse
Anonyme