Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Date dans un Userform

Date dans un Userform

3 réponses
Avatar
bert13
Bonjour,

est il possible de mettre 2 champs date dans un userform et de calculer
la difference des dates ??

Merci de vos reponses
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Private Sub CommandButton1_Click()
Me.TextBox3 = CVDate(Me.TextBox2) - CVDate(Me.TextBox1)
End Sub

Cordialement JB
Avatar
bert13
Merci ca marche super.

est il possible de calculer en jours calendaires (c'est a dire ne pas
prendre en compte les 31) ?

Merci d'avance
Avatar
JB
Je ne suis pas certain d'avoir compris la question:

Private Sub CommandButton1_Click()
début = CVDate(Me.TextBox1)
fin = CVDate(Me.TextBox2)
For d = début To fin
If Day(d) = 31 Then n = n + 1
Next d
Me.TextBox3 = fin - début - n
End Sub