Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
suite aux remarques qui m'ont été faite quand a Find et Match, je viens d'appliquer la méthode Match, mais je bute sur la boucle pour pouvoir afficher les doublons dans les listviews. Merci pour votre collaboration. Voici la macro.
A+
suite aux remarques qui m'ont été faite quand a Find et Match, je viens d'appliquer la méthode Match, mais je bute sur la boucle pour pouvoir afficher les doublons dans les listviews. Merci pour votre collaboration. Voici la macro.
Code:
With ListView2
With Sheets("Feuil3")
lig = Application.Match(ListView1.SelectedItem, .Columns("A:A"), 0)
Set ItemCD = Me.ListView2.ListItems.Add(Text:=.Cells(lig, "A"))
ItemCD.SubItems(1) = .Cells(lig, "B")
ItemCD.SubItems(2) = .Cells(lig, "C")
ItemCD.SubItems(3) = .Cells(lig, "D")
ItemCD.SubItems(4) = .Cells(lig, "E")
ItemCD.SubItems(5) = .Cells(lig, "F")
ItemCD.SubItems(6) = .Cells(lig, "G")
ItemCD.SubItems(7) = .Cells(lig, "H")
ItemCD.SubItems(8) = .Cells(lig, "I")
End With
A+
Dernière édition: