Evènement Click sans code dans la feuille

Bonjour à tous,

Mon problème est un peu délicat : j'ai une macro qui utilise un module de classe pour créer un nombre variable de feuilles dans lesquelles il y a des tableaux qui eux aussi ont un nombre variable de colonnes. Chacune de ces colonnes est créée à partir d'une feuille spécifique déjà existante, le but est de créer un événement qui active cette dernière lorsqu'on click sur la première ligne de la colonne (ou Double click, peu importe).

Le majeur problème est le suivant : je ne peux pas écrire de code dans une feuille par le biais d'une macro. Car lorsque je vais dans Outils - Reference... le message "Erreur d'accès à la base de registration", et donc je ne peux pas utiliser les VBComponents et donc pas modifier le CodeModule.

J'ai déjà réussi à contourner le problème pour créer des boutons sur chaque feuilles et en leur affectant une macro au moment de la création de la feuille de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub BoutonLissage(Secteur As String) Worksheets(Secteur).Buttons.Add(241, 35, 60, 28).Select With Selection .OnAction = "BoutonLissage_Click" .Name = "Lissage +" .Caption = "Lissage +" End With End Sub   Public Sub BoutonLissage_Click() 'Macro appelée par le bouton End Sub

---

De cette manière le bouton est créé sur chaque feuille et appelle une macro déjà définie, sans pour autant avoir à trafiquer le code de la feuille dans laquelle est le bouton.

J'aimerais pouvoir faire la même chose avec un click ou double click sur une cellule afin d'appeler une macro paramétrée déjà définie.

Je ne sais pas si j'ai été assez clair, mais j'espère que vous pourrez m'aider, merci !

Bonjour rien de plus simple
dans le module "ThisWorBook" tu a cet évènement déjà prévu
je dis bien le module "ThisWorkBook" pas celui du sheets de base même si il est présent dans tout les modules des sheets celui la gère tout es les feuilles
tu peut meme mettre des condition sur le sheets
exemple :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) if sheets.name<>"Feuil1" and target=cells(1,1) then msgbox 'coucou" end if 'ici l'appel a ta macro End Sub

---

tu aura le message quand tu sélectionnera la cellule A1 de chaque sheets sauf si tu est sur la feuil1

édit: j'ai corrigé des lettres manquaient!!!

C'est parfait !

Au final vu que les feuilles vers lesquelles je veux les liens ont toutes un nom avec la même structure (QX avec X un in quelconque) j'ai pu me débrouiller avec ça,

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Left(Target, 1) = "Q" Then If IsNumeric(Mid(Target, 2)) Then Cancel = True Worksheets(CStr(Target)).Activate End If End If End Sub

---

Merci pour cette réponse.