Un bouton rechercher [Résolu]

kanabinch 69 Messages postés mardi 1 février 2005Date d'inscription 27 juin 2009 Dernière intervention - 7 mars 2006 à 17:00 - Dernière réponse : kanabinch 69 Messages postés mardi 1 février 2005Date d'inscription 27 juin 2009 Dernière intervention
- 8 mars 2006 à 17:41
Cette fois-ci j'ai une listebox où précédemment j'ai pu enregistrer des mots dans celle-ci. (qui ont été vérifié grâce à la table ascii...)
En fait mon soucis, içi, c'est que je souhaiterai après avoir sélectionner un mot ds la liste cliquer sur le bouton rechercher et afficher "trouvé au n ième caractères" (n étant la position dans le texte). Ce message doit apparaître autant de fois que le mot est dans le texte (une textbox)
En fin de traitement, il doit safficher "le mot a été trouvé x fois dans le texte" Pour ça je pense savoir le faire.
enfin si le texte n'a pas été sélectionné, il faudrait renvoyer un message genre " veuillez sélestionner un mot"
je sais que je dois utiliser :
- nomdelaliste.ListIndex (renvoie une valeur négative lorsqu'il n'y a pas de sélection)
- nomdelaliste.Text (retourne le texte sélectionné d'une liste)

voilà merci de votre aide
Afficher la suite 

5 réponses

Meilleure réponse
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 7 mars 2006 à 22:41
3
Merci
Salut,

Si j'ai bien compris, voici un bout de code qui peut t'aider avec un commandbutton nommé Command1, une listbox nommée List1 et une textbox nommée Text1 :

Private Sub Command1_Click()

Dim p As Integer
Dim i As Integer
Dim cpt As Integer

If List1.ListIndex < 0 Then 'test si sélection dans la listbox
MsgBox "Veuillez sélestionner un mot"
Else
'afficher les positions
For i = 1 To Len(Text1.Text)
p = InStr(i, Text1.Text, List1.Text)
If p = 0 Then Exit For
If p = 1 Then
MsgBox "Trouvé au " & p & "er caractère"
Else
MsgBox "Trouvé au " & p & "ème caractère"
End If
cpt = cpt + 1
i = p
Next

'afficher le nombre d'occurences
MsgBox "Le mot a été trouvé " & cpt & " fois dans le texte"

End If

End Sub

Un truc en plus, si tu veux seulement connaître le nombre de fois que ton mot apparait dans le texte ce code suffit :

MsgBox "Le mot a été trouvé " & (Len(Text1.Text) - Len(Replace(Text1.Text, List1.Text, ""))) / Len(List1.Text) & " fois dans le texte"

Merci cs_CanisLupus 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 125 internautes ce mois-ci

cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 7 mars 2006 à 18:07
0
Merci
Salut,
Je ne comprend pas tout, tu parles d'une sélection dans ton listbox et après tu dis que tes mots à compter sont dans une textbox.
Soit plus clair stp.
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 7 mars 2006 à 22:47
0
Merci
Faute de frappe, à la place de 'sélestionner', comprendre 'sélectionner' :-)
kanabinch 69 Messages postés mardi 1 février 2005Date d'inscription 27 juin 2009 Dernière intervention - 8 mars 2006 à 17:41
0
Merci
merci pour le "c" de sélectionner
kanabinch 69 Messages postés mardi 1 février 2005Date d'inscription 27 juin 2009 Dernière intervention - 8 mars 2006 à 17:41
0
Merci
merci beaucoup pour le code, tout fonctionne très bien, encore merci.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.