Problème avec macro de tri

[Claudy]

Bonjour ,
ci dessous un macro de tri:



Sub TriChrono()
'
' TriChrono Macro
'21/03/2015
'

'
Range("B15:d38").Select

ActiveSheet.Sort.SortFields.Add Key:=Range("C15:C38") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("B15:d38")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("C15").Select
End Sub


Depuis que j'ai installé cette macro,
aprés utilisation de cette macro, à la réouverture de mon fichier, j'ai un message d'erreur voir pièce jointe.
Votre avis svp?
Merci d'avance,
Claudy

 

[Iznogood1]

Re : Problème avec macro de tri

Envoie le fichier en pièce jointe qu'on puisse jeter un coup d'oeuil

 

[Claudy]

Re : Problème avec macro de tri

Envoie le fichier en pièce jointe qu'on puisse jeter un coup d'oeuil

désolé,
mais fichier trop gros et confidentiel!
Merci a+

 

[Claudy]

Re : Problème avec macro de tri

Voilà: je pense avoir résolu problème de la sorte:
Sub Macro1()
'

With ActiveSheet.Sort
.SetRange Range("B14:E38")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Bonne soirée,
a+
Claudy