créer une date

[POWO]

Bonjour à tous,

Une fois n'est pas coutume, me revoilà avec un nouveau problème.

Voici la situation:

Dans userform1 j'ai:
- une labelbox dont le caption est 2009
- une combobox1 dont la valeur est 10 (mois)
- une combobox2 dont la valeur est 31 (jour)


je cherche un moyen pour que dans mon programme je puisse à un moment concaténer ces trois données, et que la donnée globalE soit une date. Je ne souhaite pas juste obtenir une chaine de caractère qui ressemble a une date mais une donnée au format date.

Auriez-vous une idée??

Encore une fois, merci d'avance pour votre aide.

A+ POWO

 

[homepyrof53]

Re : créer une date

Bonjour

voila un bout de code

Sub test()
annee = 2012
mois = 10
jour = 21
date1 = DateSerial(annee, mois, jour)
End Sub

 

[POWO]

Re : créer une date

merci pour votre réponse néanmoins, après avoir rentré 21/10/2012 la date retournée par le programme est 04/04/2027. Je ne comprends pas trop...

 

[homepyrof53]

Re : créer une date

Dans excel 2003
outils
options
Calcul
voir si Calendrier depuis 1904 est coché

A adapter a excel 2010

 

[POWO]

Re : créer une date

je suis désolé mais ça ne change rien...

 

[POWO]

Re : créer une date

quelqu'un aurait une autre idée par hasard??? merci d'avance

 

[phlaurent55]

Re : créer une date

Bonjour à tous,

un essai en pièce jointe

à+
Philippe

 

[POWO]

Re : créer une date

Bonjour,

Déjà merci Philippe pour ton exemple.
Néanmoins je reste dans le flou le plus total loool.

L'exemple de Philippe, marche parfaitement sur son fichier joint. Par conséquent j'ai reproduit le même sur mon fichier. Néanmoins grande surprise, le résultat a été différent. Voilà le code de Philippe:

ladate = DateSerial(UserForm1.ComboBox1.Value, UserForm1.ComboBox2.Value, UserForm1.ComboBox6.Value)

En pas à pas détaillé voilà ce que j'ai découvert lorsque j'applique ce code sur mon fichier:

- Les valeurs de mes combobox sont toutes bonnes en revanche la fonction DateSerial modifie ma date finale. Néanmoins les valeur des mes combobox reste toujours bonnes.

Par exemple pour: 07/12/2013 j'obtiens 07/10/2019 alors que dans ma fenêtre espions les valeurs de mes combobox sont toujours bonnes : "7" , "12" , "2013"

Le msytère continue pour moi...

Merci d'avance pour votre aide.

 

[POWO]

Re : créer une date

Flash news!!!!! Je viens de comprendre mon erreur.... encore une fois plus c'est évdient et moins les voit loool. Bref tout est ok désormais, merci beaucoup pour votre aide.

A très bientôt (je n'en doute pas)

Powo

 

[phlaurent55]

Re : créer une date

Re-bonjour Powo

XLD étant un forum d'entraide, pourrais-tu au moins expliquer ce qui ne fonctionnait pas et comment tu as fais pour résoudre le problème

ça pourra servir à d'autres

à+
Philippe

 

[POWO]

Re : créer une date

Aucun soucis avec plaisir.
J'ai appliqué ta solution sans faire d'erreur... Au départ j'avais inversé l'année et le jour dans dateserial.

Voilà, encore merci