Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Executer une macro sur une feuille en la quittant

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dna
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dna

XLDnaute Nouveau
Bonjour,

Je n'arrive pas à exécuter cette macro :

Private Sub Worksheet_Deactivate()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter

ActiveWorkbook.Worksheets("FICHE").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FICHE").AutoFilter.Sort.SortFields.Add Key:=Range( _
"E1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("FICHE").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

J'ai cette erreur :

'1004' Err definie par l'application ou par l'objet = le debug s'arrête sur la 1er ligne...

Pouvez-vous m'aider ?
 
Trier par date Trier par votes
Re : Executer une macro sur une feuille en la quittant

Bonjour,

enlève le "select" :
Code: 
Private Sub Worksheet_Deactivate()
Selection.AutoFilter

ActiveWorkbook.Worksheets("FICHE").AutoFilter.Sort .SortFields.Clear

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Executer une macro sur une feuille en la quittant

Si je peux abuser encore...

Cette fois-ci, toujours en quittant l'onglet, j'ai mis cette macro mais je ne peux plus sortir de l'onglet.. aïe

Sheets("Emploi").Select
Cells.Select
Selection.NumberFormat = "@"
Columns("E:G").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("G:G").Select
Selection.Replace What:="", Replacement:=402498, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveWorkbook.Worksheets("Emploi").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Emploi").AutoFilter.Sort.SortFields.Add Key:=Range _
("G1:G855"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Emploi").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


Je ne vois pas comment faire sans faire de select.
 
Vote positif 0 Vote négatif
Re : Executer une macro sur une feuille en la quittant

Re,

essaye ceci, non testé...
Code: 
With Sheets("Emploi")
    .Cells.NumberFormat = "@"
    .Columns("E:G").NumberFormat = "m/d/yyyy"
    .Columns("G:G").Replace What:="", Replacement:=402498, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End With
With ActiveWorkbook.Worksheets("Emploi").AutoFilter.Sort
    .SortFields.Clear
    .SortFields.Add Key:=.Range _
    ("G1:G855"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
502
Dranreb
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
579
kiki29
C
  • Question Question
XL 2013 Macro décale d'une colonne
Réponses
1
Affichages
581
candido57
C
J
  • Question Question
XL 2019 Trier efficacement un tableau
Réponses
3
Affichages
518
JMP56
J
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
550
Usine à gaz
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
838
Staple1600
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
713
Averell1976
A
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
B
  • Question Question
XL pour MAC Problème macro tri
Réponses
2
Affichages
715
Benjy51190
B
G
  • Question Question
Microsoft 365 tri automatique dates
Réponses
6
Affichages
1 K
GUERET
G
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
948
MickaeL_D
M
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
R
  • Question Question
XL 2016 Barre de progression
Réponses
1
Affichages
858
sylvanu
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
  • Résolu(e)
Microsoft 365 Modifier une liste sur deux onglets
Réponses
11
Affichages
1 K
Roseline
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
T
  • Question Question
XL 2016 Trier un tableau
Réponses
1
Affichages
2 K
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…