Erreur 1004

Signaler
-
Messages postés
16474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 août 2021
-
Bonjour,
Cette macro ne fonctionne plus j'aurais besoin d'aide merci.
Sub FiltreSynthesePlanactions()
'
' FiltreSynthesePlanactions Macro
'

'
Sheets("Suivi des actions").Range("A50:Q50").Select
ActiveSheet.Range("$A$50:$Q$1202").AutoFilter Field:=23, Criteria1:="1"
ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort.SortFields.Add _
Key:=Range("K4:K1202"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Configuration: Android / Chrome 88.0.4324.181

1 réponse

Messages postés
16474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 août 2021
883
bonjour,
tu peux faire trois choses:
- utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
- expliquer ce qui a changé, puisque cela fonctionnait avant
- nous donner le message d'erreur complet, ainsi que le numéro de la ligne où il se produit