Discussion :

[danielos]

Bonjour à toutes et à tous,

Mon attente est la suivante :
Arriver à compter les occurrences "MME" présentes dans une colonne précise (la 3ème) d'un tableau sous word.

La macro ci-dessous fonctionne très bien mais cela compte sur l'ensemble du tableau. De ce fait si l'on a dans une autre colonne l’occurrence MME contenu dans un mot, cela est pris en compte... et le total attendu est faussé.

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
 
 
Sub Compte() 
 
    Dim Plage As String 
    Dim Compteur As Integer 
    Dim searchtext As String 
    Dim Tableau() As String 
 
 Plage = ActiveDocument.Tables(1).Range.Text 
 
    searchtext = "MME" 
    Tableau = Split(Plage, searchtext) 
    Compteur = UBound(Tableau()) 
    ActiveDocument.Bookmarks("Nb1").Range.Text = Compteur 
 
End Sub

J'ai bien tenté de modifier la ligne
Plage = ActiveDocument.Tables(1).Range.Text
en mettant
Plage = ActiveDocument.Tables(1).columns(3).Range.Text
mais évidement ça ne va pas et génère une erreur ;-(

Un grand merci d'avance à celui ou celle qui pourra me corriger ce code.
Daniel

[Invité]

Bonjour,

Essayez ce code contenant une fonction :

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
Sub TestCompterLesMots()
Dim NombreDeMots As Long
    NombreDeMots = CompterLesMots(ActiveDocument.Tables(1), 3, "MME")  ' A adapter selon le numéro d'ordre de votre table dans le document
    MsgBox NombreDeMots
End Sub
 
Function CompterLesMots(ByVal TableBalayee As Table, ByVal ColonneBalayee As Integer, ByVal ChaineCherchee As String) As Long
Dim I As Long
    CompterLesMots = 0
    With TableBalayee
         For I = 1 To TableBalayee.Rows.Count
             If InStr(1, .Cell(I, ColonneBalayee).Range.Text, ChaineCherchee, vbTextCompare) > 0 Then
                CompterLesMots = CompterLesMots + 1
             End If
         Next I
    End With
End Function

[danielos]

Bonjour,

Essayez ce code contenant une fonction :

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
Sub TestCompterLesMots()
Dim NombreDeMots As Long
    NombreDeMots = CompterLesMots(ActiveDocument.Tables(1), 3, "MME")  ' A adapter selon le numéro d'ordre de votre table dans le document
    MsgBox NombreDeMots
End Sub
 
Function CompterLesMots(ByVal TableBalayee As Table, ByVal ColonneBalayee As Integer, ByVal ChaineCherchee As String) As Long
Dim I As Long
    CompterLesMots = 0
    With TableBalayee
         For I = 1 To TableBalayee.Rows.Count
             If InStr(1, .Cell(I, ColonneBalayee).Range.Text, ChaineCherchee, vbTextCompare) > 0 Then
                CompterLesMots = CompterLesMots + 1
             End If
         Next I
    End With
End Function

Ce code fonctionne très bien et répond à mon attente.
Merci.