Compter le nombre de fois ou le mot apparaît dans une ligne

iaetlse Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Etant débutante sur VBA, je dois compter le nombre de fois ou le mot "séance" apparaît dans la ligne 5 de ma page "notes DROIT" Je n'arrive vraiment pas à trouver ce qu'il faut utiliser. J'ai essayer la fonction countif et faire un DO LOOP mais rien ne marche.

Quest ce que je dois faire ?

Merci de votre aide !!!
A voir également:

3 réponses

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Etant débutante sur VBA

Je déplace ta question dans la section VBA du forum.

Par contre.. tu ne nous dis pas sur quel logiciel tu travailles...
Word ? Excel ? ....

En tous cas.. si tu sais déjà récupérer la phrase, tu peux ensuite lui associer cette fonction pour connaitre le nombre d'occurrences de ton mot :
Public Function NbOccurrenceMot(strPhrase As String, strMot As String) As Integer
    Dim strTab() As String
    strTab = Split(strPhrase, strMot)
    NbOccurrenceMot= UBound(strTab())
End Function

0
iaetlse Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour la réponse,

Je travaille sur Excel pardon !
Et non je ne sais pas comment récupérer la phrase, j'ai vraiment du mal à comprendre le fonctionnement de VBA, et tout ce que j'ai essayé de faire ne fonctionne pas...
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 

je ne sais pas comment récupérer la phrase

Et bien..il faut que tu nous en dise plus....

Cette phrase.. se trouve
- dans une feuille (un onglet de ton classeur) : Laquelle ?
- Dans une cellule ? Laquelle ?


Ensuite...il te suffit de faire :

Sub getNbOccurrenceMot()

Dim Feuille As Worksheet
Dim Phrase As String
Dim Cellule As Range
Dim strMot As String
    strMot = "Mot_a_chercher"

Set Feuille = Sheets("nom_de_la_feuille")
Set Cellule = Range("A1") ' cellule contenant la phrase
Phrase = Cellule.Value

MsgBox NbOccurrenceMot(Phrase, strMot)

End Sub

Public Function NbOccurrenceMot(strPhrase As String, strMot As String) As Integer
    Dim strTab() As String
    strTab = Split(strPhrase, strMot)
    NbOccurrenceMot = UBound(strTab())
End Function



0