sub nom variable

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:

---

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:

---

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:

---

1 2 3

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

---

Merci d’avance,
Guillaume

Regardes du côtés des Classes

Bonjour guillome29,

Tout simplement comme ceci :

Code:

---

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

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

Bonjour,

Citation:

---

Envoyé par 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

---

Dans un module "ordinaire"

Code:

---

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:

---

1 2 3

sub QuelqueChose_Click FaitQuelqueChose end sub

---

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

Citation:

---

Envoyé par mercatog

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..

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

Sois précis

Bonjour,

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

Exemple

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

Code:

---

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:

---

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.

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

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 ?

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