Compter le nombre de doublons dans un listbox

Bonjour,

J'ai un listbox avec des doublons et j'aimerai compter le nombre de chaque doublons
exemple:
ordi
ordi
ordi

nombre : 3

Est-ce possible

Merci d'avance

Bonsoir,

Private Sub Command1_Click()
Dim i, n
n = 0
For i = 0 To List1.ListCount - 1
    If List1.List(i) = "ordi" Then
    n = n + 1
    End If
    Next i
    MsgBox n
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée

Le technique est simple : deux boucles imbriquées, tout simplement !

Il faut imbriquer deux boucle, soit du type For/Next si tu es à même de connaître le nombre d'éléments, soit une Do/Loop (un peu plus lourde cependant!).
Il faut considérer ta liste comme étant en fait deux listes. Tu compares le contenu de chaque élément de la première avec chaque éléments de la secondes :

123 > 123    123¬   123    123 ¬  123
456   456    456 -> 456    456 |  456
789   789    789    789    789 -> 789

123 -> 123    123    123    123    123
456-|  456    456 -> 456    456-|  456
789    789    789    789    789 -> 789

Mais, en testant toute fois la position que tu testes dans la première boucle afin de l'éluder lorsque tu tomberas sur elle dans la seconde :

'Exemple abstrait :
tblListe(10)
For varBoucle1 = 1 To 10
 For varBoucle2 = 1 To 10
  If varBoucle1 <> varBoucle2 Then
   If tblListe(varBoucle1) = tblListe(varBoucle2) Then  'Doublon de l'élément varBoucle1
  End If
 Next varBoucle 2
Next varBoucle 1

Enjoy

---