XL 2019 Module de classe et checkbox

Créer une discussion
Répondre

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
T

ThierryP

XLDnaute Occasionnel
Bonjour le forum,

Après quelques recherches sur le Net à ce sujet, je me rends compte que mes modestes connaissances et le peu de neurones qui me restent ne me permettent pas d'appliquer les solutions ou pistes que j'ai pu trouver..... La plupart s'adressant à un USF !
J'ai donc sur ma feuille un certain nombre de checkbox (dans le fichier complet il y a plusieurs onglets), et je voudrais déclencher une macro quand on coche un checkbox, basiquement écrire la date dans la cellule correspondante et pour certaines effectuer des trucs un peu plus complexes.

Donc j'ai bien vu qu'il me fallait utiliser un module de classe pour ne pas avoir à écrire des dizaines de fois Checkbox99_Click mais je n'arrive pas à vraiment comprendre la mise en oeuvre ou à transposer ce que j'ai trouvé pour les USF.

Si une bonne âme veut bien me donner quelques informations, je suis preneur !

Merci d'avance,
 

Pièces jointes

Solution
patricktoulon
Bonjour
c'est assez simple en fait selon la methode patricktoulon qui consite a tout faire dans le module classe

dans le module thisworkbook et plus précisément dans l'event open
VB: 
Dim cl As New classCheck
Private Sub Workbook_Open()
    cl.classage
End Sub
et dans un module classe nommé "classCheck"
VB: 
Public WithEvents check As msforms.CheckBox
Dim cls() As New classCheck
Public Function classage()
    Dim Ctl, A&
    For Each Ctl In Feuil1.OLEObjects
        If Ctl.TopLeftCell.Column = 3 Then
            A = A + 1: ReDim Preserve cls(1 To A): Set cls(A).check = Ctl.Object
        End If
    Next
End Function
Private Sub Check_Click()
    MsgBox "tu fait ce que tu veux avec le checkbox " & check.Name

End Sub
Trier par date Trier par votes
Bonjour Patrick,

J'avais bien ajouté le screenupdating=false, mais ça ne change rien, le fichier appelé prend le focus, du coup l'event click du checkbox s'exécute sur le fichier appelé.

Si je fais du pas à pas, je vois que ensuite je ne passe pas dans l'event click du module de classe si je reclique. Il faut que je relance la fonction classage (via Sheet_Activate) pour que cela refonctionne (cf post #12).

Du coup, comment garder le focus sur le fichier appelant, ou alors comment faire pour que ta macro classage enregistre une fois pour toutes les données ?

Merci d'avance de ton retour !
 
Vote positif 0 Vote négatif
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

cathodique
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
3 K
patricktoulon
patricktoulon
cp4
  • Résolu(e)
XL 2010 [RESOLU]Adapter Module de Classe
2
Réponses
29
Affichages
2 K
cp4
cp4
J
  • Question Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
592
Jingxi
J
laurent950
  • Question Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
7 K
laurent950
laurent950
vgendron
  • Question Question
XL 2019 Module de classe - Texbox AfterUpdate event
2
Réponses
16
Affichages
2 K
patricktoulon
patricktoulon
P
  • Question Question
Microsoft 365 Après filtre ave ComboBox (ListView), Recherche avec 4 critères dans BDD et sélectionner la ligne correspondante
2
Réponses
27
Affichages
1 K
Piment
P
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
2 K
dysorthographie
dysorthographie
Y
  • Résolu(e)
XL 2013 Appliquer le même code sur plusieurs textbox et module de classe
2
Réponses
18
Affichages
2 K
youky(BJ)
youky(BJ)
S
  • Question Question
XL 2016 Long code dans userform vers un module
2
Réponses
21
Affichages
1 K
gbinforme
G
mapomme
  • Question Question
Microsoft 365 Formes, groupe de formes, groupe de groupes, etc.
2
Réponses
27
Affichages
1 K
Aeggie78
A
oguruma
Classe VBA pour gérer les paramètres d'une application
Réponses
3
Affichages
856
oguruma
oguruma
cathodique
  • Résolu(e)
XL 2010 Initiation module de classe - Bouton cliqué dans variable public
Réponses
12
Affichages
1 K
patricktoulon
patricktoulon
J
  • Résolu(e)
XL 2013 Remplacement virgule par point dans certaines textboxes (module de classe?)
Réponses
3
Affichages
1 K
jptaz15
J
laurent950
  • Résolu(e)
XL 2013 Déclenchement d'évènement sur HyperLinks (Via un Module de Classe personnalisé)
Réponses
5
Affichages
1 K
laurent950
laurent950
Chris24
  • Question Question
XL 2010 Module de classe
Réponses
4
Affichages
648
patricktoulon
patricktoulon
pompaero
  • Question Question
Microsoft 365 Créer module de classe
Réponses
9
Affichages
1 K
pompaero
pompaero
Epervière
  • Question Question
XL pour MAC Créer un formulaire pour faire ressortir des éléments d'anciens combattants
Réponses
0
Affichages
655
Epervière
Epervière
laurent950
  • Question Question
XL 2010 Variable Tableau Module de Classe vers Module Standard
2 3
Réponses
37
Affichages
8 K
Dranreb
Dranreb
C
  • Question Question
Word VBA Excel-Word: Coller du texte l'un en dessous de l'autre
Réponses
1
Affichages
3 K
Conrad13
C
F
  • Question Question
XL 2016 liste de choix indirect et TCD
Réponses
4
Affichages
1 K
chris
chris
Retour