Menu

VBA : Case à cocher : Affichage de Texte [Résolu]

Messages postés
4
Date d'inscription
samedi 10 novembre 2018
Dernière intervention
28 décembre 2018
-
Bonjour à tous,

J'essaie de faire une macro qui fait en sorte d'afficher du texte quand je sélectionne une case à cocher, mais je ne vois pas ce qui ne va pas :
Voici le code VBA associé à la case à cocher :

Private Sub CheckBox1_Click()

Dim macase As CheckBox
Dim montexte As FormField

Set macase = ActiveDocument.FormFields("CheckBox1").CheckBox
Set montexte = ActiveDocument.FormFields("CheckBox1")
If macase.Value = True Then
montexte.Result = "oui la case est cochée"
Else: montexte.Result = "Non la case n'est pas cochée"
End If

End Sub

Voici les caractéristiques de ma case à cocher :


Et je suis allé dans cette icône :


En vous remerciant
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
14933
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
16 février 2019
11418
1
Merci
Bonsoir,

Sauf que ta case à cocher n'est a priori pas un champ de formulaire (FormFields) mais un contrôle ActiveX.
Donc :

Private Sub CheckBox1_Click()

Dim macase As Object, montexte As String

Set macase = me.CheckBox1
If macase = True Then
montexte = "oui la case est cochée"
Else: montexte = "Non la case n'est pas cochée"
End If
MsgBox montexte

End Sub

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 57878 internautes nous ont dit merci ce mois-ci

Commenter la réponse de m@rina
Messages postés
4
Date d'inscription
samedi 10 novembre 2018
Dernière intervention
28 décembre 2018
0
Merci
Merci beaucoup m@rina,

ça marche super bien !

Quand j'appuie sur la case à cocher, il m'affiche mon texte.

Bonne fêtes à toutes et à tous.
Commenter la réponse de kiricouille0