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

Une fonction appelée avec plusieur checkbox

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

gzarka

Guest
Bonjour le forum,

Il est génial, j'ai réussi à faire plein de truc gràce à vos intervention... mais se coup si j'ai pas trouvé.

J'aurai voulu appeler un seul code avec mes différente checkbox mais que celui ci change en fonction du numero de checkbox.
Voila mon code qui marche mais je le met pour chaque checkbox :

Code: 
Private Sub CheckBox1_Click()

   N = 1
   If Controls("CheckBox" & N).Value = True Then
      Columns(N).EntireColumn.Hidden = False
   Else
      Columns(N).EntireColumn.Hidden = True
   End If

End Sub

Donc grosso modo est ce possible de recuperer le numero de checkbox cliquée et mettre le meme code pour toute les checkbox
Image idéale du code souhaité:

Code: 
Private Sub CheckBoxN_Click()

   If Controls("CheckBox" & N).Value = True Then
      Columns(N).EntireColumn.Hidden = False
   Else
      Columns(N).EntireColumn.Hidden = True
   End If

End Sub

Grosso modo le N se modifie tout seul avec le numero de checkbox.

Voila j'espere que cela est solvable.

A vos neurones! 🙂
 
Trier par date Trier par votes
Re : Une fonction appelée avec plusieur checkbox

Bonsoir gZarka,

Nous parlons de combiens de checkboxes?

Peut-être qu'un fichier amaigri serait plus rapide à nous montrer ton besoin.

Dans le fichier joint: un exemple avec un module de classe

A bientôt
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Ca à l'air d'etre ce qu'il me faut... je creuse un peu et je revien vous embeter si je bloque ou si tout est bon je mettrai mon code pour les suivants.

Encore merci Hasco... on peut vraiment tout faire, excel ne finira jamais de me surprendre 😀.
 
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Alors apres m'etre arraché les cheveux pour comprendre (Je suis dur à la détente), j'arrive à ca.
Probleme: .Tag renvoie un String et il me faudrait un Integer pour mon calcul. Une solution?

J'en profite pour demander comment mettre nb_GenBox, nb_MecBox et nb_EleBox en global (Pour tout le fichier).

Explication du fichier:
J'ai 3 groupes: General, electronics, mecanics. Dans ces 3 groupes il y a différents items. La premiere Checkbox de la page du groupe correspond à la premiere colonne du groupe et la derniere à la derniere. Mon but étant de cacher le bonne colonne sans avoir un code pour chaque checkbox.

Comme vous pouvez le voir j'ai pas mal de colonne et ca va surement changer dans le future. J'essaye donc d'avoir quelque chose le plus generique possible pour avoir peut de changement à faire.

Merci d'avance pour le temps que vous me consacré 🙂


Pieces jointe retiré... voir plus bas.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Bonjour gZarka,

.Tag renvoie un String et il me faudrait un Integer pour mon calcul
Cliquez pour agrandir...

Avec les fonctions de conversions: Val(.tag), CInt(.tag) etc.

J'en profite pour demander comment mettre nb_GenBox, nb_MecBox et nb_EleBox en global (Pour tout le fichier).
Cliquez pour agrandir...

Dans la section déclaration d'un module:
Public nb_MecBox As Integer
Public nb_GenBox As Integer
Public nb_EleBox As Integer

____________

Je n'arrive pas à ouvrir ton fichier zip.

A bientôt
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Ah mince pour le zip... mais obligé sinon il est trop gros.

Je vais essayer ca, normalement si j'ai bien compris c'est la que ca coince.

Je vous tien au courant 😀
 
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Alors les variables globales marchent mais pas le cast 😡

Voici la ligne qui bloque avec le message "incompatibilité de type":

Code: 
Public Sub LesGenBox_Click()

Columns( 3 + CInt(LesGenBox.Tag)).EntireColumn.Hidden = IIf(LesGenBox.Value, False, True)

End Sub

Et voici le zip, j'espere que ce coup ci ca passe 😕
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Zarka,

Bien-sûr si tu ne mets rien dans la propriété Tag des checkbox, il ne peut y avoir qu'une erreur.

voici ton fichier modifié.

1 seuls module de classe pour tous les checkboxes
A l'initialisation du userform si les colonnes idoines sont visibles les checkbox sont cochés.
sur click ils cache ou décache les colonnes.

A toi de vérifier si je ne me suis pas trompé dans les index de colonnes.

Je te suggère de ne pas fusionner les cellules de titre mais de faire un alignement centré sur plusieurs colonne format cellule/alignement/Horizontal-> centré sur plusieurs colonnes

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Une fonction appelée avec plusieur checkbox

Ouha génial! Merci! C'est ce qu'il me fallait.

J'étudie tout ca faut que je comprenne mais encore un grand merci.🙂
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
179
job75
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
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
  • 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
257
anthoYS
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
249
pascal21
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
555
youguybass
Y
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
P
  • Question Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
1 K
ChTi160
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
  • 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
489
sylvanu
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
317
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
553
sylvanu
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
484
nabilexcel2007
N
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
568
mikeduff
M
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
531
KTM
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
509
job75
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
898
SAMUAL_2023
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…