Multi colone dans une listview

Bonjour,
Il n'y a pas de colonne dans un listView, c'est un affichage comme dans l'explorateur de fichier où tu ouvre et ferme des lignes.
A+

bonjour a toi lermite222
merci pour ta rapidité alors qu elle est le meilleur moyen pour faire se type d aperçus

je te mais mon codage pour que tu puisse voir mon probleme
Private Sub Command1_Click()
CalculMinuteFin = TxtMinuteFin
CalculHeureFin = TxtHeureFin

If TxtMinuteFin < TxtMinuteDebut Then
CalculMinuteFin = TxtMinuteFin + 60
End If

If TxtHeureFin < TxtHeureDebut Then
CalculHeureFin = TxtHeureFin + 24
End If

TxtHeureResultat = CalculHeureFin - TxtHeureDebut
TxtMinuteResultat = CalculMinuteFin - TxtMinuteDebut
Txtohsupp = TxtHeureResultat - 6
Txtomsupp = TxtMinuteResultat - 30

Textheurenuit = H2 - TxtHeureDebut

Textminnuit = M2 - TxtMinuteDebut

Text3.Text = DTPicker1 & " " & TxtHeureDebut & " H " & TxtMinuteDebut & " " & TxtHeureFin & " H " & TxtMinuteFin & " " & TxtHeureResultat & " H " & TxtMinuteResultat & " " & Txtohsupp & " H " & Txtomsupp & " " & Textheurenuit & " H " & Textminnuit & vbCrLf

End Sub

Private Sub Command2_Click()

List1.Clear
End Sub

Private Sub Command3_Click()
List1.AddItem Text3.Text
End Sub

Private Sub Command4_Click()
Call Sauveliste(Me.List1)
End Sub

Private Sub Command5_Click()
Call Ouvreliste(Me.List1)
End Sub

Private Sub Form_Load()

End Sub

Private Sub List1_Click()

If List1.ListIndex <> -1 Then
MsgBox List1.List(List1.ListIndex)
End If

End Sub

Private Sub options_Click()
Form2.Show
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
List1.AddItem Text3.Text
Text3.SelStart = -1
Text3.SelLength = Len(Text3.Text)
End If
End Sub
Private Sub Sauveliste(LaListe As ListBox)

Open App.Path & "\" & "laliste.lst" For Output As 1
For i = 0 To List1.ListCount - 1
LaListe.ListIndex = i
Print #1, LaListe.Text
Next
Close 1
End Sub
Private Sub Ouvreliste(LaListe As ListBox)
Open App.Path & "\" & "laliste.lst" For Input As 1
Do Until EOF(1)
Line Input #1, MaString
LaListe.AddItem MaString
Loop
Close 1
End Sub

pour ma form2
Private Sub Document1_GotFocus()
Open App.Path & "\" & "laliste.lst" For Input As 1
Do Until EOF(1)
Line Input #1, MaString
LaListe.AddItem MaString
Loop
Close 1
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()
sa c est ma colonne date
End Sub

Private Sub Label2_Click()
sa c est ma colonne heure embauche
End Sub

Private Sub Label3_Click()
sa c est ma colonne fin de service
End Sub

Private Sub Label4_Click()
sa c est ma colonne total heure jour
End Sub

Private Sub Label5_Click()
sa c est ma colonne heure supp
End Sub

Private Sub Label6_Click()
sa c est ma colonne total heure nuit
End Sub

Private Sub ListView1_Click()

End Sub

j espère que sa vas mieux te parler
j attend vite une reponce de ta part et encore merci

Quand tu dit Form1 et Form2 c'est quoi ?
Tu est en VB6 ?
A+

Donc, si j'ai compris tu veux mettre le contenu de la liste de la forme 1 dans la liste de la forme 2 ?
A+
EDIT:
A tout hazard..

'Dans Load de Form2
Private Sub Form_Load()
    For i = 0 To Form1.List1.ListCount - 1
        List1.AddItem Form1.List1.List(i)
    Next i
End Sub

Re,
Si, j'ai bien vu que tu employas un fichier, mais dans la forme 2 ce n'est pas nécessaire d'ouvrir le fichier à nouveau puisque les données sont déjà dans la liste de la forme 1
et concernant la forme2, LaListe c'est une ListView ? Quel est l'intéret de mettre une ListView alors qu'il n'y a q'une seule "Node" ?

pour la remplir voir...
Il faut la lier avec un contrôle ImageList et y ajouter des images

   'Remplir le Treeview
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "Clé", "Texte de la Node", 1)

1 = le N° de l'icône dans ImageList1
Tu dit...

L'approche pour le calcul des heures n'est pas fameuse, mais ça dépend de la façon dont tu les met dans le fichier.
Faudrait que les variables soient déclarée en long et travailler avec des TimeSerial.
Charge le projet Sur Cjoint tu le dézipe.
Je crois que c'est un bon exemple pour travailler avec des dates et heures, il y a aussi un MSHFlexGrid qui devrait être une bonne démo.
Il y a assez bien d'explications
A+

CellAlignement n'intervient que sur la cellule active déterminée par Col et Row
pour aligner par colonne voir

    Fg.ColAlignment(x) = flexAlignCenterCenter 'pour centre/Centrer les colonnes 'normales'
    Fg.ColAlignmentFixed(x) = flexAlignCenterCenter ' idem pour colonnes titres

Tu emploi un Grid mais tu met tout dans une seule colonne ? je ne vois pas l'intérèt de pratiquer comme cela, tu devrais mettre chaque titres dans une colonne et chaque données dans des colonnes séparées!
Je te rappel que ta première idée était de mettre dans des colonnes séparées !!

Si tu veu faire un Clip avec ton entrée fichier...(il faut 5 colonnes)

mastring  = "date" & vbTab  & " heures embauches " & vbTab   & " fin services " &  vbTab  & " Heures supp " &  vbTab  & "Heures nuit " 
    with MSFlexGrid1
        .ro = 0 : .Col = 0
        .Text = mastring  
    end with

Et pour sauver tes données ou les lire voir du côté de la propriété Clip, mais je vais pas tout dire d'une fois,
A+

Re,

Met les formes , le projet et un fichier, enfin tout le répertoir quoi.. dans un zip et met sur Cjoint.
Parce que comme ça ça peut durer longtemps.
Ensuite tu met le lien dans un poste suivant.

Bonjour,
Tu peu pas me metrtre ça en ZIP, j'ai pas de logiciel installé pour les Rar