Michele a besoin d’un moyen de compter le nombre de listes à puces ou le nombre de listes numérotées dans un document. Elle se demande comment cela pourrait être accompli dans Word.

C’est un peu plus difficile qu’on pourrait l’imaginer, l’essentiel étant que nous ne pouvons trouver aucun moyen de générer un décompte de manière fiable. La raison de cela peut prendre un peu d’explication.

Vous pouvez ajouter des styles à votre document de plusieurs manières. Par exemple, vous pouvez cliquer sur les outils Liste numérotée ou Liste à puces dans l’onglet Accueil du ruban pour convertir le ou les paragraphes actuels en liste. Vous pouvez également commencer à taper et permettre à Word de détecter (via AutoFormat lors de la frappe) si vous créez une liste numérotée ou une liste à puces. Vous pouvez même définir et appliquer des styles qui désignent ce que vous souhaitez utiliser sous forme de liste.

Quelle que soit la façon dont vous créez vos listes, Word associe un style aux paragraphes de la liste. Si vous créez et appliquez votre propre style, ce style particulier est (bien sûr) utilisé. Si vous utilisez les boutons de la barre d’outils ou comptez sur AutoFormat pour créer les listes, Word applique automatiquement le style de paragraphe de liste. (Oui, il utilise exactement le même style, qu’il s’agisse d’une liste numérotée ou à puces.)

Les styles étant associés à la liste, vous pouvez déterminer rapidement le nombre d’occurrences du style en cours d’utilisation. Tout ce que vous avez à faire est d’afficher le volet Office Styles (affichez l’onglet Accueil du ruban et cliquez sur la petite icône en bas à droite du groupe Styles). Recherchez le style utilisé pour vos listes, placez le pointeur de la souris sur ce nom de style, puis cliquez sur la flèche vers le bas qui apparaît à droite du nom. Vous verrez apparaître quelque chose de similaire à l’un des suivants:

  • Tout sélectionner: (Aucune donnée)

  • Sélectionnez toutes les instances X

Si ce que vous voyez correspond au premier format, sélectionnez cette option. Lorsque vous survolez le nom du style et que vous cliquez à nouveau sur la flèche vers le bas, ce que vous voyez doit correspondre au deuxième format.

Vous pourriez penser que cela vous montre le nombre de listes dans votre document. Ce n’est pas le cas; il ne vous montre que le nombre de paragraphes formatés avec ce style particulier. Ainsi, si vous avez une seule liste composée de 6 éléments, le nombre de styles retourné sera 6.

Par conséquent, cette approche – compter les styles – ne fournit pas un moyen fiable de déterminer le nombre de listes.

L’autre façon que vous pourriez envisager est d’utiliser une macro pour déterminer le nombre de listes dans votre document. Word gère une collection de listes et la rend disponible pour VBA. Vous pouvez parcourir chaque liste du document et examiner sa propriété ListType. Cette propriété peut en fait être l’une des sept valeurs différentes, comme indiqué par les énumérations suivantes:

wdListBullet wdListListNumOnly wdListMixedNumbering wdListNoNumbering wdListOutlineNumbering wdListPictureBullet * wdListSimpleNumbering

Vous pouvez probablement comprendre ce que chacun de ces types de listes implique, mais comment ils se déroulent dans la réalité peut être un peu déroutant. À titre d’exemple, considérons la macro suivante:

Sub CheckLists()

Dim oL As List     Dim sMsg As String     Dim J As Integer     Dim K As Integer

J = ActiveDocument.Lists.Count     For Each oL In ActiveDocument.Lists         K = K + 1         oL.Range.Select

sMsg = "This is list " & K & " of " & J         sMsg = sMsg & " lists in the document." & vbCrLf & vbCrLf         sMsg = sMsg & "This list is this type: "

Select Case oL.Range.ListFormat.ListType             Case wdListBullet                 sMsg = sMsg & "wdListBullet"

Case wdListListNumOnly                 sMsg = sMsg & "wdListListNumOnly"

Case wdListMixedNumbering                 sMsg = sMsg & "wdListMixedNumbering"

Case wdListNoNumbering                 sMsg = sMsg & "wdListNoNumbering"

Case wdListOutlineNumbering                 sMsg = sMsg & "wdListOutlineNumbering"

Case wdListPictureBullet                 sMsg = sMsg & "wdListPictureBullet"

Case wdListSimpleNumbering                 sMsg = sMsg & "wdListSimpleNumbering"

End Select         MsgBox sMsg     Next oL End Sub

Si vous disposez d’un document qui contient des listes et que vous l’exécutez, il sélectionnera chaque liste à son tour et affichera une boîte de message indiquant le type de liste que Word pense que la sélection représente. Le problème est que si votre texte contient deux listes entrecoupées d’un paragraphe ou deux de texte, Word le considère comme une liste unique du type wdListMixedNumbering. En d’autres termes, il ne comprend pas avec précision ce qu’est une liste et ce qui ne l’est pas. Cela rend cette approche particulière peu fiable pour compter le nombre de listes dans votre document, bien qu’elle soit plus précise que l’utilisation de l’approche count-the-styles.

L’essentiel, comme mentionné au début, est qu’il n’y a aucun moyen que nous puissions déterminer de compter avec précision le nombre de listes à puces et numérotées dans un document.

_Note: _

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

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

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13528) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.