Discussion :

[Bouling]

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 :

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

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 !

[patricktoulon]

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 :

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

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

[Bouling]

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 :

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

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.