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

cp4
  • Résolu(e)
XL 2010 [RESOLU]Adapter Module de Classe
2
Réponses
29
Affichages
920
cp4
cp4
J
  • Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
280
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
4 K
laurent950
laurent950
vgendron
  • Question
XL 2019 Module de classe - Texbox AfterUpdate event
2
Réponses
16
Affichages
1 K
patricktoulon
patricktoulon
marg55
  • Question
XL 2016 Variable d'un module de classe à un autre
Réponses
3
Affichages
458
marg55
marg55
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
1 K
dysorthographie
dysorthographie
H
  • Question
XL 2013 Evènement "MouseMove" dans une module de classe pour plusieurs userform
Réponses
6
Affichages
474
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
634
Piment
P
Y
  • Résolu(e)
XL 2013 Appliquer le même code sur plusieurs textbox et module de classe
2
Réponses
18
Affichages
1 K
youky(BJ)
youky(BJ)
S
  • Question
XL 2016 Long code dans userform vers un module
2
Réponses
21
Affichages
616
gbinforme
G

Membres actuellement en ligne

11 membres et 96 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
312 209
Messages
2 086 274
Membres
103 168
dernier inscrit
isidore33