Discussion :

[mlrdeni]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[X-L-P]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.
En effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mlrdeni]

MERCI.