Erreur 1004 Sort of range pour un pareto
Bonjour,
Je me permets de poster ici car j ai un soucis pour une macro sensée m afficher un pareto de données précedemment rentrées dans un tableau. Lorsque j execute la macro je recois le mesage d erreur suivant : "erreur 1004" methode sort de la classe Range a échoué. N ayant pas de connaissances en visual basic, j ai eu beau faire des recherches je n ai pas pu trouver de solution. Voici le code :
Sub Makro1()
ActiveWindow.SmallScroll ToRight:=8
ActiveWindow.SmallScroll Down:=45
ActiveWindow.SmallScroll ToRight:=8
Range("AP57").Select
ActiveSheet.PivotTables("Pivot-Tabelle1").RefreshTable
Selection.Sort Order1:=xlAscending, Type:= _
xlSortLabels, OrderCustom:=1, Orientation _
:=xlTopToBottom
Range("AQ57").Select
Selection.Sort Key1:="Z57S43", Order1:=xlDescending, _
Type:=xlSortValues, OrderCustom:=1, Orientation _
:=xlTopToBottom
End Sub
Les lignes bloquantes sont signalées par
En vous remerciant d avance !
Bonjour Bmut
Dans ton code tu ne sélectionne qu'une cellule pour le tri
Je pense que ton problème est là
Range("AP57").SelectA+
Oui je m'en ètais rendu compte, mais peut importe la plage que je sélectionne je retombe toujours sur la même erreur. La personne ayant réalisé cette macro n 'etant plus dans le service, je ne sais pas trop ce qu elle a voulu faire...
Re,
Peux-tu nous joindre le fichier en supprimant les données confidentielles ?
A+
Voilà, il est zippé sinon il ne rentrait pas.
Re,
Je ne vois effectivement pas à quoi pouvait servir ce code, les cellules ne correspondent à rien
Je ne pourrais pas t'aider plus d'avantage,
A+
Merci pour ton aide en tout cas!