VBA : Case à cocher : Affichage de Texte
Résolu
kiricouille0
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
kiricouille0 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
kiricouille0 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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 :
Voici les caractéristiques de ma case à cocher :
Et je suis allé dans cette icône :
En vous remerciant
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
Bonsoir,
Sauf que ta case à cocher n'est a priori pas un champ de formulaire (FormFields) mais un contrôle ActiveX.
Donc :
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
