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