Bouton pour cocher une case à cocher

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Bouton pour cocher une case à cocher

gregsk8

Bonjour,
je sollicite votre aide.
J'ai une appli métier qui nous génère un rapport sous word (*.doc)
Dans ce document j'ai de multiple case à cocher. Mon souhait aurait été de creer un bouton avec un bout de code qui me permette de cocher ces fameuses cases.
A l'heure actuelle il me faut double cliquer sur la case à cocher puis de la mettre en "case activée"

Bon j'arrive à le faire avec une case à cocher à la fois avec ça :

Code :

ActiveDocument.FormFields("Caseacocher1" ).CheckBox.Value = True

mais j'y arrive car j'ai nommé au préalable ma checkbox.

Mon souhait serait de pouvoir le faire à la volé sur n'importe quel document.
voici des exemples :

si vous avez des pistes, merci d'avance

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Tu pourrais utiliser des ActiveX (sans macro) au lieu de contrôles de formulaire :

Exemple : https://www.cjoint.com/doc/20_11/JK [...] EPTIE.docx

Message édité par patrice33740 le 05-11-2020 à 11:41:35

---------------
Cordialement, Patrice

gregsk8

Merci pour la réponse, malheureusement je ne peux pas modifier comme cela.
En gros en fin d'une procédure je clique sur "générer le rapport" dans le logiciel métier. Le logiciel métier ( avec une base access je pense) me génère le fichier .doc avec les cases à coché déjà présentes dans le document. Je ne peux donc pas les modifier avec des activeX.
Mais je souhaiterais pouvoir, après avoir sélectionné un bouton, cocher/décocher mes cases

patrice33740

Avec la réponse, c'est facile.

Re,

Pour Cocher / Décocher la case à cocher sur Double Clic :

Ajoutes un module de classe nommé cEvent :

Code :

Public WithEvents appWord As Application
Private Sub appWord_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Dim ff As FormField
Sel.Expand Unit:=wdWord
If Sel.Range.FormFields.Count > 0 Then Set ff = Sel.Range.FormFields(1)
If Not ff Is Nothing Then
If ff.Type = wdFieldFormCheckBox Then
ff.CheckBox.Value = Not ff.CheckBox.Value
Cancel = True
End If
End If
End Sub

Et dans ThisDocument :

Code :

Private cls As New cEvent
Private Sub Document_Open()
Set cls.appWord = Word.Application
End Sub
Private Sub Document_Close()
Set cls.appWord = Nothing
End Sub

Exemple : https://www.cjoint.com/doc/20_11/JK [...] SEPTIE.doc

Message édité par patrice33740 le 05-11-2020 à 19:12:56

---------------
Cordialement, Patrice

gregsk8

Han , super merci à toi, c'est exactement ce que je voulais faire ! :love: :love:
ça fonctionne au top
:jap: :jap: :jap:

Message édité par gregsk8 le 05-11-2020 à 20:22:32

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Bouton pour cocher une case à cocher

Sujets relatifs
appel de fonction par bouton	Exécuter une fonction en PHP avec un bouton HTML
use case uml	Bouton supprimer
code HTML d'un bouton bas / haut de page dans Google site	Image bouton html JavaScript
Bouton skype (code javascript) pas reconnu dans html du site Jimdo	Problème d'affichage d'un bouton
Access, bouton case a cocher	problème case à cocher et bouton radio
Plus de sujets relatifs à : Bouton pour cocher une case à cocher

Page générée en 0.033 secondes