worksheet_deactivate

[philippe05]

bonsoir à tous,
J'ai n petit problème énervant que je retourne dans tous les sens...
J'ai une liste sur une feuille que je voudrais trier quand je quitte la feuille.
J'ai créé une procédure de tri que j'appelle avec la fonction Worksheet_deactivate: jusque la tout va bien, le pb c'est que je ne peux plus quitter cette feuille puisque après le tri, je suis dedans et quand je quitte le tri se relance et me ramène.
Si l'un d'entre vous a une idée... je ne me vexerai pas
MERCI
Philippe

 

[Temjeh]

Re : worksheet_deactivate

Bonsoir

Sans trop comprendre met le trie dans la procèdure du classeur et non de la feuille:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Trie
End Sub


Ouen pour quitter le classeur mais si je quitte la feuille comme toi ca bug!
Je cherche et te reviens
A+

Temjeh

 

[philippe05]

Re : worksheet_deactivate

Merci TEMJEH mais je ne veux pas fermer le classeur. J'ai besoin de trier cette feuille parceque la liste est reprise dans une autre feuille (liste déroulante)
merci de ton aide
Philippe

Bonsoir

Sans trop comprendre met le trie dans la procèdure du classeur et non de la feuille:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Trie
End Sub


Ouen pour quitter le classeur mais si je quitte la feuille comme toi ca bug!
Je cherche et te reviens
A+

Temjeh

 

[Temjeh]

Re : worksheet_deactivate

Pas très bon cette solution si tes cell à trier en feuil1:

Private Sub Worksheet_Deactivate()

i = ActiveSheet.Name
Sheets("Feuil1").Activate
...ton trie
Sheets(i).Activate

End Sub

Mais ca clignote et je ne sais pas pourquoi!

On attend mieux(et surement ca va venir)

Temjeh

 

[wilfried_42]

Re : worksheet_deactivate

bonjour à tous

j'ai peu etre un truc pour vous

dans workbook ti meys le code suivant

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call activation
End Sub

dans un module : celui ci :

Public feuille As String

Sub activation()
Dim nouvelle As String
If feuille = "" Then feuille = ActiveSheet.Name: Exit Sub
nouvelle = ActiveSheet.Name
If feuille = "Feuil2" Then
Application.EnableEvents = False
Sheets(feuille).Select
Range("A" & Range("A65000").End(xlUp).Row + 1) = "Essai"
Sheets(nouvelle).Select
Application.EnableEvents = True
End If
feuille = nouvelle
End Sub

à chaque fois que tu quitte feuil2, il ajoute essai dans la colonne A de feuil2

bonne nuit à tous

 

[Pierrot93]

Re : worksheet_deactivate

Bonjour Philippe, Temjeh, Wilfried

Si j'ai bien compris,personnellement j'utiliserais plutôt l'évènement "change" de la feuille dans ce cas en ciblant la colonne dont les modifications doivent être prises en compte :

Private Sub Worksheet_Change(ByVal Target As Range)
'ton code
End Sub

@Wilfried Je ne comprend pas trop ton code dans ce cas(pour un tri il me semble)

bon dimanche
@+

 

[wilfried_42]

Re : worksheet_deactivate

bonjour pierrot

j'ai fait une procedure qui s'active en sortant de la feuille, cette procedure y retourne et en ressort sans qu'elle se bloque sur cette meme feuille

mais j'ai surement mal saisi sa demande 😕 ca ne serait pas la 1ere fois 😛

 

[chris]

Re : worksheet_deactivate

Bonjour

En fait le PB vient plutôt du code de tri : le tri ne doit pas utiliser de sélection afin ne pas réactiver la feuille.
J'ai mis ce seul code
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

dans le Worksheet_Deactivate() de la feuill1 et quand je passe sur feuill2 puis reviens tout est trié.

 

[wilfried_42]

Re : worksheet_deactivate

re:

il est vrai que j'ai un peu compliqué les choses, ca m'a fait un exercice

dans la procedure worksheet_desactivate
debut de procedure :

Application.EnableEvents = False

fin de procedure :

Application.EnableEvents = True