Incrémenter une date dans un textbox

Bonjour,
dans un premier textbox je renseigne une date.
Avec afterupdate je veux inscrire dans un deuxième textbox cette date plus un jour. J'ai relevé quelques solutions possibles sur le site mais aucune ne fonctionne.
Voici les essais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub DATE1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) DATE1.Text = Replace(DATE1.Text, ".", "/") If Not IsDate(DATE1) Then MsgBox "La saisie n'est pas valide !" Cancel = True DATE1 = "" End If DATE1.Value = Format(DATE1.Value, "dddd d mmmm yyyy") End Sub   Private Sub DATE1_AfterUpdate() DATE2.Value = Format(DATE2.Value, "dddd d mmmm yyyy") DATEVAL(DATE2) = DATEVAL(DATE1) + 1 DATE2.Value = DATE1.Value + 1 DATE2.Value = DateAdd("d", 1, DATE1.Value) End Sub

---

Les essais, en rouge n'ont pas fonctionné.
Si quelqu'un peu m'éclairer...
Merci de votre attention

Bonjour,

A tester :

Code:

---

1 2 3

Private Sub DATE1_AfterUpdate() DATE2 = CDate(DATE1) + 1 End Sub

---

;)

Merci X-L-P
cela ne fonctionne pas non plus avec "Cdate".
Par contre je viens de découvrir que c'est le format date qui coince.
En effet :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub DATE1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) DATE1.Text = Replace(DATE1.Text, ".", "/") If Not IsDate(DATE1) Then MsgBox "La saisie n'est pas valide !" Cancel = True DATE1 = "" End If DATE1.Value = Format(DATE1.Value, "dd mm yyyy") End Sub

---

puis :

Code:

---

1 2 3 4

Private Sub DATE1_AfterUpdate() DATE2 = CDate(DATE1) + 1 'fonctionne DATE1.Value = Format(DATE1.Value, "dddd d mmmm yyyy") End Sub

---

cela fonctionne

Code:

---

1 2	DATE2.Value = DateAdd("d", 1, DATE1.Value) 'fonctionne aussi DATEVAL(DATE2) = DATEVAL(DATE1) + 1 'ne fonctionne pas

---

je ne peux donc pas travailler directement
avec le format date "dddd d mmmm yyyy" dont j'ai vraiment besoin.
Encore des pirouettes à effectuer avec les dates sous VBA.
Si quelqu'un a une explication je suis preneur, sinon je peux considérer le problème comme résolu.
Encore bravo aux développeurs pour la qualité de l'aide que l'on peux trouver sur le site où mes demandes sont rares car souvent renseignées par simple consultation du forum.
Merci à tous

Citation:

---

Envoyé par mlrdeni

Merci X-L-P
cela ne fonctionne pas non plus avec "Cdate".
Par contre je viens de découvrir que c'est le format date qui coince.
...

je ne peux donc pas travailler directement
avec le format date "dddd d mmmm yyyy" dont j'ai vraiment besoin.
Encore des pirouettes à effectuer avec les dates sous VBA.
...

---

Exact. La fonction FORMAT ne produit pas nécessairement une date car elle accepte n'importe quoi.

Exemple : DATE1.Value = Format(DATE1.Value, "ALLO dd mm yyyy")
ne produira certainement pas une valeur reconnue comme une date.

Il faut donc s'assurer de conserver quelque part une date reconnue par VBA.
Le code suivant utilise la propriété TAG pour conserver une date valide à laquelle on peut se référer ultérieurement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub DATE1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)   If Not IsDate(date1) Then date1.Tag = "" date2.Value = "" Cancel = True MsgBox "La saisie n'est pas valide !" Exit Sub End If   date1.Tag = CDate(date1.Text)     End Sub   Private Sub DATE1_AfterUpdate()   If Not IsDate(date1.Tag) Then date2.Value = "" Else date2.Value = CDate(date1.Tag) + 1 End If   End Sub

---

MERCI.