Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Luigi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Luigi

XLDnaute Occasionnel
Bonjour à tous,

J’ai un petit problème avec une case à cocher.
Avec le code ci-dessous je rends visible ou invisible une case à cocher en fonction de l’état de la cellule H26 (Vrai ou Faux). La case à cocher est du menu (Barre d’outils - Boîte à outil de contrôle).

Je veux faire la même chose avec une case à cocher du menu (Barre d’outils - Formulaire), mais ça ne marche pas.

Est-il possible de rendre visible ou invisible une case à cocher du menu (Barre d’outils - Formulaire)?

D’avance merci

Private Sub Worksheet_Change(ByVal Target As Range)
If [H26].Text = "VRAI" Then
CC_1.Visible = True
ElseIf [H26].Text = "FAUX" Then
CC_1.Visible = False
End If
End Sub
 
Re : case à cocher

Bonjour Luigi,

Pour simplifier, la première est plutôt VBA, ce que tu as fait, la seconde plutôt Excel ce qui est différent.

Que veux-tu faire donc ?

A te lire.

Bon AM.

Jean-Pierre
 
Re : case à cocher

bonjour jeanpierre

je voudrais en fonction de l'état de la cellule H26 (Vrai ou faux) rendre visible ou invisible une case à cocher du menu (Barres d'outils - Fomulaire).

Avec un code VBA j'arrive à rendre visible ou invisible une case à cocher du menu (Barre d'outil - Boîte à outil de contrôle) mais je n'arrive pas à rendre visible ou invisible une case à cocher du menu (Barres d'outils - Fomulaire).

cordialement
 
Re : case à cocher

Bonjour Luigi, jeanpierre,

Avec une case à cocher formulaire, si en H26 on a une valeur logique :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Shapes("Check Box 1").Visible = [H26]
End Sub

et si l'objet a été renommé :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Shapes("[COLOR="Red"]CC_1[/COLOR]").Visible = [H26]
End Sub

Edit : si en H26 on peut avoir un texte, mettre On Error Resume Next

A+
 
Dernière édition:
Re : case à cocher

Bonjour à tous,

Je reviens sur ce fil parce que je rencontre un nouveau problème.
Avec la macro ci-dessous la case à cocher (CC_Oui) est visible ou invisible, en fonction de l’état de B1 quand la cellule change (Vrai ou faux).

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Shapes("CC_Oui").Visible = [B1]
End Sub

Mon problème est le suivant, la cellule B1 change (Vrai ou Faux) en fonction de le l’état d’une autre case à cocher.
Là avec la fonction Worksheet_Change ça ne marche plus.
Apparemment le changement d’état d’une cellule provoqué par une case à cocher n’est pas pris en compte par le Worksheet_Change.

PS : Les cases à cocher que j’utilise viennent du menu Barres d’outils – Formulaires.
Merci
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
229
Réponses
1
Affichages
169
Réponses
18
Affichages
1 K
Réponses
9
Affichages
404
Réponses
11
Affichages
1 K
Réponses
6
Affichages
432
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…