Les clients de Dori Lynn utilisent Word pour créer des formulaires simples. L’une des choses qu’ils font assez souvent est d’utiliser des tableaux pour faciliter le déplacement dans le formulaire.

Dori Lynn se demande s’il existe un moyen de passer de la dernière cellule (champ) d’une table à la première cellule de la suivante. En ce moment, si elle tabule à la fin du tableau, cela crée une nouvelle ligne.

Appuyer sur la touche Tab lorsque le point d’insertion est dans une cellule de tableau déplace normalement la sélection vers la cellule suivante dans le tableau. Dans la dernière cellule du tableau, la touche Tab ajoute une nouvelle ligne de cellules au bas du tableau et déplace le point d’insertion vers la première cellule de la nouvelle ligne. Ce n’est évidemment pas le comportement recherché par Dori Lynn.

Il existe plusieurs approches que vous pouvez utiliser pour résoudre ce problème. La première consiste à vous rappeler que vous pouvez utiliser l’Explorateur d’objets pour passer d’une table à l’autre. Cela signifie bien sûr que vous ne pouvez pas utiliser la touche Tab pour vous déplacer de table en table, mais vous pouvez cliquer sur le bouton Explorateur d’objets (coin inférieur droit de l’écran, cliquez sur la petite « boule » entre le double vers le haut- et les flèches vers le bas, puis choisissez Parcourir par tableau parmi les options) pour trouver ces tableaux.

Si vous souhaitez réellement utiliser la touche Tab, vous devrez créer une macro. En appuyant sur la touche Tab lorsque le point d’insertion se trouve dans une table, Word exécute une commande appelée nextcell, qui à son tour exécute la commande MoveRight. Il est possible d’écrire une commande nextcell personnalisée qui force Word à faire ce que Dori Lynn veut.

link: / wordribbon-Editing_Words_Built-in_Commands [Comment vous modifiez les commandes Word existantes] est couvert dans d’autres WordTips. La routine nextcell personnalisée, ci-dessous, intercepte la touche Tab et déplace la sélection vers la cellule suivante, sauf si la cellule actuelle est la dernière cellule du tableau. Si tel est le cas, il passe au tableau suivant du document. S’il n’y a plus de tableaux dans le document, le point d’insertion reste dans la dernière cellule de ce dernier tableau.

Sub nextcell()

Dim oCell As Cell

With Selection         Set oCell = .Cells(1).Next         If oCell Is Nothing Then             .Move unit:=wdTable, Count:=1         Else             .MoveRight Unit:=wdCell         End If     End With End Sub

Le sous-programme fonctionnera correctement avec les tableaux qui ont des cellules fusionnées verticalement et horizontalement. Il traitera les tables dans les tables, mais s’arrêtera à la dernière cellule de la table interne.

_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 (5673) s’applique à Microsoft Word 2007, 2010 et 2013.