Date dans combobox

Date dans combobox - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2006 à 19:54:14    

Bonjour,
 
je débute en vba et j'aimerais laisser le choix à un user d'une date.
 
(Le choix dans la date et non le doigt dans la ...)
 
j'ai créé une combobox qui prend les valeurs d'une colonne excel. Colonne qui contient des dates.
 
Tout va bien sauf que quand je clique sur la date dans la combobox, il donne le nombre correspondant à la date (38800...)
 
Comment faire pour que si je clique sur 17/04/2006 il affiche 17/04/2006 ?
 
Merci pour votre aide.


---------------

Reply

Marsh Posté le 17-04-2006 à 19:54:14   

Reply

Marsh Posté le 17-04-2006 à 20:13:53    

Je viens d'essayer chez moi, et ça fonctionne sans problème : j'ai en retour la date en chair et en os (17/04/2006 quoi... :))

Reply

Marsh Posté le 17-04-2006 à 21:30:36    

m**** alors, chez moi (office 2003), ça marche pas. Je précise que ma liste de dates dépend de la fonction TODAY() et que les cellules du dessous sont TODAY()+1, TODAY()+2,etc...
 
je suis sûr que dans les paramètres de la combobox, il y a une astuce style 'ne pas reformatter entrée' mais où ?


---------------

Reply

Marsh Posté le 17-04-2006 à 22:11:45    

Je viens de refaire le test utilisant la fonction AUJOURDHUI() dans les cellules. Ça fonctionne aussi bien qu'avant.
 
T'aurais un bout de code à nos faire partager ?

Reply

Marsh Posté le 17-04-2006 à 22:19:34    

aucun code pour l'instant, j'ai juste inséré les dates dans une colonne, créé une UserForm1 contenant Combobox1 que je charge en cliquant sur un CommandButton1 posé sur la feuille.
 
Le code du bouton est
 
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
 
 
Rien de bien folichon, donc.
 
Je parie que c'est lié au format de mes cellules (date pour l'instant)
 
 
edit : je viens de recréer tout sur mon portable avec excel XP, même résultat


Message édité par fragarch le 17-04-2006 à 22:20:34

---------------

Reply

Marsh Posté le 17-04-2006 à 22:44:54    

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy" )
End Sub


 
et ça marche !!
 
merci pour votre aide :jap:


---------------

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed