Décrémenter date
Bonjour je saisie une date automatiquement dans plusieurs feuilles mais j'aimerais pouvoir décrémenter la date par rapport à celle du jour.
Voici mon code:
If TextBox9.Value = "" Then
TextBox9.Value = Date
.Cells(Derlign + 1, 1) = CDate(TextBox9)
Else
message = MsgBox("Êtes vous sûr de rentrer une date manuellement?", vbYesNo, "Confirmation")
If (message = 7) Then
Exit Sub
End If
.Cells(Derlign + 1, 1) = CDate(TextBox9)
End If
Call Transfert.calendrier_sortie(ComboSortie.Value, TextBox9.Value, TextBox8.Value)
Merci !
Bonsoir,
Tout d'abord, ton propos ne veut pas dire grand chose...
Ton code ne dit rien non plus.
message = MsgBox("Êtes vous sûr de rentrer une date manuellement?", vbYesNo, "Confirmation")
et pourquoi pas
autremessage = MsgBox("Êtes vous sûr de vouloir afficher le prochain message?", vbYesNo, "Confirmation")
Tout cela apparaît être fin nul.
Décrémenter la date du jour, est-ce vouloir la date d'hier ?
Bonsoir,
Tout d'abord, ton propos ne veut pas dire grand chose...
Ton code ne dit rien non plus.
message = MsgBox("Êtes vous sûr de rentrer une date manuellement?", vbYesNo, "Confirmation")
et pourquoi pas
autremessage = MsgBox("Êtes vous sûr de vouloir afficher le prochain message?", vbYesNo, "Confirmation")
Tout cela apparaît être fin nul.
Décrémenter la date du jour, est-ce vouloir la date d'hier ?
oui c'est la date d'hier
J'ai trouvé, rien de plus simple.
Ajouter -1 à TextBox9.Value = Date