Bonjour à tous !
 
j'aimerais chercher combien de fois apparaît une chaîne de caractères précise dans une listebox remplie, mais je n'arrive pas à trouver comment on fait, j'ai demander à des amis qui eux n'ont plus n'arrivaient pas (à croire que l'on ne chercher jamais de chaîne de caractères dans une liste  ) et google n'a pas été mon ami sur ce coup.
 
Pouvez-vous m'aider s'il vous plait ?

tu peux donner un exemple de ce que tu cherches stp ?

oui biensur,
ma liste est remplie de texte par exemple, comme des expressions, et j'aimerais par exemple, chercher dans cette liste, le nombre de fois qu'apparait le mot "je" dans toute la liste

genre :
 - piège
 - cage
 - je
 - jeux
 - jetski
 
=> nb de je = 3 ?

oui voila, exactement

fonctions à voir (pas toutes testées):
- split()
- strcomp()
- mid()

tu peux m'expliquer comment s'en servir ? parceque un souci notamment, c'est pour dire que l'on compare une chaine prédéfinie, ( ici "je" ) et la chaine contenue a l'indice courant de ma boucle de passage, et la j'ai du mal

j'ai trouvé mieux : la fonction like qui te retourne true ou false si l'élément testé contient.
 
tape like dans VBE puis F1

euh...
 
instr()
=> il te donne la position de la première occurence trouvée
=> il prends en paramètre à partir d'où tester
=> donc tu vais un appel dans une boucle en mettant la position de départ = dernière trouvée + len(mot cherché) tant que ça ne retourne pas 0 (en VB, une chaine commence au caracvtères 1, donc 0 signifie "non trouvé" )

merc, je trouvais plus la fameuse fonction toute faitre expres

ceci dit, l'idée du split, même si elle est bien nase, marche aussi très bien
 
nbocc = ubound(split(machaine, monmot)) - 1
 
c'est horrible, mais ça marche

merci
 
mais pour la fonction instr(), cela me donne  
 
        For i = 0 To LstDetailClicCommande.Items.Count - 1
            InStr(LstDetailClicCommande.Items(i).ToString, "machaine", CompareMethod.Text, CompareMethod.Text, j)
 
        Next
 
pour les comparemethod c'est ce que j'ai vu apparaitre a l'ecran comme parametre.
et je ne vois pas ou dire a partir de quel indice chercher, en fait je ne comprend pas comment compter le nombre de fois qu'une chaine apparait avec, peux tu m'en expliquer d'avantage s'il te plait ? (ui je debute si je n'avais pas précisé ) merci beaucoup

Puisque tu débutes, commence par prendre de bonnes habitudes et cherche la fonction InStr() dans l'aide en ligne VBA.
Tu devrais comprendre vite ton problème.

voila, je viens de le faire, j'ai compris alors pour start, et j'ai donc fait ceci, juste pour voir si ca fonctionnait
 
        j = 1
        For i = 0 To LstDetailClicCommande.Items.Count - 1
            j = InStr(j, LstDetailClicCommande.Items(i).ToString, "machaine" )
        Next
 
mais à l'éxécution, j'ai un message me disant que start ne peut etre egal à 0, alors qu'ici il vaut 1 :s

ta boucle du i, fais la commencer à 1 et non pas 0

       j = 1
        For i = 1 To LstDetailClicCommande.Items.Count - 1
            j = InStr(j, LstDetailClicCommande.Items(i).ToString, "classique" )
        Next
 
j'ai donc mis i et j à 1, mais je rencontre toujours le message "start doit être supérieur à 0" :s

vire le j et met directement 1

mais si je fais ca, comment est ce que le programme va savoir compter le nombre de fois que la chaine apparait, je pourrais plus rajouter de compteur, si ?

j'ao posté l'algo tout à l'heure
 
lis l'algo, et tu verras qu'aucun des bous de code ne ressemble à un pouillème de ce qu'il faut faire

option explicit
 
dim pos, nb, lrec
dim rec
dim el
 
rec = "je"
lrec = len(rec)
 
nb = 0
for each el in list.items
  pos = 1
  do while instr(pos, el.text, rec) > 0
    nb = nb + 1
    pos = pos + lrec
  loop
next
 
msgbox(cstr(nb) & " fois " & rec & " trouvé(s)" )

 
A l'erreur de syntaxe près

merci enormément MagicBuzz, j'essaie

NAN
 
"dans une boucle", "dernière trouvée", c'est du chocolat blanc ? ça implique un peu loa présence d'une boucle non ? (et pas sur tes items, mais dans l'item)

Merci énormément MagicBuzz, ca fonctionne a merveille, enfin j'ai changé .text en tostring mais c'est rien !
 
merci merci