Sujet Précédent Sujet Suivant

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

2 réponses

Réponse 1 / 2
m@rina Messages postés 21942 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 27 mars 2025 11 413
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
1

Discussions similaires

Excel case a cocher code Vba svp
jeffsublime -
jeffsublime -

8 réponses
Ajouter des lignes en fonction de la valeur d'une cellule.
supermajo -
supermajo -

17 réponses
Hachurer des cellules en fonction du texte que contient d'autres cellules
lucas82_4761 -
Mike-31 -

7 réponses
créer une case a cocher sur open office
Mel0612 -
soso -

5 réponses
remplir une case de tableau avec une couleur grise avec texture de pointillés
abdou2125 -
abdou2125 -

2 réponses
Cellule à transformer en case à cocher
Win0411 -
Fredy -

5 réponses