[Résolu] Incrémenter les mois dans une TextBox

[Lone-wolf]

Bonjour à tous,

est-il possible d'incrémenter les mois dans une TextBox sur clic du bouton, sans utiliser une ListBox ou ComboBox?


A+ 😎

 

[Pierrot93]

Re : Incrémenter les mois dans une TextBox

Bonjour,

regarde peut être ceci :

Private Sub CommandButton1_Click()
Dim d As Date
If Not IsDate(TextBox1) Then Exit Sub
d = CDate(TextBox1)
TextBox1 = DateSerial(Year(d), Month(d) + 1, Day(d))
End Sub

bon après midi
@+

Edition : supprimer le 2ème test "isdate" inutile

 

[camarchepas]

Re : Incrémenter les mois dans une TextBox

Bonjour Lone-wolf ,

Si j'ai bien compris ce que tu veux faire ....

PS : Bonjour Pierrot

Public mois As Variant
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then TextBox1.Text = Date
mois = DateAdd("m", 1, TextBox1.Text)
TextBox1.Text = mois
End Sub

Private Sub CommandButton2_Click()
If TextBox1.Text = "" Then TextBox1.Text = Date
mois = DateAdd("m", -1, TextBox1.Text)
TextBox1.Text = mois
End Sub

 

[Habitude]

Re : Incrémenter les mois dans une TextBox

Bonjour

Avec SpinButton

 

[Lone-wolf]

Re : Incrémenter les mois dans une TextBox

Bonjour pierrot, camarchepas, Habitude

merci d'avoir répondu.

@ Tous les deux

Les lignes: d = CDate(TextBox1) et mois = DateAdd("m", -1, TextBox1.Text), provoquent l'erreur Incompatibilité de type.

@Habitude: c'est sympa de me proposer le fichier avec SpinButton, mais ce n'est pas ce que je cherche, désolé.


Edit: @ pierrot , cette fois c'est OK, il fallait inscrire la variable mois au lieu de TextBox 1.

A+ 😎

 

[Pierrot93]

Re : Incrémenter les mois dans une TextBox

Re,

Les lignes: d = CDate(TextBox1) et mois = DateAdd("m", -1, TextBox1.Text), provoquent l'erreur Incompatibilité de type.

sans savoir ce qu'il y a eut de saisie dans la textbox, difficile à dire... tu as placé le test que j'avais donné avec "isdate" ?

 

[camarchepas]

Re : Incrémenter les mois dans une TextBox

Re bonjour à tous ,

Je vois que je suis l'homme invisible du post3,
je pense que les écrans devrait avoir une plus grande hauteur

 

[MJ13]

Re : [Résolu] Incrémenter les mois dans une TextBox

Bonjour à tous

Tu peux aussi écrire sur le commandButton:

If TextBox1 = "" Then TextBox1 = Format(Month(Date), "MMMM") Else TextBox1 = Format(CDate("01/" & Month(CDate("01/" & TextBox1)) + 1), "MMMM")

PS: Pour camarchepas 🙂, je pense que Lone ne t'a pas vu 😱.

 

[Lone-wolf]

Re : [Résolu] Incrémenter les mois dans une TextBox

Bonjour Michel,

@ camarchepas: désolé pour le quack, toutes mes excuses. 😱😱


A+ 😎