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

listbox (date, heure)

  • Initiateur de la discussion Initiateur de la discussion DRANAC
  • 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 !

D

DRANAC

Guest
Bonjour,
J'ai une petit problème de format.
Dans une feuille excel j'ai une colonne date et une colonne heure, ces colonnes ont étées remplies par vba avec la la fonction Now() avec le format "HH:MM" et "dd/mm/yy".
Quand j'affiche ces cellules dans le listview, je perds mon formatage, comment le redéfinir ?
Merci
 
Re : listbox (date, heure)

Le code suivant fonctionne tres bien :
Code:
LSV.ListItems(m - 1).ListSubItems(3).Text = Format(Sheets("MAT").Cells(m, 3).Value, "HH:MM")
Par contre pour la date, ca me donne une date du genre 31/12/99
Code:
LSV.ListItems(m - 1).ListSubItems(2).Text = Format(Sheets("MAT").Cells(m, 2).Value, "DD/MM/YY")

QQ peut il m'aider pcq la je reste sur le séant oups je voulais dire sur le cul.
 
Re : listbox (date, heure)

Bonjour Dranac,

je me suis sans doute mal exprimé, je voulais parler de la propriété "Text" de la cellule à renvoyer...

exemple d'alimentation d'une listview :
Code:
    For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
        .ListItems.Add , , Range("A" & c.Row)
        .ListItems(.ListItems.Count).ListSubItems.Add , , [COLOR="Red"][B]Cells(c.Row, 2).Text[/B][/COLOR]
        .ListItems(.ListItems.Count).ListSubItems.Add , , [COLOR="red"][B]Cells(c.Row, 3).Text[/B][/COLOR]
    Next c

bonne journée.
@+
 
Re : listbox (date, heure)

bonjour Pierrot93 et le forum,
Problème résolu, les deux codes fonctionnent à savoir :
Code:
LSV.ListItems(m - 1).ListSubItems(3).Text = Format(Sheets("MAT").Cells(m, 3).Value, "HH:MM")
et
celui de Pierrot93.
Merci à tous
 
- 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

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
434
Réponses
3
Affichages
326
Réponses
8
Affichages
653
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
236
Réponses
6
Affichages
646
Réponses
5
Affichages
917
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…