Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

CheckBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • 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 !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,

Voila j'ai un USF avec 2 CheckBox qui fonctionne relativement bien sauf qu'il fonctionne a l'envers ?

Je m'explique, je coche sur le CheckBox il supprime les entêtes de feuille avec le code suivant et au lieu de de marque sur le CheckBox "Afficher les Entêtes de Lignes et de Colonnes" il marque "Ôter les Entêtes de Lignes et de Colonnes"

Code: 
Private Sub Affich_Entete_Click()

With UserForm1

     If .Affich_Entete = True Then
        Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = True
        Else
         Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = False
        End If
        
        End With

End Sub

Je joint un fichier qui seras plus explicatif !

Je vous remercie d'avance

Cordialement

Maval
 

Pièces jointes

Trier par date Trier par votes
Re : CheckBox

Bonjour maval,

Inverse tout bêtement les deux Caption:

Code: 
Private Sub Affich_Entete_Click()

With UserForm1

     If .Affich_Entete = True Then
        Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = True
        Else
         Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = False
        End If
        
        End With

End Sub

Cordialement.
 
Vote positif 0 Vote négatif
Re : CheckBox

Bonjour Papou

Oui c'est vrai mais le problème pourquoi quand on ouvre l'USF il sont décocher normal !

il faut que je coche deux fois pour mettre a jour

Pas évident a expliquer

Cordialement
 
Vote positif 0 Vote négatif
Re : CheckBox

RE :

Réflexion faite, le fait de modifier le Caption des CheckBox amène une certaine confusion dans la compréhension du formulaire.

Je te propose donc une solution plus légère, et qui a l'avantage d'adapter la coche à la visibilité des formules et des en-têtes.

Espérant avoir aidé.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : CheckBox

bonjour maval ,Papou🙂
je le verrais comme cela???

Code: 
Private Sub Affich_Entete_Click()
If ActiveWindow.DisplayHeadings = True Then
Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
ActiveWindow.DisplayHeadings = False
Else
Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
ActiveWindow.DisplayHeadings = True
End If
End Sub

Private Sub UserForm_Initialize()
If ActiveWindow.DisplayHeadings = True Then
Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
Else
Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
End If
End Sub

eventuellement utiliser IIf a la place de if pour simplifier pas de pb..vu que l'on teste les 2 conditions
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
232
pascal21
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
479
sylvanu
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
251
anthoYS
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
5 K
ChTi160
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
356
Piment
P
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
327
PRy
P
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
784
lynyrd
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
484
fanch55
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
406
Rod59
R
P
  • Question Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
1 K
ChTi160
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
636
Staple1600
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
732
kiki29
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
269
un internaute
U
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
740
Dranreb
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
326
JUAN45
J
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
547
macseb
M
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…