Discussion :

[titeZ]

Bonjour,

J'ai
un souci
j'ai fait un code qui se declenche des que l'on se positionne sur une feuille mais qui fat appelle a d'autre feuille que j'active pdt le code.

Alors le truc c'est que je veux revenir à la premiere feuille mais si je mets un activate je suis dans une boucle sans fin ....
Comment est ce que je peux faire pr me sortir de là ?

[ouskel'n'or]

Ton code nous serait utile pour comprendre
Où le places-tu ? (Ça aussi c'est important )

[titeZ]

Alors je vais essayer d'etre clair
j'ai mon code

je suis sur la feuille "Indic"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub worksheet_activate()
Dim pourOk As Double
Dim j As Integer
Dim Ligne As Long
Dim Flag As Boolean
 
Call tri  ' là je vais activer une autre feuille que celle sur laquelle je suis
Call tri2 ' là je vais activer une autre feuille encore
 
Worksheets("Indic").Range("B2", "M9").ClearContents
 
Ligne = 6
'etc......
'et là j'ai besoin de revenir sur la feuille du debut "Indic" mais je peux pas faire
'de activate sinon le code se relance :cry:
end sub

[grrimag]

est-ce que tu as essayé avec un select plutôt qu'un activate?

Sinon (mais c'est vraiment pas très propre), est-ce que tu peux mettre une trace dans une cellule donnée de ta feuille pour indiquer que tu ne dois pas lancer le code?? genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub worksheet_activate()
 
if A1="" then 'tu remplaces A1 par la cellule dans laquelle tu veux mettre l'info
    'tu viens d'activer pour la première fois ta feuille
    'tout ton code dont tu as besoin
    A1="toto"
    indic.activate
    else
    'c'est à dire que A1 est remplie et que tu dois arrêter ta boucle et que tu
    'es sur la bonne feuille
    A1=""
end if
 
end sub

Faut récrire le code de façon un peu plus propre mais tu vois l'idée?

[titeZ]

Que je fasse select ou activate ca relance mon code quand meme
tu veux bien dire select a la fin de mon code pr revenir sur la feuille de depart c'est bien ça ?
la 2eme methode pas possible

Je veux revenir pour voir ce qui as été fait sur cette feuille!
le etc qu'il y a dans mon code c'est des actions qui sont faiate sur cette feuille et en l'occurence là elle ne sont pas visble puisque je reste indefiniment sur la 2eme feuille qui a été activé au debut

ou alors il faudrait que je travaille sur les autres feuilles sans les activer ou les selectionner comme ça ma feuille du debut restera visible
je peux faire ça

ouskel nor
d'accord mais mon but actuelle c'est de revenir sur cette feuille

si je ne la selectionne pas alors je fais comment pr revenir dessus ??????

ou sinon est ce qu'il m'est possible d'effectuer des modif sur une feuille sans aller dessus?

PARCE QU4EN FAITE QUAND je call tri je selectionne une autre feuille
et c'est là le pb
dc il faudrait que je puisse travailler desuus sans "etre" dessus
c'est possible ?

Oui j'ai lu et j'ai repondu

Je veux revenir pour voir ce qui as été fait sur cette feuille!
le etc qu'il y a dans mon code c'est des actions qui sont faiate sur cette feuille et en l'occurence là elle ne sont pas visble puisque je reste indefiniment sur la 2eme feuille qui a été activé au debut

dés l'activation d'une feuille ( private sub worksheet_activate) j'ai des chose a effectuer dessus mais j'ai besoin d'effectuer des modifs sur d'autres feuilles ( call tri et tri2 ( qui selectionne dc d'autre feuilles) maintenant il faut que je vois ce qui a été fait sur la feuille du debut....

[ouskel'n'or]

pourquoi veux-tu "revenir" sur la feuille du début ? On n'est jamais obligé de sélectionner une feuille

Edit
En l'occurence, puisque tu es dans le code de ta feuille, ta feuille est "Activesheet"

Edit 2
J'ajoute que si tu es dans le code d'une feuille de calculs, il n'est jamais bon de sélectionner une feuille dans ton code... ça fout le bouzou !

ou sinon est ce qu'il m'est possible d'effectuer des modif sur une feuille sans aller dessus?

Non seulement c'est possible mais c'est nécessaire s'il s'agit d'une autre feuille. Je ne sais pas ce que font tes Call .... mais si dans leur code tu sélectionnes une autre feuille, c'est pas bon.
On peut toujours de passer de sélectionner feuille ou cellule en nommant la feuille et le range.
Et si tu fais ça, comme je t'ai dit, avec Private Sub worksheet_activate() la feuille active reste ActiveSheet.

Bon, je vais grouper mes messages sinon je vais passer les 7000 avant ce soir, ne sois pas étonné si tu ne les retrouves pas là où tu les cherches

[titeZ]

C'est possible ?
mERVEIILLEUX Mais comment ?

Voila ce que font mes call

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tri()
Worksheets("pack").Select
   Range("A6").CurrentRegion.Sort Key1:=Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub
Sub tri2()
 
Worksheets("evt").Select
  Range("A6").CurrentRegion.Sort Key1:=Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

comment je peux faire alors ? en nommant la feuille ou le range ??? Comment ça ? je ne comprend pas