[VBA-E] ListBox Valeur dejà ajouté?
Bonjours,
Le titre n'es peu être pas très parlant mais je actuellement entrain de développer une petite interface de séléction est j'aimerai savoir si il existe une commande toute faite pour vérifier si une valeur à dejà été ajouté dans une ListBox, mon code actuel est assez lourd et ce présente comme ci dessous :
Code:
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 33 34 35 36 37 38 39 40 41
| Sub Groupe()
Set Acc = ThisWorkbook.Sheets("Acceuil")
Set BdD = ThisWorkbook.Sheets("BdD")
Dim i As Integer
Dim j As Integer
Dim GRP(100000) As Variant
Acc.LstGrp.Clear
ThisWorkbook.Sheets("BdD").Select
i = 3
Do Until IsEmpty(Cells(i, 1)) = True
i = i + 1
Loop
iNblignes = i - 1
For i = 3 To iNblignes
For j = 1 To iNblignes
If BdD.Cells(i, 5) = GRP(j) Then GoTo Sortie
Next j
Acc.LstGrp.AddItem BdD.Cells(i, 5)
GRP(i - 2) = BdD.Cells(i, 5)
Sortie:
Next i
Acc.Select
End Sub |
J'utilise donc une itération ibriqué dans une autre pour vérifié si j'ai dejà ajouté la valeur. Ceci semble marcher pour un tableau assez petit mais j'arrive à 10303 lignes de donnée et je recontre beaucoup de problème que puis je utiliser comme fonction? Ou sinon mon code serait il mauvais? :D
Merci d'avance.
* Si je n'utilise pas la méthode Row.Count pour detecter la dernière ligne c'est juste une préférence personnelle.