Puis-je mettre ce code dans un module ?

Version imprimable

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:

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

09/03/2009, 13h37
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:

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:

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...
09/03/2009, 13h41
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.
09/03/2009, 13h46
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
09/03/2009, 13h50
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.

Re,
tu peux simplifier le code suivant

Code:

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

Code:

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

re:

dans Thisworkbook

Code:

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:

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

09/03/2009, 13h59
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 ?

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:

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

09/03/2009, 14h13
NEC14

Dans mon fichier j'ai plus de 52 feuilles (65 en tout) mais seulement 52 sont concernées par ce code.
09/03/2009, 14h19
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 ??? :evilred:, donne moi les noms de feuille, du moins leur structure précise

@ te lire
09/03/2009, 14h19
Godzestla

Citation:

Envoyé par NEC14

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.
09/03/2009, 14h29
NEC14

Désolé Wilfried, on va éviter la torture, surtout un lundi.
Mes 52 feuilles sont intitulées "S1, S2, S3, etc...
09/03/2009, 14h34
Krovax

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

re:

essaye çà dans le module thisWorkBook

Code:

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

09/03/2009, 14h35
Godzestla

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

Code:

if left(sh.name, 1) = "S" then
09/03/2009, 14h55
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
09/03/2009, 15h02
Godzestla

Prends la solution de Wilfried.
Comme d'hab il a LA bonne solution.
------
Salut Wilfried. ;)
09/03/2009, 15h18
NEC14

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

Fuseau horaire GMT +2. Il est actuellement 17h43.