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