Macro vba de tri sort

pgrandel -  
chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un pb concernant un tri en vba sur excel: la macro ci dessous fonctionne sur plusieurs ordinateurs, de config similaire ou différente :
- office 2007 + windows 7/64 bit,
- office 2010+ windows xp/32 bit,
- office 2007+ windows xp/32 bit
Mais sur le mien (office 2007 + windows 7/64 bit), la macro ne fonctionne pas.

Savez-vous pourquoi?

Sheets("CORRELSATIS").Select
CorsatisDL = ActiveSheet.UsedRange.Rows.Count

Sheets("CORRELSATIS").Cells.Select

With ActiveWorkbook.Worksheets("CORRELSATIS").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B2:B" & CorsatisDL & ""), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
.SetRange Range("A1:B" & CorsatisDL & "")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Merci d'avance pour votre réponse,

2 réponses

chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 312
 
Bonjour,

la macro ne fonctionne pas : pas très explicite.

La macro ne se lance pas ? La macro plante ?

Si elle plante, quel est le message d'erreur renvoyé ?

Cordialement.
0
pgrandel
 
ah oui dsl, c'est lundi matin...
La macro bloque sur .apply avec le message "erreur d'execution 1004. Erreur définie par l'application ou l'objet"
0
chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 312
 
Hum bizarre, je ne comprends par pourquoi il bloque sur cette partie de code.

Je cherche un peu de mon côté, mais ça me paraît bizarre.

Cordialement.
0