Discussion :

[NEC14]

Bonjour le forum,

Mon sujet est dans le titre, est-ce que je peux mettre ce code tel quel dans un module et ainsi l'appeler dans mes 52 feuilles sans être obligé de recopier toutes ces lignes ?
Merci par avance

Code :

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

1
2
3
4
5
6
7
 
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
    If Not Range("A12").Address = ActiveCell.Address Then Exit Sub
    Load FrmTrav
    FrmTrav.Show
    FrmTrav.Height = 160
End Sub

[AnneCa]

Je dirais que non parce que la méthode WorkSheet_SelectionChange est propre à une feuille MAIS tu peux créer une sub dans le module qui y ressemble, par exemple:

Code :

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

1
2
3
4
5
Public Sub LoadForm()
    Load FrmTrav
    FrmTrav.Show
    FrmTrav.Height = 160
End Sub

Dans tes 52 feuilles, il resterait le même code partout

Code :

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

1
2
3
4
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
    If Not Range("A12").Address = ActiveCell.Address Then Exit Sub
    LoadForm
End Sub

A essayer...

[NEC14]

Bonjour AnneCa,

A quelques lignes de différences, cela ne change pas grand chose.
Merci tout de même pour ta suggestion.
Je vais creuser la question.

[wilfried_42]

Bonjour

Dit comme cela ça ne change pas grand chose !
Sauf qu'une macro d'interruption ne peut etre lancée que dans le module dont elle dépend. dans les modules standards, tu ne peux avoir de macros événementielles.

maintenant, si on connaissait le But final, on pourrait mieux te répondre

[NEC14]

Bonjour Wilfried,

En fait, je répète ce code 52 fois. Lorsque j'y apporte une modif, je dois la répèter 52 fois. Donc si je n'avais qu'un seul code pour les 52 feuilles cela me serait très pratique.

[wilfried_42]

re:

dans Thisworkbook

Code :

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

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub

tu peux tester le nom de la feuille avec sh

Code :

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

1
2
3
if left(sh.nam,3) = "Sem" then 
mon code
end if

[Godzestla]

Re,
tu peux simplifier le code suivant

Code :

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

1
2
3
4
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
    If Not Range("A12").Address = ActiveCell.Address Then Exit Sub
    LoadForm
End Sub

en

Code :

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

1
2
3
IPrivate Sub WorkSheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Address = "$A$12" then LoadForm
End Sub