Les mots sont normalement associés à un traitement de texte, tel que Microsoft Word. Cependant, de nombreuses personnes travaillent également avec des mots dans leur tableur. (J’ai eu un collègue une fois qui a utilisé Excel pour écrire des mémos tout le temps.) Il peut arriver que vous vouliez compter le nombre de mots dans une feuille de calcul que vous recevez de quelqu’un. Il existe des capacités natives pour effectuer une telle tâche dans Word, mais pas dans Excel.

Une solution, bien sûr, consiste à charger votre classeur dans Word, à y effectuer le décompte des mots, puis à fermer le fichier. Ce n’est cependant pas aussi flexible que de créer une macro pour compter les mots dans Excel lui-même. La macro suivante, CountWords, compte le nombre de mots dans n’importe quelle plage que vous sélectionnez dans une feuille de calcul:

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

Notez que la macro parcourt chaque cellule de la plage que vous sélectionnez.

Il ignore ensuite toute cellule contenant une formule. Dans toutes les autres cellules, il compte essentiellement le nombre d’espaces dans la cellule. (Un ou plusieurs espaces sont supposés séparer les mots.) Le nombre de mots est alors affiché dans une boîte de message pour votre modification.

La macro est assez rapide sur des plages relativement petites. Si vous choisissez une plage étendue (telle que la feuille de calcul entière), la macro peut prendre beaucoup de temps pour terminer son travail. Le but est de vous assurer que vous sélectionnez uniquement la plage réelle que vous souhaitez analyser avant d’appeler la macro.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11748) s’applique à Microsoft Excel 2007, 2010, 2013 et 2016.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici: link: / excel-Counting_Words [Counting Words].