Discussion :

[JMPS.VBA]

Bonjour,

Je suis très ennuyé. J'utilise XL2007, alors que mon employeur utilise XL2003.

Ce code fonctionne très bien sous 2007. Mais pas du tout sous 2003.
Code issu de mon amie Enregistrement Macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Range("AA100").Select
ActiveWorkbook.Worksheets("Datas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Datas").Sort.SortFields.Add Key:=Range("AA100"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
 
With ActiveWorkbook.Worksheets("Datas").Sort
    .SetRange Range("A101:" & Cells(100 + NBLines, NBColumns).Address)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .Apply
End With

Qu'est ce qui cloche sous 2003 ? serait-ce SortFields ?
Avez-vous une solution à la fois pour XL2003 et XL2007 ?

Merci par avance.

________________________

NB la création du filtre automatique est faite dans un autre module avec le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Création du filtre
Range("$A$100:" & Cells(100, NBColumns).Address).Select
Selection.AutoFilter

[ESVBA]

J'ai le même problème...

Le code utilise de nouvelles instructions en 2007 qui ne sont pas reconnues avec les versions antérieures. J'ai même essayé le module de compatibilité qui en réalité ne fait que lire le nouveau format de fichier sans ré-interpréter les modules de code.

Ma solution est d'enregistrer la macro en utilisant la version 2003. Elle fonctionnera correctement avec 2007.

Mais si quelqu'un a une solution...
Je suis preneur.

[diude54]

Bonjour,

J'ai une macro qui trie un tableau et qui fonctionne sous excel 2003:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set maplage = ActiveSheet.Range(Cells(3, 1), Cells(nligne, 12))
maplage.Select
With Selection
    .Sort key1:=ActiveSheet.Range("A2"), order1:=xlAscending, key2:=ActiveSheet.Range("B2"), order2:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns
End With

Key1 est la 1ère colonnes sur laquelle le trie s'effectue,order1 est le type tri Key2 la deuxième, order2 est le type de tri, header = (xlno, xlyes ou xlguess) le plus simple est de mettre xlno et de selectionner le tableau sans les en têtes, orientation: xlsortcolumns ou xlsortrows, en colonne ou en ligne

Si c'est pour un filtre c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="N° Affaire"

Ici j'ai selectionné tout mon tableau, j'active le filtre et ensuite je filtre la colonne 8 et je cherche les case contenant "N° Affaire"

[JMPS.VBA]

MERCI,

La différence, c'est .Sort ou .Range.