dates dans une combobox

[phil]

Salut à tous !
J'ai un soucis avec un ComboBox inséré dans un Userform qui fait appel à une liste qui contient des dates.
Le format de ces dates est défini 'JJ/MM/AAAA' dans ma feuille.

Dans les propriétés de ma combobox, j'ai rentré Feuil1!A1:A100 dans la case 'Rowsource'.

Mon Problème : Lorsque que je déroule la liste de la ComboBox et que je sélectionne une date, la valeur qui s'affiche n'est plus une date. le format 'jj/mm/aaaa' n'est pas conservé !

Comment garder ce format ?
Y a t il une autre solution que de rentrer les données dans 'Rowsource' ?

Comment puis-je exploiter par la suite la date choisie par la suite (pur l'insérer à un endroit bien précis dans une feuille ???)


Merci pour votre aide et bon week end !!!
phil

 

[Eric C]

Bonjour le forum
Bonjour phil

La réponse a été fournie dernièrement Lien supprimé.

Bonne après-midi à toutes & à tous 😉

 

[pat1545.]

Salut,

à adapter à ton fichier:

For Row = 1 To 12
UserForm1.ComboBox1.AddItem Sheets('Feuil1').Cells(Row, 1)
Next Row
UserForm1.Show

 

[phil]

merci pour votre aide,
le code de pat est le plus approprié, mais
la date s'affiche sous la forme mm/jj/aaaa, alors que dans ma feuille de données, elle est formatée jj/mm/aaaa et c'est comme cela que je la voudrais.
de plus, j'aimerai pouvoir agir dans le combobox et pouvoir rentrer une date manuellement... là je ne peux pas !
je sais c'est compliqué, mais...;
merci pour votre aide§

phil

 

[PascalXLD]

Bonjour

Modifies le code de pat ainsi

For Row = 1 To 12
UserForm1.ComboBox1.AddItem format(cdate(Sheets('Feuil1').Cells(Row, 1)),'dd/mm/yyyy')
Next Row

Pour que tu puisses saisir dans ta combobox il faut que la propriété MatchRequired soit à false

 

[phil]

merci pascal,
ça marche super !
bon week end et bonnes fetes !
phil