Discussion :

[kikou63]

Bonjour,

Dans un UserForm j'ai une soixantaine de CommandButton et plusieurs autres contrôles. Parmi ces CommandButtons, une cinquantaine porte un nom composé de 4 caractères et doivent se comporter de la même manière quand l'utilisateur clique dessus. Quelqu'un aurait-il une idée pour éviter de créer 50 procédures événementielles comme celle ci-dessous (en évitant qu'une procédure générale ne s'applique à tous les contrôles, dont les CommandButton non concernés) ?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub ADA1_Click()
    If ADA1.BackColor = 12640511 Then
        ADA1.BackColor = 65535
    Else
        ADA1.BackColor = 12640511
    End If
End Sub

[BenjGe]

c'est une limitation de vba que l'on a pas en vb. Le principe serait d'enfermer tous les contrôles dans un array pour lequel on peut décrire une procédure s'appliquant à n'importe lequel de ces boutons.
Ici je ne vois pas comment tu peux faire.

La seule chose qui pourrait t'alléger un peu serait ce principe mais ce n'est pas génial:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ADA1_Click()
        ADAClic(userform1.ADA1)
End Sub
 
Sub ADAClic(Bout as Control)
        If Bout.BackColor = 12640511 Then
                   Bout .BackColor = 65535
        Else
                   Bout .BackColor = 12640511
        End If
end sub

[kikou63]

Merci Benjamin,

Ta solution m'évitera au moins de recopier une série de commandes assez importante pour chaque CommandButton. J'espérais un peu trouver un événement concernant l'ensemble des contrôles du UserForm et j'avais essayé une procédure reprenant le test que tu m'as suggéré il y a quelques jours (qui fonctionne très bien du reste ), mais les contrôles semblent fonctionner indépendamment du UserForm (pour les procédures événementielles en tout cas)...

[ESVBA]

Il faut passer par un module de classe.

Tu en trouveras un ici "comment identifer le controle cliqué" :
http://excel.developpez.com/faq/inde...sseControleUSF

à adapter bien sûr. Genre :

Code :

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

If Left(Obj, 3) = "ADA" Then

Pour créer automatiquement des boutons et leurs macros associées :
http://excel.developpez.com/faq/inde...tCommandButton


ESVBA

[mercatog]

A l'aide de module de classe
dans un module public

Code :

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

Public CollCB As Collection

Créer 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
9
10
Public WithEvents Bouton As MSForms.CommandButton
 
Private Sub Bouton_Click()
 
If Bouton.BackColor = 12640511 Then
    Bouton.BackColor = 65535
Else
    Bouton.BackColor = 12640511
End If
End Sub

et dans l'Initialize de ton usf

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim Kontrol As Control
Dim Klasse As Classe1
 
Set CollCB = New Collection
For Each Kontrol In Me.Controls
    If TypeOf Kontrol Is MSForms.CommandButton And Left(Kontrol.Name, 3) = "ADA" Then
        Set Klasse = New Classe1
        Set Klasse.Bouton = Kontrol
        CollCB.Add Klasse
    End If
Next Kontrol
End Sub

Edit: désolé pas rafraichi pour le lien proposé par ESBVA

[kikou63]

Pas de doute, il n'y a pas que le module qui soit (de) classe !

Le lien est d'une grande clarté et à présent pour moi cela fonctionne impeccablement.

Merci à tous

[BenjGe]

bien joué pour le module de classe