ListView et heure

[Aladin]

Bonjour le forum
J' ai une listview qui me remonte des infos apres recherche sur le classeur. Ma huitieme colonne de la liste view doit me remontér des heures, mais elle mùe remonte des 3,000 etc
Comment ajouté le format d' heure juste pour la huitieme colonne de la listview
D' avance merci
Aladin

 

[Hippolite]

Re : ListView et heure

Bonjour,
avant d'importer des dates ou heures dans une listview, il faut les convertir en string avec
FORMAT(nombre, "[hh]:mm:ss") par exemple
A+

Edit :
synthèse sur les listview : Utiliser le controle ListView en VBA Excel

 

[Aladin]

Re : ListView et heure

Bonjour Hipolite et le forum
Merci de m' avoir répondu je pense qu' au sujet du format aller maisà savoir ou et comment le mettre je ne sais pas le faire.
voila mon code dela listview

[CODE]Private Sub UserForm_Initialize()
Call Initlistviewent
Call Initlistview1
If trouve = 0 Then
    Call MsgBox("Aucune occurence trouvée", vbInformation, Application.Name)
    CommandButton3_Click
    
Else
    CommandButton6.Visible = True
    ListView1.ListItems(1).Selected = False ' on désélectionne la première ligne
    Set ListView1.SelectedItem = Nothing
End If
End Sub

Private Sub Initlistviewent()
' à modifier
'#Const avectitre = 1 ' constante = 1 si affichage du nom des feuilles 0 si pas d'affichage
'
Dim correctif As Byte
If LBound(dimcol) = 0 Then correctif = 1
nbcollist = 0
nuitem = 0
With ListView1
    .ListItems.Clear
    With .ColumnHeaders
        .Clear
'#If avectitre = 1 Then
    .Add , , "Nom de la feuille", 80
'#End If
        For Each ws In Worksheets
            suite = 0
        For i1 = LBound(nomfeuille4) To UBound(nomfeuille4)
            If ws.Name = nomfeuille4(i1) Then suite = 1
        Next i1
        If suite = 0 Then
                For i = 1 To nbmaxcol
                        .Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif)
                Next i
                        .Add , , "tridate", 0
            Exit For
        End If
        Next ws
    End With
End With
End Sub

Merci d' avance pour la modif qui pourra m' être apporté sur le code de la listview
Aladin

 

[Hippolite]

Re : ListView et heure

Bonjour,
Sans fichier, ma boule de cristal est en panne.
D'où proviennent les heures ?
A+

 

[Aladin]

Re : ListView et heure

Bonjour Hippolite
Je t' explique dans le classeur il y a un userform avec un bouton de rechercherche par date
Cette rechercherche par date s' effectue sur trois feuilles du classeur
Le resultatl est remonté par la listview et en colonne 8 (les heures provenant des 3 feuilles du classeur
Aladin

 

[Hippolite]

Re : ListView et heure

Re,
Tes explications sont insuffisantes pour savoir où applique le Format
Peux-tu joindre un fichier simplifié sans donnée confidentielle ?
A+

 

[Aladin]

Re : ListView et heure

Rebonsoir Hippolite et le forum
Ci joint un fichier que j' ai allégé afin de pouvoir le transferer. Je pense que cela permettra de voir plus clair. merci d' avance
Aladin

 

[Bebere]

Re : ListView et heure

bonjour Aladin,Hippolite
cette ligne
.Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif)
changée comme suit
.Add , , format(Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif),"hh:mm:ss")'ou "dd/mm/yyyy"
plus simple,reprendre la donnée formatée
.Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif).text
à bientôt

 

[YANN-56]

Re : ListView et heure

Bonsoir à tous,

Je n'ai pas tout regardé car le chargement que j'ai vu de la ListView est bien trop loin
de ce que j'ai l'habitude de faire... Donc là; je perds mes repères.... Mais pas grave!

Je ramène ma fraise seulement pour l'idée d'ajouter dans la ListView un SubItem
ayant le format numérique de la date que l'on a importée.

Par la suite, un tri par Click sur l'En-tête, ou autres calculs seront simplifiés.
en gérant cette dernière et non la Date initiale pompée.

A noter que pour mettre de type "Double" un Item ou SubItem,
il suffit d'ajouter à "........" .text" : "*1" (Pour la petite histoire, mais souvent utile)
Bien que "CDBL" soit bien aussi.

Amicalement.

Yann

 

[Aladin]

Re : ListView et heure

Bonsoir le forum
J' ai testé les modifs de bebere et j' ai 2 erreurs
avec le code suivant

.Add , , Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif).Text

L' erreur suivante : Erreur d' execution 424 Objet requis
Le code suivant

 ' .Add , , Format(Sheets(ws.Name).Cells(nulititre, i), dimcol(i - correctif), "hh:mm:ss")

L' erreur suivante:Errur d' excution 13 incompatibilité de type

La liste view doit remonter les infos apres la recherche par date
en colonne 1 le nom de la feuille ou des feuilles
A partir de la colonne 2 de la listview, les colonnes de A à H des feuilles suivant résultat recherche par date
La colonne d' heure en G sur les feuilles en Colonne 7 se retrouvent en colonne 8 danns la listeView c' est sur cette colonne que doit de porter le formatage
Merci d' avance pour toute modif pour optimisation du classeur
Alaldin

 

[Bebere]

Re : ListView et heure

bonjour Aladin,Yann,Hippolite
ajout d'un userform avec un code tout simple
choix combobox1 rempli la listview
combobox1 contient les dates sans doublons
à bientôt

 

[Aladin]

Re : ListView et heure

Bonsoir le forum
Merci à vous tous de l' aide que vous m'' avez apporté. j' ai fait un test avec la modif de bebere et c' est OK
Aladin