Word inclut une fonctionnalité de liste numérotée intégrée que vous pouvez utiliser pour développer rapidement vos listes. C’est génial pour les listes qui sont dans l’ordre croissant (1 à 10), mais pas si bon pour celles que vous voulez dans l’ordre décroissant (10 à 1).

Si vous avez besoin de listes inversées, il n’existe aucune fonctionnalité automatique dans Word qui vous permet de les créer. Une façon de contourner ce problème consiste simplement à créer vos propres numéros de liste et à les mettre dans l’ordre souhaité. Le problème avec ceci est que le processus est manuellement intensif. En outre, la fonctionnalité de liste numérotée régulière de Word peut faire des ravages avec votre liste ordonnée en sens inverse si vous appuyez sur Entrée à la fin d’un élément de liste existant.

Une autre façon de gérer la situation consiste à faire précéder chaque élément de votre liste d’un champ SEQ pour générer le numéro de l’élément de liste. Lorsque vous avez terminé avec les éléments de la liste, vous pouvez alors mettre à jour les champs et trier les paragraphes par ordre décroissant. L’inconvénient évident de cette approche est que vous devez entrer votre liste initiale dans l’ordre inverse, car le tri final fera le tri pour vous. Ainsi, si vous aviez 10 éléments, vous saisiriez d’abord le numéro 10, puis le numéro 9, et ainsi de suite. Lorsque vous avez fait le tri, l’ordre des éléments était inversé et chaque élément se retrouverait dans son ordre final.

Un autre inconvénient est que l’ajout d’éléments à la liste devient fastidieux, et si vous mettez à jour les champs de votre document, les numéros seront complètement supprimés. Ainsi, une approche plus satisfaisante doit être trouvée.

Une façon consiste à modifier le champ SEQ afin qu’il montre de manière plus appropriée l’ordre prévu des paragraphes. L’utilisation d’un champ composé pour le numéro de liste peut le faire de la manière suivante:

{=NP — {SEQ RevList}}

Dans ce cas, les caractères NP doivent être remplacés par un nombre supérieur d’un au nombre d’éléments de votre liste finale. Ainsi, si votre liste se composait de 25 éléments, alors NP serait de 26. Le champ SEQ est utilisé pour générer un ordre croissant des nombres soustraits de NP pour donner une numérotation inverse finale.

Tant que vous connaissez le nombre de paragraphes (items) dans votre liste et que vous pensez à mettre le champ au début de chaque paragraphe, vous êtes en très bon état. Si vous oubliez l’un ou l’autre, votre liste peut être rejetée. Pour résoudre ce problème, une macro peut être utile. Les macros suivantes (RevList et DoList) feront l’affaire.

Sub RevList()

Dim ShowFlag As Boolean     Dim Numparas As Integer     Dim Counter As Integer

Numparas = Selection.Paragraphs.Count     Selection.MoveLeft Unit:=wdCharacter, Count:=1     ShowFlag = ActiveWindow.View.ShowFieldCodes     ActiveWindow.View.ShowFieldCodes = True     DoList Numparas     Counter = 1     While Counter < Numparas         Selection.Move Unit:=wdParagraph, Count:=1         DoList Numparas         Counter = Counter + 1     Wend     ActiveWindow.View.ShowFieldCodes = ShowFlag     ActiveDocument.Select     ActiveDocument.Fields.Update End Sub
Private Sub DoList(Cnt As Integer)

Selection.Extend     Selection.MoveRight Unit:=wdCharacter, Count:=1     If InStr(Selection.Text, "SEQ") > 0 Then         Selection.MoveRight Unit:=wdCharacter, Count:=2         Selection.Delete Unit:=wdCharacter, Count:=1     Else         Selection.Collapse Direction:=wdCollapseStart     End If     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="=" & Cnt + 1 & "-"

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="SEQ RevList"

With Selection.ParagraphFormat         .LeftIndent = InchesToPoints(0.5)

.FirstLineIndent = InchesToPoints(-0.5)

End With     Selection.MoveRight Unit:=wdCharacter, Count:=4     Selection.InsertAfter "." & vbTab End Sub

Pour utiliser les macros, sélectionnez simplement les paragraphes à inclure dans la liste, puis exécutez RevList, qui à son tour utilise DoList. Les champs appropriés sont placés au début de chaque paragraphe (en supprimant tous ceux qui s’y trouvent déjà) et en appliquant un retrait suspendu aux paragraphes.

Si vous souhaitez modifier la manière dont le retrait suspendu est créé, modifiez simplement les lignes dans la macro DoList dans laquelle les propriétés LeftIndent et FirstLineIndent sont définies.

_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 (1759) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Reverse_Numbered_Lists [Reverse Numbered Lists].