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

Pierrot93

XLDnaute Barbatruc

• 10 Janvier 2013

• #2

Re : Incrémenter les mois dans une TextBox

Bonjour,

regarde peut être ceci :

Code:

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

 

Dernière édition: 10 Janvier 2013

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Janvier 2013

• #3

Re : Incrémenter les mois dans une TextBox

Bonjour Lone-wolf ,

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

PS : Bonjour Pierrot

Code:

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

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 10 Janvier 2013

• #4

Re : Incrémenter les mois dans une TextBox

Bonjour

Avec SpinButton

 

Pièces jointes

• Classeur1.xls

  38 KB · Affichages: 39
• Classeur1.xls

  38 KB · Affichages: 51
• Classeur1.xls

  38 KB · Affichages: 49

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Janvier 2013

• #5

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+ 😎

 

Dernière édition: 10 Janvier 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Janvier 2013

• #6

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.

Cliquez pour agrandir...

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" ?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Janvier 2013

• #7

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 10 Janvier 2013

• #8

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

Bonjour à tous

Tu peux aussi écrire sur le commandButton:

Code:

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 😱.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Janvier 2013

• #9

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

Bonjour Michel,

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


A+ 😎

 

Vote positif 0 Vote négatif