Discussion :

[cott333]

Bonjour à tous!

J'ai un petit problème de date...

En gros, j'ai crée un userform qui demande à l'utilisateur d'indiquer deux date: les jours sont en chiffre, le mois en lettre et l'année en chiffre (sous forme de liste déroulante)

Puis j'ai crée une fonction qui me permet de travailler sur ces deux dates que voici:

Code :

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

1
2
3
4
5
6
7
Function maturité()
 
    datetexte = CStr(jour.Value) & "/" & mois.Value & "/" & CStr(contenu_année.Value)
    datetexte1 = CStr(jour1.Value) & "/" & mois1.Value & "/" & CStr(contenu_année1.Value)
    maturité = (CDate(datetexte) - CDate(datetexte1)) / 365
 
End Function

Jusque la tout marche parfaitement.

Mon problème est que j'utilise une autre fonction qui prend en input des dates.
Et je ne vois pas comment l'utiliser.
Je voudrais que en date1 soit la première date saisi et date2 la deuxième.
Mais il y a un problème de format. VBA ne reconnait pas le format saisi et veut un format "dd/mm/aaaa".
Du moins je pense que c'est de la qu vient le problème...

Code :

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

1
2
3
Function lignevol(date1 As Date, date2 As Date) As Integer
...
end function

Donc si qqln pouvait m'aider ce serait super

Merci!

[BlueMonkey]

Bonsoir,

Pour l'initialisation de la userForm, via l'appel de lignevol si j'ai bien compris.

séparer le jour, le mois et l'année d'une date d :
jour : Day(d)
mois : Month(d)
année : Year(d)



Sinon, pour reconstituer un format dd/mm/aa en sortie de Form, pourquoi ne pas utiliser ListIndex
"les index des listes déroulantes" (1->12 mois ; 1->31 jour ; année = 2011 + index) ?

[kiki29]

Salut, à lire : http://excel.developpez.com/faq/?page=Dates
http://excel.developpez.com/faq/?pag...nstallMSCOMCT2
http://silkyroad.developpez.com/VBA/...erForm/#LIII-I