Un bouton rechercher [Résolu]

Messages postés
69
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
27 juin 2009
- - Dernière réponse : kanabinch
Messages postés
69
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
27 juin 2009
- 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
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
8
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"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 108 internautes nous ont dit merci ce mois-ci

Messages postés
2382
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
17
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.
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
8
0
Merci
Faute de frappe, à la place de 'sélestionner', comprendre 'sélectionner' :-)
Messages postés
69
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
27 juin 2009
0
Merci
merci pour le "c" de sélectionner
Messages postés
69
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
27 juin 2009
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.