Discussion :

[comme de bien entendu]

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 :

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

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 :

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

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.

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

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

[comme de bien entendu]

Je viens d'essayer comme cela,

Code :

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

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 ?

[ZebreLoup]

Voici comment je ferais :

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

Code :

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

Public listFeuilles As Collection

On instancie cette collection dans le Workbook_Open

Code :

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

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 :

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

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 :

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

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 !

[comme de bien entendu]

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