> Tous les forumsBureautique

 Exécution macro à la fermeture feuilleSujet résolu
Statut du sujet : RESOLU Imprimer
 quillet
  Posté le 26/03/2008 @ 17:47  
 Petit astucien

96 Messages

Bonjour à tous,

J'ai fais la macro de tri suivant:

Sub Tri_Liste()
'''
Range("A6").Select
Application.Goto Reference:="R6C1:R150C3"
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Pour que la macro s'exécute à la fermeture de la feuille contenant la liste, j'ai saisi le code suivant

Private Sub Worksheet_Deactivate()
Tri_Liste
End Sub

Or, quand je quitte cette feuille, le tri ne se fait pas

Qui peut me dire quelle erreur j'ai commise?

Merci d'avance pour votre aide.

 Afficher le profil de quilletEnvoyer un message privé à quillet
 
 
Publicité
 ferrand  Posté le 26/03/2008 à 18:43  
Astucien

1600 Messages

Salut,

Indique la feuille dans ta référence : Worksheets(index ou nom).Range("A6:C150")

Afficher le profil de ferrandEnvoyer un message privé à ferrand
 Revenir en haut de la page
 quillet  Posté le 26/03/2008 à 19:21  
Petit astucien

96 Messages

Bonsoir Ferrand,

Hélas, je n'y arrive pas. Je vais encore abuser de ton temps.

Peux-tu m'écrire la macro évènementielle. La feuille sur laquelle se trouve la liste à trier se nomme Données.

Merci

Afficher le profil de quilletEnvoyer un message privé à quillet
 Revenir en haut de la page
 Boisgontier  Posté le 26/03/2008 à 19:47  
Petit astucien

18 Messages

Bonsoir,

-Dans un module:

Sub Auto_Close()

End Sub

-Ou dans ThisWorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

JB
http://boisgontierjacques.free.fr/

Afficher le profil de BoisgontierEnvoyer un message privé à Boisgontier
 Revenir en haut de la page
 Bérylion  Posté le 26/03/2008 à 20:06  
Astucien


2446 Messages

Salut

à coller dans le module de la feuille en question (et pas dans un module standard) :

VBA
Private Sub Worksheet_Deactivate()

'Range("A6").Select
Application.Goto Reference:="R6C1:R150C3"
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


End Sub




Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 quillet  Posté le 26/03/2008 à 21:40  
Petit astucien

96 Messages

Bonsoir,

Je suis désolé mais je n'y arrive vraiment pas.

Je joint le fichier. il est en cours d'élaboration donc succin pour l'instant

http://cjoint.com/?dAvBnnPVvD

Je voudrais que, lorsque l'on ajoute un nom dans la colonne B de la feuille Données, le tri des colonnes A,B,C dans l'ordre alpha des noms se fasse automatiquement lorsque, en ouvrant une autre feuille, on quitte la feuille Données.

Si un Astucien veut bien m'arranger celà, je luis en serai reconnaissant.

Merci

Afficher le profil de quilletEnvoyer un message privé à quillet
 Revenir en haut de la page
 ferrand  Posté le 26/03/2008 à 23:13  
Astucien

1600 Messages

Re,

Avec quelques petites modifs et sans entrer dans le détail de ton application ça m'a l'air de fonctionner (tri sur col. B en quittant la feuille Données) : http://cjoint.com/?dAxlmRG7re

A+

Afficher le profil de ferrandEnvoyer un message privé à ferrand
 Revenir en haut de la page
 Bérylion  Posté le 26/03/2008 à 23:17  
Astucien


2446 Messages

Salut

et comme ça ? : http://cjoint.com/?dAxuKRuqCy


[edit : j'arrive trop tard...]




Modifié par Bérylion le 26/03/2008 23:21
Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
 quillet  Posté le 27/03/2008 à 09:31  
Petit astucien

96 Messages

Bonjour,

La méthode Ferrand fonctionne parfaitement.

Remerciements à tous ceux qui m'ont apporté de l'aide et en particulier à Ferrand qui m'a une nouvelle fois dépanné et à qui je souhaite une bonne santé.

Afficher le profil de quilletEnvoyer un message privé à quillet
 Revenir en haut de la page
Haut de la page 
Inscrivez-vous !
- Posez vos questions

- Résolvez vos problèmes

- Aidez les autres

- Participez et créez vos discussions

- Dialoguez en privé avec d'autres membres

- Suivez vos sujets préférés

- Affichez les signatures des membres

TOUT EST GRATUIT !

Je crée mon compte



Vous avez besoin d'aide ?
Des centaines d'experts sont à votre disposition sur les forums PC Astuces pour vous aider gratuitement, 24h/24, 7j/7.

Les derniers sujets résolus !
 

 > Tous les forumsBureautique

 
Forum PC Astuces© 1997-2009 WebastucesAller en haut de la page