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

Format heure dans lisbox

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 !

Antho35

XLDnaute Occasionnel
Bonjour,

Dans une listebox, j'ai différent format. Je rencontre un petit probléme de converstion. Dans ma feuille d'onglet appelle "SYNTHESES_AUTRES" mon format d'heure est correct, dans le formulaire de création aussi.

Mais quand les résultat "remonte" dans la liste Box l'heure devient du décimal du style 0.6565.....

Qui à une petite solution ???

Merci
 
Re : Format heure dans lisbox

Bonjour,
Ah bah ca marche pas !
Code:
Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_AUTRES")
    T = .Range("B2:K" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With

With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 5) = Format(.List(i, 5), "hh:mm")
    Next
End With

End Sub
 
Re : Format heure dans lisbox

Salut Antho35
Bonjour le fil
Bonjour le Forum

Dans un premier temps , il faut savoir que l'index des Colonnes de la ListBox (voir le code ) Commence à 0 (première Colonne) vers 11 dans ton Cas ce qui fait 12 colonnes .

En pièce jointe le fichier modifié

Le Fichier : Regarde la pièce jointe ClasseurV2.xls

Bonne fin de Journée
 

Pièces jointes

Dernière édition:
Re : Format heure dans lisbox

Sur l'un des formulaire ça marche, sur l'autre non, l'heure devient sythématiquerment 00:00 ça m'embête un peu quand même....

voici le code

Code:
Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_TRANSPORTPATIENT")
    T = .Range("B2:R" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With
With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, 5), "hh:mm")
Next
End With
End Sub
 
Re : Format heure dans lisbox

Re Antho35

arff je constate dans le texte de la procédure que tu as joint que tu as mis

Code:
.List(i,[COLOR=Blue] 8[/COLOR]) = Format(.List(i,[COLOR=Red] 5[/COLOR]), "hh:mm")
Ce qui veux dire que tu mets dans la Colonne 8 ligne i de la ListBox la valeur de la Colonne 5 ligne i de la Listbox , formatée en hh:mm

regarde le Texte de la procédure de Kjin ,essaies de le comprendre et ensuite adapte le .

si ce n'est pas la raison de l'erreur joins un fichier avec les deux Userform !!!!

Bonne continuation
 
Dernière édition:
Re : Format heure dans lisbox

Re
arff voila ce que j'ai fait pour résoudre le problème .

j'ai appliqué ce que je disais plus haut

j'ai mis 8 au lieu de 5 (8 en Rouge)

Code:
Private Sub UserForm_Initialize()
With Sheets("SYNTHESE_TRANSPORTPATIENT")
    T = .Range("B2:R" & .Range("B65536").End(xlUp).Row).Value 'declare la plage comme ici colonnes B:K
End With
With ListBox1
    .ColumnCount = UBound(T, 2)
    .List = T
    For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, [COLOR=Red]8[/COLOR]), "hh:mm")
    Next
End With

End Sub
Dans L'attente

Ps : Salut laetitia90 tu as bien Compris Lol
 
Dernière édition:
Re : Format heure dans lisbox

Je viens de comprendre, tout ma suptilité du truc. ça semble marché.

Bon ça ça marche un bug de moins.

(si vous voulais m'aider pour les autres bug, regardé mes différent post)

Merci à vous tous
 
Re : Format heure dans lisbox

Bonjour, salut Jean-Marie 🙂,
Antho tu multiplies les fils sur le même sujet - [thread=149688]ICI[/thread] - et ça c'est pas bon du tout....!🙄
De plus, tu ne lis pas correctement les réponses (quand tu réponds !)
Code:
For i = 0 To .ListCount - 1
        .List(i, 8) = Format(.List(i, [COLOR="Red"][B][SIZE="3"]8[/SIZE][/B][/COLOR]), "hh:mm")
Next

Edit : salut Laetitia
Bon je vois qu'en s'y mettant à trois ça finit par rentrer !

A+
kjin
 
Dernière édition:
- 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

Discussions similaires

D
  • Question Question
Réponses
8
Affichages
1 K
M
Réponses
2
Affichages
7 K
Mbersier18
M
T
Réponses
1
Affichages
1 K
Réponses
1
Affichages
2 K
G
C
Réponses
8
Affichages
2 K
caro_creche
C
F
Réponses
7
Affichages
8 K
Chiarmen
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…