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.

[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

[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

[NEC14]

Excuse moi Wilfried, mais je ne comprend pas ta réponse. C'est lundi et je rame un peu.

Dans ThisWorkBook je mets le code que tu viens de m'apporter.
Dans un module je mets mon code
Est-ce bien cela ?

[wilfried_42]

re:

je ne sais pas comment est fait ton classeur. si tu n'as que 52 feuilles (autement dit : toutes les feuille sont concernées) alors dans le module ThisWorkBook :

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 Not Range("A12").Address = ActiveCell.Address Then Exit Sub
    Load FrmTrav
    FrmTrav.Show
    FrmTrav.Height = 160 
End Sub

[NEC14]

Dans mon fichier j'ai plus de 52 feuilles (65 en tout) mais seulement 52 sont concernées par ce code.

[wilfried_42]

re:

je m'en doutais un peu lol
elles doivent avoir un nom structuré ca doit concerner des semaines : sem01 à sem 52

je ne vais pas devoir passer en mode torture non ??? , donne moi les noms de feuille, du moins leur structure précise

@ te lire

[Godzestla]

Dans mon fichier j'ai plus de 52 feuilles (65 en tout) mais seulement 52 sont concernées par ce code.

Alors en debut de ta sub tu testes soit les feuilles à sélectionner, soit celles à ne pas sélectionner en fonction du test le plus court ou le plus rapide. Tout dépend du nom de tes feuilles à sélectionner ou à ne pas sélectionner.

Si tu as un préfixe commun, c'est l'idéal.

[NEC14]

Désolé Wilfried, on va éviter la torture, surtout un lundi.
Mes 52 feuilles sont intitulées "S1, S2, S3, etc...

[Krovax]

et les autres? car si elle ne commence pas par un S le test est tout trouvé

[wilfried_42]

re:

essaye çà dans le module thisWorkBook

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Range("A12").Address = ActiveCell.Address Then Exit Sub
    if left(sh.name,1) = "S" then
        if val(mid(sh.name,2,len(sh.name)-1))>0 then ' je me mefie, si tu as une feuille qui commen par S comme Salut)
               Load FrmTrav
               FrmTrav.Show
               FrmTrav.Height = 160
        end if
    end if 
End Sub

ps: enleve les autre codes de ce type mis dans les feuilles

[Godzestla]

Et les 13 autres, aussi s* ou pas ?!?
si non tu peux coder

Code :

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

if left(sh.name, 1) = "S" then

[NEC14]

Il y a 3 autres feuilles commençant par un "S", Stock faible, Stock, Select et je ne peux pas changer leur nom, trop de travail de mise à jour par la suite.
Je vais essayer vos propositions. Si entre-temps vous en avez d'autres n'hésitez pas.
Merci pour votre participation

[Godzestla]

Prends la solution de Wilfried.
Comme d'hab il a LA bonne solution.
------
Salut Wilfried.

[NEC14]

Que faire d'autre que de m'incliner devant autant de savoir.
Merci beaucoup Wilfried ça fonctionne du tonnerre