Bonsoir à tous,

Bien entendu, avant de poser la question, j'ai cherché sur les pages web.

Mais rien, pas de fil, excepté celui là qui indique brièvement la procédure :

http://www.developpez.net/forums/d63...imer-doublons/

Il s'agit d'une listview affichant les colonnes A et C d'une BD de plusieurs colonnes.

Voilà mon code auquel je dois ajouter la suppresion des doublons de la colonne A :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub UserForm_Initialize()
Dim i As Long
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Nom", 140        'Nom est le titre de la colonne A
       .Add , , "Parenté", 50     'Parenté est le titre de la colonne C
    End With
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        For i = 1 To Sheets("BD").Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheets("BD").Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("BD").Cells(i, 3)
        Next
    ListView1.ListItems(1).Selected = False 
    Set ListView1.SelectedItem = Nothing    
End With
End Sub
 
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView1.Sorted = False
    ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
        Else
        ListView1.SortOrder = lvwAscending
    End If
 
    ListView1.Sorted = True
End Sub
Cela m'aiderait beaucoup si quelqu'un, en dépit de ces 30° qui nous tombent sur la tête, pouvait m'indiquer le code à ajouter.

Merci, Kim.