XL 2019 Module de classe et checkbox

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

  • Test.xlsm
    53.5 KB · Affichages: 9
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
T

ThierryP

XLDnaute Occasionnel
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

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
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
526
Jingxi
J
laurent950
  • 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
XL 2019 Module de classe - Texbox AfterUpdate event
2
Réponses
16
Affichages
2 K
patricktoulon
patricktoulon
marg55
  • Question
XL 2016 Variable d'un module de classe à un autre
Réponses
3
Affichages
664
marg55
marg55
jeff1494
  • Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
306
jeff1494
jeff1494
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
2 K
dysorthographie
dysorthographie
H
  • Question
XL 2013 Evènement "MouseMove" dans une module de classe pour plusieurs userform
Réponses
6
Affichages
768
patricktoulon
patricktoulon
P
  • 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

Membres actuellement en ligne

11 membres et 84 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 708
Messages
2 112 088
Membres
111 416
dernier inscrit
philipperoy83