OVH Cloud OVH Cloud

Formulaire cases à cocher

5 réponses
Avatar
maryloo
Bonsoir,
Dans un formulaire Word, j'ai créé plusieurs champs cases à cocher (pour un
questionnaire).
A l'utilisation de ce formulaire, savez-vous comment faire pour éviter de
passer sur toutes les cases à cocher en appuyant sur la touche Tabulation ?
C'est-à-dire que je voudrais ceci :
si la première case est cochée, ce n'est pas la peine de répondre aux
questions suivantes 2 et 3. Je voudrais aller directement à la question 4
par exemple.
Est-ce possible ? Ce serait super.
Merci, merci !

5 réponses

Avatar
Anacoluthe
Bonjour !

"maryloo" nous a écrit ...
Dans un formulaire Word, j'ai créé plusieurs champs cases à cocher
(pour un questionnaire).
A l'utilisation de ce formulaire, savez-vous comment faire pour
éviter de passer sur toutes les cases à cocher en appuyant sur la
touche Tabulation ? C'est-à-dire que je voudrais ceci :
si la première case est cochée, ce n'est pas la peine de répondre aux
questions suivantes 2 et 3. Je voudrais aller directement à la
question 4 par exemple. Est-ce possible ?


Ce n'est pas très dur mais il faut un peu de code vba :

CaseACocher1 et Texte4 étant les signets d'une case à cocher
et d'un champ texte du formulaire, dans les propriétés de CaseACocher1
placez dans 'Exécuter la macro' 'à la sortie' : SiOuiSauterAuChamp4()
après avoir copié la petite macro suivante du même nom dans
Alt-F11 ThisDocument

Sub SiOuiSauterAuChamp4()
If ActiveDocument.FormFields("CaseACocher1").Result = 1 Then
ActiveDocument.FormFields("Texte4").Select
End If
End Sub

Ça vous ira ?

Anacoluthe
« Ne passez pas par la case départ, ne touchez pas 20 000 francs »
- Monopoly

Avatar
nuindacil
Bonsoir anacoluthe,

On doit bien trouver ça dans la faq, non ?... ;-))
nuindacil


Bonjour !

"maryloo" nous a écrit ...

Dans un formulaire Word, j'ai créé plusieurs champs cases à cocher
(pour un questionnaire).
A l'utilisation de ce formulaire, savez-vous comment faire pour
éviter de passer sur toutes les cases à cocher en appuyant sur la
touche Tabulation ? C'est-à-dire que je voudrais ceci :
si la première case est cochée, ce n'est pas la peine de répondre aux
questions suivantes 2 et 3. Je voudrais aller directement à la
question 4 par exemple. Est-ce possible ?



Ce n'est pas très dur mais il faut un peu de code vba :

CaseACocher1 et Texte4 étant les signets d'une case à cocher
et d'un champ texte du formulaire, dans les propriétés de CaseACocher1
placez dans 'Exécuter la macro' 'à la sortie' : SiOuiSauterAuChamp4()
après avoir copié la petite macro suivante du même nom dans
Alt-F11 ThisDocument

Sub SiOuiSauterAuChamp4()
If ActiveDocument.FormFields("CaseACocher1").Result = 1 Then
ActiveDocument.FormFields("Texte4").Select
End If
End Sub

Ça vous ira ?

Anacoluthe
« Ne passez pas par la case départ, ne touchez pas 20 000 francs »
- Monopoly




Avatar
Anacoluthe
Bonjour !

"nuindacil" nous a écrit ...
On doit bien trouver ça dans la faq, non ?... ;-))


Oh sûrement ! On trouve tout dans la faq et plus encore :-)
Flemme de chercher ou excès de zèle pour maryloo... :
je suis bon pour relire trois fois toute la faq !!!

Anacoluthe
« Il n'y a pas de plus grand coeur que le coeur qui pardonne. »
- Benoît LACROIX


"maryloo" nous a écrit ...

Dans un formulaire Word, j'ai créé plusieurs champs cases à cocher
(pour un questionnaire).
A l'utilisation de ce formulaire, savez-vous comment faire pour
éviter de passer sur toutes les cases à cocher en appuyant sur la
touche Tabulation ? C'est-à-dire que je voudrais ceci :
si la première case est cochée, ce n'est pas la peine de répondre aux
questions suivantes 2 et 3. Je voudrais aller directement à la
question 4 par exemple. Est-ce possible ?



Ce n'est pas très dur mais il faut un peu de code vba :

CaseACocher1 et Texte4 étant les signets d'une case à cocher
et d'un champ texte du formulaire, dans les propriétés de CaseACocher1
placez dans 'Exécuter la macro' 'à la sortie' : SiOuiSauterAuChamp4()
après avoir copié la petite macro suivante du même nom dans
Alt-F11 ThisDocument

Sub SiOuiSauterAuChamp4()
If ActiveDocument.FormFields("CaseACocher1").Result = 1 Then
ActiveDocument.FormFields("Texte4").Select
End If
End Sub

Ça vous ira ?

Anacoluthe
« Ne passez pas par la case départ, ne touchez pas 20 000 francs »
- Monopoly






Avatar
JièL Goubert
Bonjoir(c) Anacoluthe

Le 01/12/2003 13:37 vous nous disiez ceci :
Bonjour !

"nuindacil" nous a écrit ...

On doit bien trouver ça dans la faq, non ?... ;-))



Oh sûrement ! On trouve tout dans la faq et plus encore :-)
Flemme de chercher ou excès de zèle pour maryloo... :


Manque la vrai excuse : t'avais drolement envie de faire un 'tit macro
en fait ;-)))))))))

--
JièL Sur veillant


Avatar
Anacoluthe
Hello !

"JièL Goubert" nous a écrit ...
t'avais drolement envie de faire un 'tit macro en fait ;-)))))))))


m'voui... <[:-p

A+
A~