Liste deroulante (affichage des valeurs en format date)

Fermé

jokimda Messages postés 49 Date d'inscription dimanche 4 novembre 2012 Statut Membre Dernière intervention 12 novembre 2016 - Modifié par crapoulou le 12/11/2016 à 01:21
yg_be Messages postés 22726 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 12 nov. 2016 à 09:27

Bonjour à tous

j'ai crée une liste déroulante via VBA excel, le problème est que mes données sont des dates et s'affichent de la façon suivante: "42471"
J'aimerai pouvoir changer le format de ma liste de nombre pour que mes dates s'affichent correctement

extrait:

Private Sub Worksheet_Activate()
    Dim a As Integer
    Liste_date.Clear 'liste_date est ma liste déroulante
    For a = 2 To 397
        Liste_date = Feuil2.Cells(a, 72).Value
        If Liste_date.ListIndex = -1 Then
            Liste_date.AddItem Feuil2.Cells(a, 72).Value  'je remplit ainsi ma liste déroulante en date 
        End If
    Next a

Comment je peux faire pour que l'affichage se fasse en format date?

Merci d'avance

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

A voir également:

Liste deroulante (affichage des valeurs en format date)
Liste déroulante excel - Guide
Liste déroulante en cascade - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format dat - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22726 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 476
12 nov. 2016 à 09:27

exemple :

Liste_date = Format(Feuil2.Cells(a, 72).Value, "ddd dd mmm yyyy")
Liste_date.AddItem Format(Feuil2.Cells(a, 72).Value, "ddd dd mmm yyyy")

Discussions similaires

Suppression listes déroulantes

Menace "Interpol" après webcam coquine

Prélèvement JM Jacquie et Michel date.

Discussions similaires

Newsletters