Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format date ListBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion brunounours
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

brunounours

Guest
Bonjour,

Je n'ai pas trouvé comment modifier le format de la date qui s'affiche dans ma ListBox.

Elle m'affiche un format mm/dd/yyyy et je souhaiterai dd/mm/yyyy

la ListBox est chargé par le code suivant:

With Me.ListBox51
.Clear
.AddItem Ws.Cells(Me.ComboBox1.Column(1), "B")
End With

Voila un fichier explicatif.

Par exemple, lorsque je clic sur le bouton, et que je selectionne le projet 7, la date apparait sous la forme 1/31/2011 je souhaiterai qu'il apparaisse 31/1/2011


Merci d'avance! Bruno
 

Pièces jointes

Trier par date Trier par votes
Re : Format date ListBox

Bonjour,

Chez moi, la date s'affiche correctement dans le Userform 31/01/2011.
Vérifies éventuellement les paramètres régionaux.
Quelle version Excel utilises tu au niveau de l'interface, Anglais ou Français ?
 
Vote positif 0 Vote négatif
Re : Format date ListBox

Bonjour,

J'utilise une version Excel 2007 anglaise.
Je ne peux malheureusement pas changer les parametres régionaux car je travaille en entreprise à l'etranger.

As-tu une autre solution?

Merci,

Cdt Bruno
 
Vote positif 0 Vote négatif
Re : Format date ListBox

Bonjour,
Pourquoi utiliser des Listbox alors ques des TexBox auraient suffi.
Code: 
Private Sub ComboBox1_Change()
    Dim I As Integer
    Dim Ws As Worksheet
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Set Ws = Sheets("Sheet1")
    For I = 1 To 3
        With Me.Controls("ListBox" & I)
            .Clear
            If I = 1 Then
                .AddItem Format(Ws.Cells(Me.ComboBox1.Column(1), 4 + I), "mm/dd/yyyy")
            Else
                .AddItem Ws.Cells(Me.ComboBox1.Column(1), 4 + I)
            End If
        End With
    Next I
End Sub
 
Vote positif 0 Vote négatif
Re : Format date ListBox

En fait, ca ne marche pas.

Voici le fichier sur lequel je travaille. Lorsque je clic sur le bouton et que je fais défiller "les numéros de Proyectos", je souaiterai qu'il s'affiche les listebox "Fecha OTF Ready" et "Fecha Reunión Transferencia" les dates sous le format dd/mm/yyyy.

Je suis dans une impasse aidez moi svp!

Merci d'avance Bruno
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format date ListBox

J'ai revu ta réponse précédente qui marche bien en fait, c'est juste qu'il me fallait "dd/mm/yyyy" au lieu de "mm/dd/yyyy" comme tu l'avais écrit.

Code: 
Private Sub ComboBox1_Change()
    Dim I As Integer
    Dim Ws As Worksheet
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Set Ws = Sheets("Sheet1")
    For I = 1 To 3
        With Me.Controls("ListBox" & I)
            .Clear
            If I = 1 Then
                .AddItem Format(Ws.Cells(Me.ComboBox1.Column(1), 4 + I), "mm/dd/yyyy")
            Else
                .AddItem Ws.Cells(Me.ComboBox1.Column(1), 4 + I)
            End If
        End With
    Next I
End Sub

Désolé, je ne m'en suis pas rendu compte avant.

Merci 🙂

Cdt Bruno
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Listbox click
Réponses
10
Affichages
669
ChTi160
C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
234
Dudu2
  • Résolu(e)
Autres Macro pour remplir automatiquement une sélection avec une date
Réponses
5
Affichages
277
dysorthographie
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
700
vgendron
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
307
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
915
TooFatBoy
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
326
dadaze
D
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
824
KRUG WOO
K
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
555
jurassic pork
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
769
SAMUAL_2023
S
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
644
Staple1600
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
653
Le Rouky
L
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
3 K
NONO14
N
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
V
  • Question Question
Autres Traitement des formats date
Réponses
8
Affichages
477
VIARD
V
I
  • Question Question
XL 2021 comptage d’une col
Réponses
3
Affichages
281
ivgu19
I
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
607
snoopy07
S
N
  • Résolu(e)
Microsoft 365 Format date d'une textbox vers une cellule
Réponses
8
Affichages
831
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…