Ajouter dynamiquement des Events à une Feuille via un module de classe.

Citation:

---

Je viens de m'apercevoir que j'avais d'abord mis cette discussion sur le forum excel et non pas sur le forum Macro, désolé.

---

Bonjour,

Je crée des nouvelle feuilles dans un Classeur Excel et je souhaite qu'elles fassent appel à une procédure sur Double Clique.
J'ai crée un module de classe avec un WithEvents dans lequel j'ai spécifié ma procédure, mais ensuite je n'arrive pas à instancier cette nouvelle feuille créee.

Voilà le code du module de Classe GpeFeuilles.

Code:

---

1 2 3 4

Public WithEvents mesFeuilles As Worksheet Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Action_DE.Action End Sub

---

Ensuite je veux créer ma feuille :

Code:

---

1 2 3 4 5

Dim mesFeuilles() As New GpeFeuilles ... Nbfeuille = Worksheets.Count ReDim Preserve mesFeuilles(Nbfeuille + 1) Set ActiveSheet = MyWorkbook.mesFeuilles(Nbfeuille + 1)

---

mais ca plante en ligne 5 avec ce message.

Citation:

---

Propriété ou méthode non géré par cet objet

---

Est ce que vous sauriez comment faire ?
D'avance merci.

Je viens d'essayer comme cela,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim TabFeuille() As New GpeFeuilles   MyWorkbook.Activate Worksheets.Add Nbfeuille = Worksheets.Count ReDim Preserve TabFeuille(Nbfeuille + 1) Set TabFeuille(Nbfeuille + 1).mesFeuilles = ActiveSheet TabFeuille(Nbfeuille + 1).mesFeuilles.Name = "Exploitation ETF"   TabFeuille(Nbfeuille + 1).mesFeuilles.Visible = True

---

je ne plante plus, mais je ne recupère pas le comportement WithEvent que j'ai associé dans mon module de classe.
Des idées ?

Voici comment je ferais :

Dans un module "Module1", je déclare une collection publique de feuilles

Code:

---

Public listFeuilles As Collection

---

On instancie cette collection dans le Workbook_Open

Code:

---

1 2 3

Private Sub Workbook_Open() Set listFeuilles = New Collection End Sub

---

On crée un module de classe "clsFeuille" avec le code suivant

Code:

---

1 2 3 4 5 6 7

Option Explicit   Public WithEvents maFeuille As Worksheet   Private Sub maFeuille_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "toto" End Sub

---

Et on met dans "Module1" une petite procédure de test

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub test() Dim sh As Worksheet Dim clsSh As clsFeuille   Set sh = Worksheets.Add Set clsSh = New clsFeuille Set clsSh.maFeuille = sh   listFeuilles.Add clsSh End Sub

---

Et voilà, on peut voir que dans la nouvelle feuille créée, un double-click affiche le message toto ! ;)

Super, ca me semble effectivement plus simple en utilisant une Collection interne à Excel.
Merci bien.