Discussion :

[qi130]

Bonjour,
Je dispose d'un UserForm avec 1 vingtaine de checkbox regroupées par thème.

Toutes les checkbox d'un thème déclenchent la même procédure, avec au passage le texte qui devient rouge si décoché (problématique non représentée ci-dessous).

En première intention, c'est codé ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub xbox01Theme1_Change()
Checktheme1
End Sub
Private Sub xbox02Theme1_Change()
Checktheme1
End Sub
Private Sub xbox03Theme1_Change()
Checktheme1
End Sub

Ce qui est fonctionnel en l'état, mais très fastidieux...

J'aimerais disposer d'une procédure générique capable d'identifier la checkbox qui a déclenché l'évènement, genre (en macrocode, faudra sûrement jouer avec Me. ):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub xbox_Change()
MaBox=Checkbox(Sender)     'Sender=objet qui a déclenché, qu'on transtype
Theme=substr(MaBox.Name,12,1)   ' n° du thème
Select case Theme
  case 1
       Checktheme1
       if MaBox.Value then
         MaBox.ForeColor = RGB(0, 0, 0)
         else
         MaBox.ForeColor = RGB(255, 0, 0)
       end if  
  case 2
       Checktheme2
  case 3
        etc.
End Select
End Sub

Cela se fait très bien en delphi car le Sender est disponible, mais je sèche lamentablement sous VBA
J'avais espoir avec Application.Caller, mais ça ne marche pas avec les userforms.

Qui peut me venir en aide?
Remerciements anticipés.

[mercatog]

Penches sur les modules de classe

[unparia]

Bonjour
Pour faire cela, il te faut nécessairement passer par une classe qui gère une collection (celle des checkboxes concernées) et définir dans cette classe l'évènement click concernant toutes les checkboxes de cette collection. Cela veut dire que tu dois alors d'abord t'intéresser de près à la création de ce genre de classe. Les exemples et didacticiels à ce sujet ne manquent pas sur ce forum.
Mais si tu trouves cela trop compliqué, tu pourras trouver plus simple de :
- créer une procédure toto, appelée dans la procédure évènementielle de chacune de tes textboxes et à laquelle tu passes en paramètre la checkbox cliquée (le "sender", c'est elle).

Lire, par exemple et entre autres, cette discussion :
https://www.developpez.net/forums/d7...ts-type-label/
Analyser, comprendre et adapter à ton cas et tes contrôles.

[qi130]

Je mets résolu, mais c'est plus un abandon.

Merci cependant pour vos pistes.

[mercatog]

1. Créé un module de classe (par défaut nommé Classe1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public WithEvents CB As msforms.CheckBox
 
Private Sub CB_Change()
'ici on va mettre le code générique pour tous tes checkbox (à appliquer à la variable CB)
'exemple:
 
CB.ForeColor = IIf(CB.Value, RGB(0, 0, 0), RGB(255, 0, 0))
End Sub

2. dans le module de ton userform, on va instancier tous les checkbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Coll As Collection
 
Private Sub UserForm_Initialize()
Dim Ctr As msforms.Control
Dim LaCbo As Classe1
 
 
Set Coll = New Collection
For Each Ctr In Me.Controls
    If TypeOf Ctr Is msforms.CheckBox Then
        Set LaCbo = New Classe1
        Set LaCbo.CB = Ctr
        Coll.Add LaCbo
    End If
Next Ctr
End Sub

Voilà voilà,