Compter le nombre d'utilisation d'un mot

Version imprimable

14/12/2007, 13h34
RéviAT

Compter le nombre d'utilisation d'un mot
Bonjour,
Pour faire des analyses sur le vocabulaire d’un texte dans un fichier Excel (une phrase par cellule), j’ai besoin de compter le nombre de fois qu’un mot donné y figure.
Est-ce qui qu’il existe une fonction ou un sous-programme qui permet de le faire à partir d’un programme en VBA sous Excel ?
Je le fais manuellement en employant la fonction « Remplacer » (du menu « Edition »), par exemple remplaçant « avion » par « avion ». Sur l’écran s’affiche alors dans la boite de dialogue : « Excel a terminé la recherche et a effectué xxx remplacement ». Ainsi j’arrive à savoir combien il y avait de fois « avion » dans le texte.
Mais quand j’utilise cette fonction « remplacer » dans un programme en VBA je ne sais pas comment récupérer le nombre de remplacement. Voici le code que j’ai essayé en vain :
Code:

1 2 3 Selection.Replace what:="avion", Replacement:="avion", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Merci de m’aider.
Henri Laügt

SAlut
essai avec ca ca devrait le faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Avion(TestedCell As Range, LookingFor As String) As Integer
Dim IntStart As Integer
Dim IntCumul As Integer
 
IntStart = 1
IntCumul = 0
Do
 IntStart = Len(LookingFor) + InStr(IntStart, TestedCell, LookingFor, vbTextCompare)
 If IntStart <> Len(LookingFor) Then
    IntCumul = IntCumul + 1
 Else
    Exit Do
 End If
Loop
Avion = IntCumul
 
End Function

Si tu ne veux pas tenir compte de la cast du texte utilise ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Avion(TestedCell As Range, LookingFor As String) As Integer
Dim IntStart As Integer
Dim IntCumul As Integer
 
IntStart = 1
IntCumul = 0
Do
 IntStart = Len(LookingFor) + InStr(IntStart, UCase(TestedCell), LookingFor, vbTextCompare)
 If IntStart <> Len(LookingFor) Then
    IntCumul = IntCumul + 1
 Else
    Exit Do
 End If
Loop
Avion = IntCumul
 
End Function

Pour utiliser la function fait comme suit

Code:

1
2
3
4
Sub Lancer()
Dim NbrAvion As Integer
NbrAvion = Avion(Range("A1"), "avion")
End Sub

A++
Qwaz

Je te suggère également de regarder dans l'aide en ligne à Find. Il y a là un exemple pour trouver les occurence d'un mot.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
LeMot = InputBox("Saisir le mot à comptabiliser")
With Worksheets(1).Range("a1:a500") 'ta plage de données
    Set c = .Find(LeMot, lookin:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            cpt = cpt + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    msgbox Cpt & " " & LeMot & " trouvés"
End With