1093 connectés

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Bouton pour cocher une case à cocher

Recherche :

Dernière réponse
Sujet : Bouton pour cocher une case à cocher
gregsk8	Han , super merci à toi, c'est exactement ce que je voulais faire ! :love: :love: ça fonctionne au top :jap: :jap: :jap:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

gregsk8

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

patrice33740

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

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

Bonjour,

Tu pourrais utiliser des ActiveX (sans macro) au lieu de contrôles de formulaire :
https://www.cjoint.com/doc/20_11/JKfkJ60TtFW_Salle.jpg

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

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 :
https://i.ibb.co/y0D9yCd/Sans-titre.png

si vous avez des pistes, merci d'avance