Bonjour,
Après plusieurs heures de recherches sur la toiele et des demandes d'aide auprés de mon entourage je n'ai pas pu trouver comment remplacer Entrée par Tabulation lors de déplacements entre deux champs sur un formulaire.
La tabulation et les flêches directionnelles fonctionnent très bien mais les utilisateurs peuvent valider "mécaniquement" le contenu d'un champ avec la touche Entrée.
Le soucis c'est que cela génére des lignes supplémentaires et décale toute la présentation.
J'ai essayé :
(en mettant des signets et en enregistrant les macros)
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 Sub EnterKeyMacro() ' Check whether the document is protected for forms ' and whether the protection is active. If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _ Selection.Sections(1).ProtectedForForms = True Then ' Retrieve the bookmark of the current selection. ' This is equivalent to the name of the form field. myformfield = Selection.Bookmarks(1).Name ' Go to the next form field if the current form field ' is not the last one in the document. If ActiveDocument.FormFields(myformfield).Name <> _ ActiveDocument.FormFields(ActiveDocument.FormFields.Count) _ .Name Then ActiveDocument.FormFields(myformfield).Next.Select Else ' If the current form field is the last one, ' go to the first form field in the document. ActiveDocument.FormFields(1).Select End If Else ' If the document is not protected for forms, ' insert a tab stop character. Selection.TypeText Chr(13) End If End Sub
ou plus simplement
et d'autres qui n'ont rien donné...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub EnterKeyMacro() SendKeys "{Tab}" End Sub
Pourriez vous m'indiquer la marche à suivre pour supprimer l'effet de la touche entrées ?
je vous adresse une copie du fichier en extension docx car il n'est pas possible d'envoyer du docm.
Merci d'avance.
Partager