XL 2016 Module de classe

[gbinforme]

Bonjour à tous,

J'utilise régulièrement des module de classe avec des formulaires ce qui facilite l'utilisation.

Est-t-il possible d'utiliser cette procédure avec des objets sur la feuille, checkbox par exemple ?

 

[Hasco]

Bonjour

Est-t-il possible d'utiliser cette procédure avec des objets sur la feuille, checkbox par exemple ?

Bien-sûr.

 

[kiki29]

Salut, à lire et pratiquer ( parmi une myriade )
Office et les modules de classes
Access : Modules de classes
Module de Classe, simulation VBA d'un groupe de contrôle

 

[Hasco]

Re,

Module de classe :

Option Explicit

Public WithEvents LeCheckBox As msforms.CheckBox

Private Sub LeCheckBox_Click()
 MsgBox "le checkbox " & LeCheckBox.Name & " a été cliqué et a la valeur " & CStr(LeCheckBox.Value)
End Sub

Dans le module de code de feuille "Feuil1" :

Option Explicit

Private MesCheckBoxes() As Classe1

Sub initMesCheckBoxes()
    Dim obj
    Dim i As Integer
    Erase MesCheckBoxes
    For Each obj In Me.OLEObjects
        If Left(obj.Name, 8) = "CheckBox" Then
            ReDim Preserve MesCheckBoxes(0 To i)
            Set MesCheckBoxes(i) = New Classe1
            Set MesCheckBoxes(i).LeCheckBox = obj.Object
            i = i + 1
        End If
    Next obj
End Sub

Le test pourrait être :

If TypeOf obj.Object Is MSForms.CheckBox Then

qui est ma préférence

Lancer l'initialisation du groupe MesCheckBox sur l'évènement de feuille qu'on veut (Activate ?) ou par bouton de commande sur la feuille.

Cordialement

 

[gbinforme]

bonsoir,

Je suis grognon, mais pas méchant

Je comprend bien ta position, sauf que je n'ai trouvé nulle part d'où ma question.

@kiki29 Merci pour les liens que j'ai visités mais tous fonctionnent sur formulaire

 

[Hasco]

Re,

Pas vu mon dernier post avec l'exemple sur feuille ?

Cordialement

 

[gbinforme]

re
Merci Hasco j'ai bien vu après ton message et je t'en remercie.

Comme dit dans ma question, je connaissais pour le formulaire mais je voulais simplement savoir si cela fonctionnait aussi sur les objets de la feuille ce que je n'avais vu nulle part.
Merci en tout cas pour ton code.