Discussion :

[guillome29]

Bonjour,

Je voudrais savoir si il était possible de faire une boucle plutôt que d’écrire plusieurs fois des sub quasi identiques.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 Public Sub TglOP60_Click()
Affichage TglOP60, "60" 'Fonction Affichage NomDuBouton 'NumDePro
End Sub
Public Sub TglOP150_Click()
Affichage TglOP150, "150"
End Sub
Public Sub TglOP520_Click()
Affichage TglOP520, "520"
End Sub

Je voulais savoir si il existait un code de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
 Dim z As Variant
Dim pi As Integer
z = Array(60, 150, 520)
Dim taille As Integer
taille = UBound(z)
 
For pi = 0 To taille
….
Next pi

Définir un tableau contenant toutes mes variables et ensuite écrire quelque chose du style :

Code :

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

1
2
3
Public Sub TglOP & z(pi)_Click()
Affichage TglOP& z(pi)&, "& z(pi)"
End Sub

Merci d’avance,
Guillaume

[mercatog]

Regardes du côtés des Classes

[Kimy_Ire]

Bonjour guillome29,

Tout simplement comme ceci :

Code :

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

1
2
3
For pi = 0 To UBound(mon_tableau)
    Affichage TglOP150, mon_tableau(pi)
Next pi

Tu as quasiment tout codé. Non ?

Cordialement,
Kimy

[guillome29]

Bonsoir,
Oui je suis d'accord avec toi mais dans quel sub le mets tu ce code ? Je veux que ca se déclenche à l'événement click de plusieurs boutons

[clementmarcotte]

Bonjour,

Bonsoir,
Oui je suis d'accord avec toi mais dans quel sub le mets tu ce code ? Je veux que ca se déclenche à l'événement click de plusieurs boutons

Dans un module "ordinaire"

Code :

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

1
2
3
sub FaitQuelqueChose()
   etc. 
End Sub

Dans la procédure d'événement du/des bouton(s), ou même d'un autre contrôle

Code :

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

1
2
3
sub QuelqueChose_Click
   FaitQuelqueChose
end sub

[kiki29]

Salut, comme déjà conseillé plus haut, regarde de ce côté : Création et utilisation de classes personnalisées en VB 6.0 et VBA (partie 1) . Via une recherche tu devrais trouver également des exemples

[guillome29]

Regardes du côtés des Classes

Bonjour,

J'ai lu l'article que kiki29 a envoyé par lien, mais je ne vois pas le lien avec ma demande..

[mercatog]

Tes TglOPxx sont des contrôles? si oui lesquels.
Ils sont sur un userform ou ActiveX sur une feuille?

Sois précis

[guillome29]

Bonjour,

Oui il s'agit de contrôles. C'est des boutons bascules présents sur ma feuille, controle ActiveX

[mercatog]

Exemple

Dans un module de classe nommé clsTB on crée l'évènement générique (ici _Click)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public WithEvents TB As MSForms.ToggleButton
 
Private Sub TB_Click()
 
'notre code générique qui sera appliqué à tous les togglebutton dont le nom commence par TglOP
'Exemple on bascule la caption entre gras et normal à cahque click et on affiche le nombre associé au nom
 
TB.Font.Bold = Not TB.Font.Bold
MsgBox Replace(TB.Name, "TglOP", "")
End Sub

Pour insancier la classe, par exemple j'utilise l'évènement Activate de la feuille (Tu peux choisir n'importe quel évènement qui doit être déclenché pour instancier)

Module de la feuille

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
Option Explicit
 
Dim Tbl() As clsTB
 
Private Sub Worksheet_Activate()
Dim Ct As OLEObject
Dim i As Integer
 
For Each Ct In ActiveSheet.OLEObjects
    If Left(Ct.Name, 5) = "TglOP" Then
        i = i + 1
        ReDim Preserve Tbl(1 To i)
        Set Tbl(i) = New clsTB
        Set Tbl(i).TB = Ct.Object
    End If
Next Ct
End Sub

Le code générique est affecté à tous les togglebutton de la feuille dont le nom commence par TglOP (sans limiter le nombre et sans changer le code même si on ajoute d'autres togglebutton.

[guillome29]

Merci mercatog.

• Ca signifie que la fonction affichage (de mon premier post sur la discussion) doit se placer dans le module de classe, dans le sub TB_ Click ?
  
• le Tbl(i) correspond à mon z(pi) ?

Merci encore,
Guillaume

[guillome29]

Bonjour,
J'ai réussi à implémenter le code et les boutons basculés font les bonnes actions, au clic.
Néanmoins, dès que je passe en mode création (pour déplacer un bouton par exemple). Et que j'enlève le mode creation, mes boutons ne font plus rien lorsque je clique dessus. Étrange ou non ?

[mercatog]

Pour initialiser la classe, il faut d'abord déclencher l'évènement Activate de la feuille.