XL 2013 Executer une macro sur une feuille en la quittant

[dna]

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 ?

 

[Pierrot93]

Re : Executer une macro sur une feuille en la quittant

Bonjour,

enlève le "select" :

Private Sub Worksheet_Deactivate()
Selection.AutoFilter

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

bonne journée
@+

 

[dna]

Re : Executer une macro sur une feuille en la quittant

Merci ça marche Trop fort !

 

[dna]

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.

 

[Pierrot93]

Re : Executer une macro sur une feuille en la quittant

Re,

essaye ceci, non testé...

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

 

[dna]

Re : Executer une macro sur une feuille en la quittant

Merci Pierrot je vais essayer