Macro vba de tri sort
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,
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
-
ContributeurBonjour,
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. -
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"
