Dim toto As New Collection For i = 0 To List1.ListCount - 1 On Error Resume Next toto.Add "", List1.List(i) Next MsgBox toto.Count
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim h as new HashTable For Each Item as ListItem If Not h.Contains(Item.ToString) Then h.Add Item.ToString End If Next Item MessageBox.Show h.Count.ToString()
J' aurais aimais savoir comment compter les subitems différents
J essaie de faire des boucles dans tous les sens ça rame et en plus cela ne fonctionne pas
Pour I = 0 jusqu'au dernier compteur = compteur + 1 pour J = I + 1 jusqu'au dernier si article J article I alors compteur compteur - 1 et quitter cette boucle J J suivant I suivant
si article J article I alors compteur compteur - 1 et quitter cette boucle J