Souci avec ComboBox et date

[Kewell]

Bonjour,
Voila le probleme:
Donc je veux que ma comboBox donne accés a l'utilisateur a tout les date de 2006 sous c format jj/mm/aaaa.

Donc sur un colonne g toute les journée et g taper sa:
Private Sub UserForm_Initialize()
Dim DerDate As String
DerDate = Range('Référence!L7').End(xlDown).Address
ComboBox3.RowSource = 'Référence!L8:' & DerDate

End Sub

Reference est le classeur ou se trouve la colonne avec toute les date, donc quand j'appui sur la combobox pour afficher tout les date pas de souci, mais quand ej valide une date elle se transforme en entier. A savoir:

 

[Gorfael]

Salut
Plutôt que te faire suer à écrire les dates, pourquoi tu n'utilises pas une textbox, associée à un Userform calendrier ?

Sinon, il faut que tu transformes tes dates en texte et inversement pour pouvoir travailler avec les combobox

Dans le fichier joint (pris sur ce forum) tu as un bouton pour lancer le 1er USF. tu as la date du jour inscrite et si tu clique sur l'image à droite, tu lances USF2 qui comporte un contrôle calendrier
A+

Message édité par: Gorfael, à: 19/05/2006 22:58

 

[Kewell]

Merci pour ta reponse, mais je pense queu tu as oublier le fichier joint...
Et la commande pour transformer ma date en texte et inversement je la place ou dans mon code?

Merci

 

[Bebere]

bonsoir Kewell,Gorfael
si tu as des dates avec des années différentes
et dans la combobox tu ne veux que les dates d'une année,il faut faire autrement
'avec RowSource
Dim MesDates As String
With Sheets('Référence')
MesDates = .Range('L7:L' & .Range('L7').End(xlDown)).Address
End With
ComboBox3.RowSource = 'Référence!' & MesDates

'une autre façon
Dim MesDates As Variant
With Sheets('Référence')
MesDates = .Range('L7:L' & .Range('L7').End(xlDown).Row)
End With
ComboBox3.List = MesDates

à bientôt

 

[Gorfael]

Salut tout le monde
Désolé pour le retard
A+ [file name=Controle_calendrier.zip size=11781]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Controle_calendrier.zip[/file]

 

[Bebere]

bonjour Gorfael,Kewell,le Forum
une démo de Thierry
à bientôt

 

[henri]

Bonjour,
une autre méthode avec un double clic sur La cellules.
A+ [file name=dates_20060520160822.zip size=21283]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dates_20060520160822.zip[/file]

 

[Kewell]

Désolé de répondre aussi tard,
Merci pour tout, sa fait plaisir de savoir ou trouver des reponses a nos question sous excel...et encore mecri bien et a bientot pour de nouvelle question.
Tchao......Kewell