Discussion :

[bananop]

Bonjour à tous,

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

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 !

[Philippe Tulliez]

Bonjour,
La fonction DateDiff par exemple.

[gFZT82]

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 :

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

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.

[bananop]

@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