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 :
Si quelqu'un à une idée
Merci d'avance
GREG
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:
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
Merci d'avance
GREG