macro word case à cocher

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Merci beaucoup Argyronet,

Malheureusement ca ne marche pas. Le pb c'est que je suis nul en VB et bon,
y'a sans doute un truc que j'ai mal fait. J'ai le doc qi tu veux ca serait
peut-être plus simple pour t'expliquer ce que je souhaiterais faire. si t'as
un @...

Merci en tous cas.

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Je reviens vers toi Argyronet.

J'ai bien créé une macro sur VB.

1er pb : Si je laisse "Private Sub" au début et non "Sub", je ne vois pas
la macro dans les propriétés de la case à cocher.

2ème pb : Si je corrige en mettant "Sub", je visualise bien la macro. Par
contre, comment affecter le code : => exécuter la macro au démarrage? à la
sortie? Faut-il que je nomme le signet "chkCacherTexte"? Faut-il cocher la
case "calculer à la sortie"?.

J'ai essayé les différentes possibilités et ca bug : il me met "impossible
d'exécuterle code en mode arrêt".

Bref, j'y arrive pas...

Merci d'avance.

Cordialement,

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Disons que l'on part du principe que vous n'avez pas à voir la macro.
- Vous posez une case à cocher sur votre document à l'endroit désiré,
- à ce momet là, la petite equerre (mode création) s'active,
- vous cliquez 2x sur votre case à cocher, dans les propriétés,
- vous lui donner un nom, vous recliquez dessus depuis le document,
- vous devez alors avoir deux Sub....Clic(),
- vous effacer celui qui ne sert à rien,
- vous collez le code que je vous ai envoyé.
Si vous voulez, je vous envoie le document de démonstration...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Je reviens vers toi Argyronet.

J'ai bien créé une macro sur VB.

1er pb : Si je laisse "Private Sub" au début et non "Sub", je ne vois pas
la macro dans les propriétés de la case à cocher.

2ème pb : Si je corrige en mettant "Sub", je visualise bien la macro. Par
contre, comment affecter le code : => exécuter la macro au démarrage? à la
sortie? Faut-il que je nomme le signet "chkCacherTexte"? Faut-il cocher la
case "calculer à la sortie"?.

J'ai essayé les différentes possibilités et ca bug : il me met "impossible
d'exécuterle code en mode arrêt".

Bref, j'y arrive pas...

Merci d'avance.

Cordialement,

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Merci Argyronet,

Je crois avoir compris l'erreur : en fait la case que j'ai c'est un "champ"
et non une case macro, mais par contre dans les propriétés j'ai l'impression
qu'il y a possibilité d'y rattacher une macro, mais je ne sais pas comment
faire.

J'aimerais bien conserver ces champs cases à cocher car elles sont pratiques
et font très "formulaire".

Savez-vous donc si je peux garder ces cases et appliquer qd m voter formule?

Merci d'avance.

Cdt

Jiffey


"argyronet" wrote:

Disons que l'on part du principe que vous n'avez pas à voir la macro.
- Vous posez une case à cocher sur votre document à l'endroit désiré,
- à ce momet là, la petite equerre (mode création) s'active,
- vous cliquez 2x sur votre case à cocher, dans les propriétés,
- vous lui donner un nom, vous recliquez dessus depuis le document,
- vous devez alors avoir deux Sub....Clic(),
- vous effacer celui qui ne sert à rien,
- vous collez le code que je vous ai envoyé.
Si vous voulez, je vous envoie le document de démonstration...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Je reviens vers toi Argyronet.

J'ai bien créé une macro sur VB.

1er pb : Si je laisse "Private Sub" au début et non "Sub", je ne vois pas
la macro dans les propriétés de la case à cocher.

2ème pb : Si je corrige en mettant "Sub", je visualise bien la macro. Par
contre, comment affecter le code : => exécuter la macro au démarrage? à la
sortie? Faut-il que je nomme le signet "chkCacherTexte"? Faut-il cocher la
case "calculer à la sortie"?.

J'ai essayé les différentes possibilités et ca bug : il me met "impossible
d'exécuterle code en mode arrêt".

Bref, j'y arrive pas...

Merci d'avance.

Cordialement,

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Comme ceci mais cela vous oblige à protéger le document en mode formulaire...


Sub fldCaseCacher()
Select Case Selection.FormFields("nom du signet de la case à cocher").Result
Case 0
CacherTexte True
Case 1
CacherTexte False
End Select
End Sub

Sub CacherTexte(ByVal Statut As Boolean)
With ActiveWindow
With .View
.ShowHiddenText = Statut
.ShowAll = Statut
End With
End With
End Sub

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Merci Argyronet,

Je crois avoir compris l'erreur : en fait la case que j'ai c'est un "champ"
et non une case macro, mais par contre dans les propriétés j'ai l'impression
qu'il y a possibilité d'y rattacher une macro, mais je ne sais pas comment
faire.

J'aimerais bien conserver ces champs cases à cocher car elles sont pratiques
et font très "formulaire".

Savez-vous donc si je peux garder ces cases et appliquer qd m voter formule?

Merci d'avance.

Cdt

Jiffey


"argyronet" wrote:

Disons que l'on part du principe que vous n'avez pas à voir la macro.
- Vous posez une case à cocher sur votre document à l'endroit désiré,
- à ce momet là, la petite equerre (mode création) s'active,
- vous cliquez 2x sur votre case à cocher, dans les propriétés,
- vous lui donner un nom, vous recliquez dessus depuis le document,
- vous devez alors avoir deux Sub....Clic(),
- vous effacer celui qui ne sert à rien,
- vous collez le code que je vous ai envoyé.
Si vous voulez, je vous envoie le document de démonstration...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Je reviens vers toi Argyronet.

J'ai bien créé une macro sur VB.

1er pb : Si je laisse "Private Sub" au début et non "Sub", je ne vois pas
la macro dans les propriétés de la case à cocher.

2ème pb : Si je corrige en mettant "Sub", je visualise bien la macro. Par
contre, comment affecter le code : => exécuter la macro au démarrage? à la
sortie? Faut-il que je nomme le signet "chkCacherTexte"? Faut-il cocher la
case "calculer à la sortie"?.

J'ai essayé les différentes possibilités et ca bug : il me met "impossible
d'exécuterle code en mode arrêt".

Bref, j'y arrive pas...

Merci d'avance.

Cordialement,

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Bonjour Argy et merci encore pour toutes vos réponses. Je n'ai aps répondu
tout de suite car je n'ai pas eu l'avertissement du nouveau message et ne
savais donc pas que vous m'aviez suggéré une nouvelle piste.

Cela dit, la macro ne fonctionne toujours pas. Le texte a réussi à
disparaître une fois (c'est donc extrêmement aléatoire...) et en outre les
aides à la mise en page (les doubles barres coiffés d'une grosse boule, je ne
sais pas comment ca s'appelle) s'affichent à chaque fois que je décoche la
case.

Bref, je suis au point mort. Je me demandais si je ne pouvais pas vous
envoyer le document afin que vous puissiez voir concrètement de quoi il
s'agissait.

A vous lire,

Cordialement,

Jiffey

Comme ceci mais cela vous oblige à protéger le document en mode formulaire...


Sub fldCaseCacher()
Select Case Selection.FormFields("nom du signet de la case à cocher").Result
Case 0
CacherTexte True
Case 1
CacherTexte False
End Select
End Sub

Sub CacherTexte(ByVal Statut As Boolean)
With ActiveWindow
With .View
.ShowHiddenText = Statut
.ShowAll = Statut
End With
End With
End Sub

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Merci Argyronet,

Je crois avoir compris l'erreur : en fait la case que j'ai c'est un "champ"
et non une case macro, mais par contre dans les propriétés j'ai l'impression
qu'il y a possibilité d'y rattacher une macro, mais je ne sais pas comment
faire.

J'aimerais bien conserver ces champs cases à cocher car elles sont pratiques
et font très "formulaire".

Savez-vous donc si je peux garder ces cases et appliquer qd m voter formule?

Merci d'avance.

Cdt

Jiffey


"argyronet" wrote:

Disons que l'on part du principe que vous n'avez pas à voir la macro.
- Vous posez une case à cocher sur votre document à l'endroit désiré,
- à ce momet là, la petite equerre (mode création) s'active,
- vous cliquez 2x sur votre case à cocher, dans les propriétés,
- vous lui donner un nom, vous recliquez dessus depuis le document,
- vous devez alors avoir deux Sub....Clic(),
- vous effacer celui qui ne sert à rien,
- vous collez le code que je vous ai envoyé.
Si vous voulez, je vous envoie le document de démonstration...

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Je reviens vers toi Argyronet.

J'ai bien créé une macro sur VB.

1er pb : Si je laisse "Private Sub" au début et non "Sub", je ne vois pas
la macro dans les propriétés de la case à cocher.

2ème pb : Si je corrige en mettant "Sub", je visualise bien la macro. Par
contre, comment affecter le code : => exécuter la macro au démarrage? à la
sortie? Faut-il que je nomme le signet "chkCacherTexte"? Faut-il cocher la
case "calculer à la sortie"?.

J'ai essayé les différentes possibilités et ca bug : il me met "impossible
d'exécuterle code en mode arrêt".

Bref, j'y arrive pas...

Merci d'avance.

Cordialement,

Jiffey

Bonjour,

Il y a plusieurs solutions, en voici une:
1/ Sélectionnez votre bloc de texte à cacher et affectez-lui la propriété
"Masqué" dans les propriétés des caractères.
2/ Poser une case à cocher sur le document et donner lui un nom:
chkCacherTexte par exemple.
3/ Affecter-lui le code suivant:
Private Sub chkCacherTexte_Click()
Dim bValue As Boolean

bValue = chkCacherTexte.Value
With ActiveWindow
With .View
.ShowHiddenText = bValue
.ShowAll = bValue
End With
End With
End Sub

Argy

--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Bonjour à tous,

Voilà mon projet : j'ai un document word et je souhaiterais qu'une partie du
texte disparaisse si je coche une case (et a contrario que ce même texte
réapparaisse si je décoche la case).

Je pense qu'il s'agit d'une macro assez simple. Mon problème, c'est que je
connais rien aux macros... Et oui, je sais, faut que je m'achète un bouquin.
En attendant, si vous pouviez m'aider ca serait génial car c'est super urgent.

Merci beaucoup d'avance.

Cordialement,

Jiffey

Bref, je suis au point mort. Je me demandais si je ne pouvais pas vous
envoyer le document afin que vous puissiez voir concrètement de quoi il
s'agissait.

Bonjour,
Oui, si vous voulez... s'il n'a rien de confidentiel et je ne vous garantie
pas un retour immédiat.

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Merci Argyronet d'accepter ma proposition. Le document n'a en effet rien de
confidentiel.

Où puis-je vous l'envoyer?

Cdt

Jiffey

Bref, je suis au point mort. Je me demandais si je ne pouvais pas vous
envoyer le document afin que vous puissiez voir concrètement de quoi il
s'agissait.

Bonjour,
Oui, si vous voulez... s'il n'a rien de confidentiel et je ne vous garantie
pas un retour immédiat.

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Eh bien oui;
Je vous ai répondu précédemment.
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment

Merci Argyronet d'accepter ma proposition. Le document n'a en effet rien de
confidentiel.

Où puis-je vous l'envoyer?

Cdt

Jiffey

Bref, je suis au point mort. Je me demandais si je ne pouvais pas vous
envoyer le document afin que vous puissiez voir concrètement de quoi il
s'agissait.

Bonjour,
Oui, si vous voulez... s'il n'a rien de confidentiel et je ne vous garantie
pas un retour immédiat.

Argy
--
Mes tutoriels sur http://argyronet.developpez.com/

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment