Userform et incrémentation de date

[anthonygg]

Bonjour,

J'ai une user form avec une saisie à faire avec la date et un commentaire.

Mon but est de pouvoir incrémenter la date dans l'userform à chaque fois que je clique pour valider ma saisie.
Ex : on est le 01/01, dès que je clique sur valider, ça passe à 02/01.

Le véritable problème est pour initialiser la valeur à la dernière date de saisie.



Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Sheet1").Range("A1")
End Sub

Private Sub CommandButton1_Click()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
Sheets("Sheet1").Range("A1") = TextBox1.Value
Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") + 1
End Sub

Où est l'erreur dans ce code ?

 

[camarchepas]

Re : Userform et incrémentation de date

Bonjour Anthony,

comme ceci :

Private Sub UserForm_Initialize()
 TextBox1.Value = Sheets("Feuil1").Range("A1")
 End Sub
 
Private Sub CommandButton1_Click()
 TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
 Sheets("Feuil1").Range("A1") = CDate(DateAdd("d", 1, TextBox1.Value))
End Sub

 

[anthonygg]

Re : Userform et incrémentation de date

Merci, mais ça ne marche pas hélàs.

 

[camarchepas]

Re : Userform et incrémentation de date

Bonjour ,

Pas tout à fait sur la même longueur d'onde ,

Mais avec le fichier je pense avoir à présent compris :

 

[anthonygg]

Re : Userform et incrémentation de date

J'ai mal posé le problème désolé ...
Mon but c'est d'incrémenter ma date d'un jour. Ca marche bien dans Excel, le problème c'est que dans le VBA de l'userform, cela s'affiche en anglais.

 

[Pierrot93]

Re : Userform et incrémentation de date

Bonjour,

peut être avec ceci :

TextBox1.Value = Sheets("Sheet1").Range("A1").Text

bonne journée
@+

 

[anthonygg]

Re : Userform et incrémentation de date

...

J'ai passé le week end entier à m'arracher les cheveux qu'ils me reste pour y arriver.
Merci Pierrot c'est parfait ! Et à camarche pas aussi

 

[anthonygg]

Re : Userform et incrémentation de date

Voici donc mon code final, qui marche super bien !
Merci à vous deux !!!


Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Sheet1").Range("A1").Text
End Sub

Private Sub CommandButton1_Click()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
Sheets("Sheet1").Range("A1") = TextBox1.Text
Sheets("Sheet1").Range("A1") = CDate(DateAdd("d", 1, TextBox1.Value))
TextBox1.Value = Sheets("Sheet1").Range("A1").Text
End Sub