Case A Cocher

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il indique le
nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est pas clair.
est ce qu'il faut activer une certaine macro. vraiment obscure...

Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de ton
formulaire, soit tu l'associes à un bouton, selon ce que tu veux faire.
Elle est à adapter/améliorer selon ton objectif.

--
Tisane

merci beaucoup je test et je vous dit si je m'en suis sorti

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il indique le
nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est pas clair.
est ce qu'il faut activer une certaine macro. vraiment obscure...

Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de ton
formulaire, soit tu l'associes à un bouton, selon ce que tu veux faire.
Elle est à adapter/améliorer selon ton objectif.

--
Tisane

Voila c'est la merde dans le ventilo ce que j'essaye de faire avec la macro
ne doit pas correspondre avec ce que je souhaite faire. en plus étant pas
bien allaise sur ce style de fonction et surtout les macros je suis un peux
en panique.

En faite je veux faire un formulaire de calcul je vais donner un exemple :

Colonne 1 / colonne 2
item 1 case à cocher case à cocher
item 2 case à cocher case à cocher
item 3 case à cocher case à cocher
item 4 case à cocher case à cocher
somme somme colone 1 sommecolone2

J'ai essayé avec des formules et des listes déroulantes mais la vraiment je
patauge. Je ne suis pas douer mais la vraiment je suis comme un fer à
repasser dans l'océan de mon incompétence. bref je touche le fond

Merci toute aide sera la bien venu

PS pourquoi word n'est pas simple !!! bon c'est vrais que c'est quand meme
pratique quand on sais l'utiliser

merci beaucoup je test et je vous dit si je m'en suis sorti

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il indique le
nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est pas clair.
est ce qu'il faut activer une certaine macro. vraiment obscure...

Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de ton
formulaire, soit tu l'associes à un bouton, selon ce que tu veux faire.
Elle est à adapter/améliorer selon ton objectif.

--
Tisane

Bonjour the fox,

Voila c'est la merde dans le ventilo ce que j'essaye de faire avec la
macro ne doit pas correspondre avec ce que je souhaite faire. en plus
étant pas bien allaise sur ce style de fonction et surtout les macros
je suis un peux en panique.
En faite je veux faire un formulaire de calcul je vais donner un
exemple :
Colonne 1 / colonne 2
item 1 case à cocher case à cocher
item 2 case à cocher case à cocher
item 3 case à cocher case à cocher
item 4 case à cocher case à cocher
somme somme colone 1 sommecolone2
J'ai essayé avec des formules et des listes déroulantes mais la
vraiment je patauge. Je ne suis pas douer mais la vraiment je suis
comme un fer à repasser dans l'océan de mon incompétence. bref je
touche le fond

En effet, c'est déjà plus précis. Je comprends que tu as 1 tableau de 3
colonnes avec les libellés dans la 1re et les cases à cocher dans les
colonnes 2 et 3.
Colle le code suivant dans la fenêtre Visual Basic.
---------
Sub CasesCocheesTotal()
Dim Total1 As Integer, Total2 As Integer, i As Integer
Total1 = 0
Total2 = 0
For i = 1 To ActiveDocument.Tables(1).Rows.Count
On Error Resume Next
Total1 = Total1 - ActiveDocument.Tables(1).Cell(i,
2).Range.FormFields(1).CheckBox.Value
Total2 = Total2 - ActiveDocument.Tables(1).Cell(i,
3).Range.FormFields(1).CheckBox.Value
Next i
ActiveDocument.FormFields("Total1").Result = Total1
ActiveDocument.FormFields("Total2").Result = Total2
End Sub
-------------

Dans la dernière ligne de ton tableau "somme", tu ajoutes 2 champs texte que
tu nommes respectivement Total1 et Total2 (tu pourras toujours changer
après).
Dans la propriété "Au démarrage" de chacun de ces champs, sélectionne la
macro "CasesCocheesTotal".
Verrouille ton formulaire. Clique sur tes cases et clique une seul fois dans
le total pour actualiser le champ.

On peut faire beaucoup mieux mais le VB n'est pas ma tasse de "tisane" (la
tisane non plus d'ailleurs).
Par ailleurs, il est difficile d'aller beaucoup plus loin si tu débutes en
Word.
Si c'est le cas, tu ne débutes pas "simplement" ;-))

--
Tisane

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il
indique le nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est
pas clair. est ce qu'il faut activer une certaine macro. vraiment
obscure...

Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de
ton formulaire, soit tu l'associes à un bouton, selon ce que tu
veux faire. Elle est à adapter/améliorer selon ton objectif.

--
Tisane

--
Tisane

Bonjoir(c) the fox

heum... Là, m'es avis qu'il vaudrait peut-être mieux utiliser le marteau,
euh, je voulais dire Excel...
Ca serait nettement, mais alors nettement, plus simple et sans le moindre
besoin de macrotage superfétatoire ni userform

Question : pourquoi tenez vous à faire ça avec Word ?

--
JièL / Jean-Louis GOUBERT
http://forums.offices.free.fr/
là bas mieux qu'en face ;-)

Le 25/08/2006 10:21 vous avez écrit ceci :

Voila c'est la merde dans le ventilo ce que j'essaye de faire avec la macro
ne doit pas correspondre avec ce que je souhaite faire. en plus étant pas
bien allaise sur ce style de fonction et surtout les macros je suis un peux
en panique.

En faite je veux faire un formulaire de calcul je vais donner un exemple :

Colonne 1 / colonne 2
item 1 case à cocher case à cocher
item 2 case à cocher case à cocher
item 3 case à cocher case à cocher
item 4 case à cocher case à cocher
somme somme colone 1 sommecolone2

J'ai essayé avec des formules et des listes déroulantes mais la vraiment je
patauge. Je ne suis pas douer mais la vraiment je suis comme un fer à
repasser dans l'océan de mon incompétence. bref je touche le fond

Merci toute aide sera la bien venu

PS pourquoi word n'est pas simple !!! bon c'est vrais que c'est quand meme
pratique quand on sais l'utiliser

merci beaucoup je test et je vous dit si je m'en suis sorti

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il indique le
nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est pas clair.
est ce qu'il faut activer une certaine macro. vraiment obscure...
Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de ton
formulaire, soit tu l'associes à un bouton, selon ce que tu veux faire.
Elle est à adapter/améliorer selon ton objectif.

--
Tisane

je voulais le faire sur word car c'était le plus simple pour moi et les
utilisateurs du questionnaire par la suite. mais vue que je n'arrive pas à
faire fonctionner la macro. je suis pas douer "je sais" mais cela ne
fonctionne pas meme avec les brillante explication de tisane.

mais bon vendredi étant saouler de ne pas y arrivé je me suis décidé à le
faire sous excel mais c'est quand meme dingue de ne pas pouvoir faire un
truc aussi simple sans pour autant avoir fait un bac +12 en informatique.
(oui j'ai deja bac+6 mais cela ne doit pas me suffir pour comprendre les
méandres de word). enfin c'est ainsi.

je vous remercie beaucoup pour votre aide

bien à vous

Bonjoir(c) the fox

heum... Là, m'es avis qu'il vaudrait peut-être mieux utiliser le marteau,
euh, je voulais dire Excel...
Ca serait nettement, mais alors nettement, plus simple et sans le moindre
besoin de macrotage superfétatoire ni userform

Question : pourquoi tenez vous à faire ça avec Word ?

--
JièL / Jean-Louis GOUBERT
http://forums.offices.free.fr/
là bas mieux qu'en face ;-)

Le 25/08/2006 10:21 vous avez écrit ceci :

Voila c'est la merde dans le ventilo ce que j'essaye de faire avec la macro
ne doit pas correspondre avec ce que je souhaite faire. en plus étant pas
bien allaise sur ce style de fonction et surtout les macros je suis un peux
en panique.

En faite je veux faire un formulaire de calcul je vais donner un exemple :

Colonne 1 / colonne 2
item 1 case à cocher case à cocher
item 2 case à cocher case à cocher
item 3 case à cocher case à cocher
item 4 case à cocher case à cocher
somme somme colone 1 sommecolone2

J'ai essayé avec des formules et des listes déroulantes mais la vraiment je
patauge. Je ne suis pas douer mais la vraiment je suis comme un fer à
repasser dans l'océan de mon incompétence. bref je touche le fond

Merci toute aide sera la bien venu

PS pourquoi word n'est pas simple !!! bon c'est vrais que c'est quand meme
pratique quand on sais l'utiliser

merci beaucoup je test et je vous dit si je m'en suis sorti

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il indique le
nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est pas clair.
est ce qu'il faut activer une certaine macro. vraiment obscure...
Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de ton
formulaire, soit tu l'associes à un bouton, selon ce que tu veux faire.
Elle est à adapter/améliorer selon ton objectif.

--
Tisane

Bonjoir(c) the fox

je voulais le faire sur word car c'était le plus simple pour moi et les
utilisateurs du questionnaire par la suite.

Erreur... Ja vais vous ressortir ma célèbre citation : "Quand on n'a
qu'un marteau dans sa caisse à outils, tout les problèmes ont la forme
d'un clou"
C'est pas de moi (ça se saurait ;-D) mais je la trouve parfaitement
adapté à certains cas de MAUVAISE utilisation des outils bureautiques.

mais bon vendredi étant saouler de ne pas y arrivé je me suis décidé à le
faire sous excel mais c'est quand meme dingue de ne pas pouvoir faire un
truc aussi simple

La aussi vous vous trompez. C'est TRES simple à faire avec le bon
outils, mais c'est une galère sans nom avec le mauvais

Word c'est un traitement de texte, Excel un tableur, Outlook pour la
messagerie etc etc. Il ne me viendrait pas à l'idée de faire une lettre,
ou mieux, un livre, avec Excel, tout comme je n'imagine pas des tableaux
croisées dynamiques avec Word. Chaque outils à ses propres
fonctionnalités et elles sont adaptés à un nombre limité d'utilisation.
Vouloir prendre l'un pour faire la travail de l'autre, est un hérésie (à
mon sens)

sans pour autant avoir fait un bac +12 en informatique.
(oui j'ai deja bac+6 mais cela ne doit pas me suffir pour comprendre les
méandres de word).

De ma propre expérience, il est parfaitement inutile de faire des études
aussi pointues pour utiliser des outils aussi triviaux. Il faut juste
apprendre à s'en servir, et quand je dis apprendre, c'est pas juste
regarder les menus ou arriver à faire 1 type de document !

je vous remercie beaucoup pour votre aide

bien à vous

--
JièL / Jean-Louis GOUBERT
http://forums.offices.free.fr/
Là bas mieux qu'en face

Bonjour the fox,

je voulais le faire sur word car c'était le plus simple pour moi et
les utilisateurs du questionnaire par la suite. mais vue que je
n'arrive pas à faire fonctionner la macro. je suis pas douer "je
sais" mais cela ne fonctionne pas meme avec les brillante explication
de tisane.

J'ignore la composition de ton formulaire, mais s'il s'agit d'un standard
hormis ton calcul de case à cocher, Word est quand même bien fait pour ça.
Si tu veux, envoie-moi ton document juste pour ne pas rester sur une
interrogation.

mais bon vendredi étant saouler de ne pas y arrivé je me suis décidé
à le faire sous excel mais c'est quand meme dingue de ne pas pouvoir
faire un truc aussi simple sans pour autant avoir fait un bac +12 en
informatique. (oui j'ai deja bac+6 mais cela ne doit pas me suffir
pour comprendre les méandres de word). enfin c'est ainsi.

--
Tisane (dont le diplôme le plus "élevé" est... un brevet fédéral de
parachutisme à 4000m... vachement utile pour la bureautique ;-))

Bonjoir(c) the fox

heum... Là, m'es avis qu'il vaudrait peut-être mieux utiliser le
marteau, euh, je voulais dire Excel...
Ca serait nettement, mais alors nettement, plus simple et sans le
moindre besoin de macrotage superfétatoire ni userform

Question : pourquoi tenez vous à faire ça avec Word ?

--
JièL / Jean-Louis GOUBERT
http://forums.offices.free.fr/
là bas mieux qu'en face ;-)

Le 25/08/2006 10:21 vous avez écrit ceci :

Voila c'est la merde dans le ventilo ce que j'essaye de faire avec
la macro ne doit pas correspondre avec ce que je souhaite faire. en
plus étant pas bien allaise sur ce style de fonction et surtout les
macros je suis un peux en panique.

En faite je veux faire un formulaire de calcul je vais donner un
exemple :

Colonne 1 / colonne 2
item 1 case à cocher case à cocher
item 2 case à cocher case à cocher
item 3 case à cocher case à cocher
item 4 case à cocher case à cocher
somme somme colone 1 sommecolone2

J'ai essayé avec des formules et des listes déroulantes mais la
vraiment je patauge. Je ne suis pas douer mais la vraiment je suis
comme un fer à repasser dans l'océan de mon incompétence. bref je
touche le fond

Merci toute aide sera la bien venu

PS pourquoi word n'est pas simple !!! bon c'est vrais que c'est
quand meme pratique quand on sais l'utiliser

merci beaucoup je test et je vous dit si je m'en suis sorti

Bonjour "the fox",

voila j'aimerai faire une petite manipulation dans un formulaire.
comment faire pour que quand l'on coche des "case à cocher" il
indique le nombre de case coché.
j'ai du mal à comprendre cela doit etre dans formule mais c'est
pas clair. est ce qu'il faut activer une certaine macro.
vraiment obscure...
Tu peux utiliser la macro suivante :

Sub TotalCoches()
Compteur = 0
For Each FormField In ActiveDocument.FormFields
If FormField.Type = wdFieldFormCheckBox Then
If FormField.CheckBox.Value = True Then
Compteur = Compteur + 1
End If
End If
Next FormField
MsgBox "Il y a " & Compteur & " cases cochées"
End Sub

Tu déclenches cette macro, soit sur la sortie d'un autre champ de
ton formulaire, soit tu l'associes à un bouton, selon ce que tu
veux faire. Elle est à adapter/améliorer selon ton objectif.

--
Tisane