Discussion :

[Sevun]

Bonjour,

Je dois calculer dans excel le nombre de mots d'une sélection de cellule qui contient ou pas du code html. Ce texte provient d'extraction de wordpress.

Typiquement dans l'exemple: <td valign="top"><strong>toto fait du velo</strong></td> Word compte 5 mots, alors qu'il n'y en a que 4. Ce qui ne se trouve pas entre deux balises est compté comme un mot.

Je souhaiterais connaître le nombre de mots qui apparaît visuellement dans l'éditeur de texte sans compter les caractères de balises.

Pour compliquer un peu, j'ai besoin d'exclure les chaines de caractères qui contiennent des chiffres type "AGR0103" ou "01234"entre des balises ou pas.

Est ce que vous avez une idée?

[Jean-Philippe André]

Salut,

tu peux faire cela en 2 etapes :
1/ recuperer le texte qui est celui que tu cherches
2/ Passer par

Code :

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

Ubound(Split(" ",tontexte))

pour récupérer la valeur max

[Sevun]

bonjour merci de votre réponse. Juste pour préciser j'ai de vagues souvenir de VBA de l'école...

J'ai trouvé ce code sur le net, mais il compte comme Word. Comment adapter avec Ubound(Split(" ",tontexte)).

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
18
19
20
21
22
23
24
25
Function traitementcomptermotrange(range As range)
Dim NombreMots As Integer
Dim departrecherche As Integer
Dim newdepartrecherche As Integer
Dim x As Integer
Dim cellule As Variant
Dim totalmots As Integer
totalmots = 0
For Each cellule In range 'Faire les opérations suivantes pour chaque cellule de la plage
    NombreMots = 1 'Initialisation du nombre de mot (on commence à 1)
    departrecherche = 1 'Initialisation de la recherche (caractère 1)
    newdepartrecherche = 1 'Initialisation nouvelle position départ
    For x = 1 To Len(cellule) 'Parcourir tous les caractères de la cellule
        If Not InStr(departrecherche, cellule, " ", 1) = 0 Then 'Si espace vide trouvé
            NombreMots = NombreMots + 1 'Incrémenter de 1 le nombre de mot
            newdepartrecherche = InStr(departrecherche, cellule, " ", 1) + 1 'Changement position de recherche
            departrecherche = newdepartrecherche 'nouvelle position de départ pour rechercher espace vide
        Else
            totalmots = totalmots + NombreMots 'Si pas d'espace vide trouvé alors on sort de la boucle
            Exit For
        End If
    Next
Next
traitementcomptermotrange = totalmots 'renvoi le nombre de mots total trouvé
End Function

merci de votre aide

[joe.levrai]

Bonjour,

attention à ne pas oublier qu'un tableau issu de Split commencera toujours à l'indice 0
et un simple split va récupérer des portions de balises seules qui contiennent un espace, comme <td valign="top"><strong>toto

une proposition de fonction, probablement perfectible qui exclut les portions contenant les deux chaines que tu as indiqué ainsi que les portions qui commencent par "<".
Je n'ai pas le recul nécessaire pour juger si cette exclusion des "<*" est suffisante pour tout cas possible

Code :

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

1
2
3
4
5
6
7
8
9
10
Function NB_MOTS(Source As Range) As Long
Dim MesMots, i As Long, NbMots As Long
    MesMots = Split(Source.Value, " ")
 
    For i = LBound(MesMots) To UBound(MesMots)
        If Not MesMots(i) Like "*AGR0103*" And Not MesMots(i) Like "*01234*" And Not MesMots(i) Like "<*" Then NbMots = NbMots + 1
    Next i
 
    NB_MOTS = NbMots
End Function

cette fonction est utilisable depuis les feuilles de calcul Excel ou dans une procédure VBA

Code :

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

=NB_MOTS(E8)

[Sevun]

Merci beaucoup! mes cours de vba reviennent un peu

j'ai testé avec par exemple l'exemple, j'obtiens 14 alors qu'il y a 8 mots selon moi: "150g" et "3380380046940" contiennent des chiffres et ne devraient pas être comptés. On s'était mal compris. La fonction If Not MesMots(i) Like "*AGR0103*" me sera utile pour autre chose.

Code HTML :

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
18
<div id="myText" style="visibility: hidden;">Copyright@brand</div>
<table cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td valign="top"><b>Code</b></td>
<td valign="top">LPDF0002</td>
</tr>
<tr>
<td valign="top"><b>EAN</b></td>
<td valign="top">3380380046940</td>
</tr>
<tr>
<td valign="top"><b>Poids net</b></td>
<td valign="top">150g</td>
</tr>
<tr>
<td valign="top"><b>Langue d’étiquetage</b></td>
<td valign="top">fr/de/nl/it</td>

Je souhaiterais également pouvoir compter plusieurs cellules à la fois. Est ce que vous pouvez me donner encore un coup de pouce pour améliorer ?