begin process at 2008 07 05 14:50:46
1 205 204 membres
180 nouveaux aujourd'hui
14 119 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Comparer des listview [ Divers / Débutants ] (Fripouil)

Comparer des listview le 21/05/2008 14:20:24

Fripouil
Bonjour,

Voila mon probléme car j' ai beau faire tout ce que je peux mais je n' y arrive pas.

J' ai 2 listview à 2 colonnes qui contiennent des infos

et 1 troisiémes vide

Comment afficher dans la listview 3 les items qui manquent dans la listview2 par rapport à ceux de la listview1 ?

MERCI

Fripouil

Re : Comparer des listview le 21/05/2008 15:08:17

jimy neutron
Membre Club
Salut,

Private Sub CommandButton3_Click()
Dim IndexLV1 As Integer
Dim IndexLV2 As Integer
Dim IndexLV3 As Integer
Dim ValLV1 As String

Lv3.ListItems.Clear
IndexLV3 = 1

For IndexLV1 = 1 To Lv1.ListItems.Count
    ValLV1 = Lv1.ListItems(IndexLV1).SubItems(1).Text
    
        For IndexLV2 = 1 To Lv2.ListItems.Count
            'Si il a été trouvé on passe à la ligne suivante dans Lv1
            If Lv2.ListItems(IndexLV2).SubItems(1).Text = ValLV1 Then GoTo Suite
        Next IndexLV2
        
        'Si il n'a pas été trouvé on l'ajoute à LV3
        Lv3.ListItems(IndexLV3).SubItems(1).Text = ValLV1
        IndexLV3 = IndexLV3 + 1
    End If
Suite:
Next IndexLV1
End Sub

Le principe est valable pour une colonne, tu devrs l'adapter pour la deuxième.
Jimy

Re : Comparer des listview le 21/05/2008 16:09:33

jimy neutron
Membre Club
Rectification:
Le code ci-dessus controle la deuxieme colonne de chaque ligne.
Voici pour la premiere:

Private Sub CommandButton3_Click()
Dim IndexLV1 As Integer
Dim IndexLV2 As Integer
Dim IndexLV3 As Integer
Dim ValLV1 As String

Lv3.ListItems.Clear
IndexLV3 = 1

For IndexLV1 = 1 To Lv1.ListItems.Count
    ValLV1 = Lv1.ListItems(IndexLV1).Text
    
        For IndexLV2 = 1 To Lv2.ListItems.Count
            'Si il a été trouvé on passe à la ligne suivante dans Lv1
            If Lv2.ListItems(IndexLV2).Text = ValLV1 Then GoTo Suite
        Next IndexLV2
        
        'Si il n'a pas été trouvé on l'ajoute à LV3
        Lv3.ListItems.Add IndexLV3, , ValLV1
        IndexLV3 = IndexLV3 + 1
    End If
Suite:
Next IndexLV1
End Sub

Mieux? Le "Lv3.ListItems.Add IndexLV3, , ValLV1" (Add) est indispensable pour creer une nouvelle ligne dans Lv3

Au fait, tu ne la pas précisé, si tu trouve une infos de Lv1 qui n'exista pas dans Lv2, tu recopie la ligne complete dans Lv3?

Re : Comparer des listview le 03/06/2008 15:17:35

Fripouil
Bonjour,

Merci encore mais je n' arrive pas à remplir mes 2 colonnes de ma listview3.

Soit j' arrive a afficher mes infos 1 dans la premiére colonne soit mes infos 2, mais rien ne se met dans la deuxiéme colonne.

Peux tu encore m' aider ?

Fripouil

Re : Comparer des listview le 03/06/2008 15:31:14

Fripouil

PS : voila ce qui se passe à peu prés


   ListView1               ListView2              ListView3

Code   Heure          Code   Heure        Code   Heure

0001 16:42             0001 16:42           0002
0002 16:43             0003 16:44
0003 16:44

mais je n' ai pas mon heure qui s affiche dans la listview3.

Sachant que les heures sont liées avec les codes et ne sont pas indépendanttes.

Merci encore



Classé sous : comparer, listview

Participer à cet échange

Livres en rapport

Pub



Appels d'offres

Plugin Dialer outlook
Budget : 2 000€
Travail graphique- ill...
Budget : 1 000€
creation de marque et ...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS