worksheet_deactivate

philippe05 · 15 Avril 2007

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 · 15 Avril 2007

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 · 15 Avril 2007

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

Temjeh à dit:
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 · 15 Avril 2007

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 · 15 Avril 2007

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 · 15 Avril 2007

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 :

Code:

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 · 15 Avril 2007

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 · 15 Avril 2007

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 · 15 Avril 2007

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

worksheet_deactivate

philippe05

Guest

Temjeh

XLDnaute Accro

philippe05

Guest

Temjeh

XLDnaute Accro

wilfried_42

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

worksheet_deactivate

philippe05

Guest

Temjeh

XLDnaute Accro

philippe05

Guest

Temjeh

XLDnaute Accro

wilfried_42

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency