UserForm Calcul entre Date

Bonjour à tous,

je viens vers vous car je bloque sur un truc vraiment bête :oops: ...

Dans mon UserForm, l'utilisateur sélectionne une date de début et une date de fin et j'aimerai simplement faire apparaître le nombre de jour entre ces 2 dates.

Pour le résultat, j'ai pensé le placer dans un TextBox, sans doute qu'il y mieux, sachant que l'utilisateur ne devrait pas la modifier.

En pièce jointe, le schéma en question.

P.S. Ah et je voulais savoir si la conversion entre des données au format DATE et TEXT se faisait automatiquement ou pas ?

Merci, merci !

Bonjour,
La fonction DateDiff par exemple.

Bonjour,

Pour éviter les mauvaises surprises, tu as tout intérêt à affecter du texte à tes Combobox ou Textbox et convertir les valeurs issues de ces contrôles avant utilisation.
Pour exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Date1 As Date, Date2 As Date Dim Difference As Long Dim Texte As String Date1 = CDate(ComboBox1.Value) Date2 = CDate(ComboBox2.Value) Difference = DateDiff("d", Date1, Date2) If Abs(Difference)< 2 Then Texte = " jour" Else Texte = " jours" End If TextBox1 = CStr(Difference) & Texte

---

Cordialement.

@corona : Parfait comme fonction, c'est ce qu'il me fallait ! Merci.

@gFZT82 : Merci pour le conseil sur le format, et surtout pour le code très intuitif. Bizarrement, le résultat Difference ne s'affiche pas dans ma TextBox...
Avec un MsgBox, elle renvoie bien le bon nombre de jour.

Faute de frappe de ma part :aie::aie: