Bonjour le forum,

J'ai une procédure qui me permet, en tapant les premières lettres d'un nom me trouve tous les noms correspondant et les charges dans une listbox.

Le problème c'est que dans la listbox je me retrouve avec 3 fois le même nom alors qu'il n'y à pas de doublon dans ma colonne.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Columns("A:A").Select
    Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
DerLig = Range("A65536").End(xlUp).Row
For i = DerLig To 2 Step -1
Selection.FindNext(After:=ActiveCell).Activate
    ListBox1.AddItem ActiveCell
Next i
Si quelqu'un à une idée

GREG