Discussion :

[RéviAT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

SAlut
essai avec ca ca devrait le faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A++
Qwaz

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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