Similaire a Activate ?

Version imprimable

24/08/2007, 15h25
titeZ

Similaire a Activate ?

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 ....8O
Comment est ce que je peux faire pr me sortir de là ?
24/08/2007, 15h39
ouskel'n'or

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

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

je suis sur la feuille "Indic"

Code:

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

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:

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?

24/08/2007, 16h36
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

Citation:

Envoyé par titeZ

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....
24/08/2007, 16h41
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 !

Citation:

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 ;)

C'est possible ?
mERVEIILLEUX:D Mais comment ?

Voila ce que font mes call

Code:

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

Bonjour à tous
essaies cette syntaxe:

Code:

1
2
3
4
5
6
With worksheets("pack")

 .[FONT=Arial]Range("A6").CurrentRegion.Sort Key1:=.Range("AC6")

end with[/FONT]

Tu peux juste modifier un peu ton code et c'est tout bon

Citation:

Envoyé par titeZ

C'est possible ?
mERVEIILLEUX:D Mais comment ?

Voila ce que font mes call
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub tri() Worksheets("pack").Range("A6").CurrentRegion.Sort Key1:=Worksheets("pack").Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Sub tri2() Worksheets("evt").Range("A6").CurrentRegion.Sort Key1:=Worksheets("evt").Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Je n'ai pas testé, possible que le second Worksheets(....) dans
Worksheets("pack").Range("AC6") et dans Worksheets("evt").Range("AC6") ne soit pas nécessaire pour key1:= ... Bref, tu peux tester pour moi ? ;)
A+

24/08/2007, 17h07
titeZ

non, si je ne suis pas sur la feuille pack et ensuite evt ça ne passe pas :cry:
24/08/2007, 17h11
ouskel'n'or

Tu m'étonnes beaucoup, ce doit être une erreur de syntaxe de ma part. Je m'y colle... ;)

Pendant que je te tiens, as-tu regardé ma dernière réponse, là, qu'au moins elle serve à quelque chose :cry:
A+
24/08/2007, 17h19
titeZ

oui j'ai regardé
mais a partir du moment ou je ne suis pas sur la feuille le tri ne fonctionne pas :(

Je jète l'éponge. Il semblerait bien que tu aies raison. J'ai réussi à le faire fonctionner une fois mais n'ayant pas réussi à le reproduire, je pense que j'ai trié la feuille active, non la feuille souhaitée.
Donc, on va trouver une solution.
Déclare un boolean en public là ou tu mets tes deux macros

Code:

Public Ok as boolean

Dans la macro liée à ta feuille, mets ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub worksheet_activate() Dim pourOk As Double Dim j As Integer Dim Ligne As Long Dim Flag As Boolean If Not Ok Then tri ' là je vais activer une autre feuille que celle sur laquelle je suis tri2 ' là je vais activer une autre feuille encore End If If Ok Then Worksheets("Feuil1").Select Worksheets("Feuil3").Range("B2", "M9").ClearContents ActiveSheet.Range("A1").Value = "coucou" End Sub
Ça, je viens de le tester, c'est ok pour moi.
Ouf ! :cry:

PS - Après 10 ans, j'ai encore appris que certaines évidences n'étaient pas aussi évidentes que ça re :cry:

Bonsoir

Je confirme les dires d'Ouskel'n'or et de Michel.

En reprenant la feuille comme objet parent des plages utilisées lors du tri, celui-ci s'effectue bien, et c'est heureux!!, sur la feuille renseignée, que celle-ci soit active ou non
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Tri1() Dim Feuille As Worksheet Set Feuille = Worksheets("Feuil1") Feuille.Range("a1").CurrentRegion.Sort key1:=Feuille.Range("a1"), order1:=xlAscending, key2:=Feuille.Range("b1"), header:=xlYes End Sub Sub Tri2() Dim Feuille As Worksheet Set Feuille = Worksheets("Feuil2") Feuille.Range("a1").CurrentRegion.Sort key1:=Feuille.Range("b1"), order1:=xlAscending, key2:=Feuille.Range("a1"), header:=xlYes End Sub Sub Trier() Tri1 Tri2 End Sub
Je serais donc tenté de dire que si cela ne fonctionne pas, c'est qu'il y a un problème dans le code utilisé.

Pourrait-on l'avoir en entier?

26/08/2007, 14h34
titeZ
Pierre, non tu ne confirmes pas les dires d'ouskel'n'or alors :?

En faite ce qu'il y a c'est que je ne lance pas ça d'un sub trier comme tu l'as fait mais d'un worksheet activate depuis une 3eme feuille

essaie:
Code:

1 2 3 4 5 Private Sub worksheet_activate() Tri1 Tri2 End Sub
Tu vas voir que la ca marche moins bien 8O