Synchroniser 2 ListView

Bonjour,

Ma demande est assez urgente car dans le cadre de mon association, je souhaiterais comparer le contenu de 2 ListView.

Ma Form contient 2 ListView de 2 colonnes chacunes.
La première colonne correspond au nom du fichier, la deuxième à son numéro de version.

La ListView1 est remplie automatiquement en effectuant une recherche réseaux de divers fichiers.
La ListView2 est préremplie avec une liste exhaustive de fichier.

Je souhaite qu'en cliquant sur un élément de la ListView1, l'élément portant le même nom dans la ListView 2 soit sélectionné et que les numéros de version, respectivement les ListView.SelectedItem.Text.

Pour l'instant voici le code de mon bouton qui compare les textes, il rester ensuite à comparer les sous-items correspondant au numéro de version...

Private Sub BtnCompare_Click()
    Dim fName As String, split_fName As String, Cible As Integer
    Dim i As Integer
    If ListView1.ListItems.Count <> 0 Then
        ' le nom du fichier correspond à l'élément sélectionné
        fName = ListView1.SelectedItem.Text
        split_fName = Right(Left(fName, Len(fName)- 4), 5)
        ' on va parcourir toute la ListView2 et comparer chaque ligne avec le nom du fichier
            For i = 1 To ListView2.ListItems.Count
            Cible = ListView2.ListItems(i).Text
                ' si le nom du fichier existe dans la ListView2, on sélectionne l'élément correspondant
                If InStr(Cible, split_fName) <> 0 Then
                    ListView1.SelectedItem.Index = i
                End If
            End If
        Next i
    Else
        MsgBox "La liste est vide!"
        Exit Sub
    End If
End Sub

Salut,

quand je lis ton explication j'ai le sentiment que tu t'es barré avant d'avoir fini...

Je souhaite qu'en cliquant sur un élément de la ListView1, l'élément portant le même nom dans la ListView 2 soit sélectionné et que les numéros de version, ... et ... ?!!... ... ... !!!  je tourne la tete a droite, a gauche... je me retourne... personne !... Ben il est parti !... meme pas dit au revoir!...

je vais essayer quand meme ... la suite doit surement ce passer ici :

If InStr(Cible, split_fName) <> 0 The
    dim n as integer
    For n = 0 to ListView1.listitems(i).listsubitems(),count -1
        if  ListView1.ListItem(i).ListSubItems(n).Text = ... hmmm ! ben... je doit y aller aussi moi ... A+
    ListView1.SelectedItem.Index = i
End If

Non sans rire, donne nous le bout d'explication qui manque.

A+

Bonjour Big-Fish,
Euh oui, j'ai posté ce message peu de temps avant de rentrer à la maison... meas culpa.
Donc que te faut-il pour comprendre davantage mon code et ma question?

L'énoncé de mon problème me semblait clair... comparer le contenu de 2 listviews.

Chacune est composée de 2 colonnes or je ne sais pas vraiment comment faire pour accéder "au contenu" des sous-éléments.

J'attends de tes nouvelles et merci d'avance.