VBA : Case à cocher : Affichage de Texte

Résolu/Fermé

kiricouille0 Messages postés 4 Date d'inscription samedi 10 novembre 2018 Statut Membre Dernière intervention 28 décembre 2018 - Modifié le 27 déc. 2018 à 21:57
kiricouille0 Messages postés 4 Date d'inscription samedi 10 novembre 2018 Statut Membre Dernière intervention 28 décembre 2018 - 28 déc. 2018 à 09:24

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

A voir également:

Vba case à cocher
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Agrandir case à cocher excel ✓ - Forum Programmation
Comment cocher une case sans souris ✓ - Forum Windows
Comment cocher une case sur word ✓ - Forum Word
Raccourci clavier case à cocher ✓ - Forum Excel

2 réponses

Réponse 1 / 2

m@rina Messages postés 20011 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
28 déc. 2018 à 01:37

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

Discussions similaires

Excel case a cocher code Vba svp

Ajouter des lignes en fonction de la valeur d'une cellule.

Hachurer des cellules en fonction du texte que contient d'autres cellules

créer une case a cocher sur open office

remplir une case de tableau avec une couleur grise avec texture de pointillés

Cellule à transformer en case à cocher

Discussions similaires

Newsletters