Discussion :

[titeelo]

Bonjour,

Mon problème est un peu particulier : j'ai une macro qui fonctionne très bien sur mon PC et d'autres mais sur certains PC tout fonctionne correctement jusqu'au moment où il faut trier des données.

Voilà le code qui pose problème sur les autres PC :

Code :

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

1
2
3
Selection.Sort Key1:=Range("U6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Comment puis-je remédier à ce problème ?

Merci de votre aide

[ouskel'n'or]

Quel est le pb ? Une erreur ? Laquelle ? Un tri de la ligne d'entête ? Si c'est ce dernier point, remplace Header:=xlGuess par xlYes ou xlno, il arrive qu'Excel interprète mal l'existence ou non d'une entête.

[dadavyvy]

Je suppose que les versions d'Excel sont différentes d'un PC à l'autre...
Dans Excel 2000, DataOption1 est inconnu comme paramètre pour la méthode Sort...

[ouskel'n'or]

Tu as sans doute (encore et toujours) raison, dadavyvy... N'existe pas sur VBA97.
Par contre comme ce paramètre est xlSortNormal par défaut, il peut être supprimé

[titeelo]

Merci de vos réponse, c'était bien un problème de version (entre une 2003 et une 2000). En retirant Dataoption, ça fonctionne très bien.

Mais maintenant il y a un autre problème : c'est le code juste après qui ne veut plus fonctionner. Le voici, il sagit de coller sur une autre page ce que je viens de trier.

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Alors que juste avant un code quasi identique fonctionne très bien :

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Vous savez ce qui pose problème ?

Coment peut on savoir les différences entre VBA 2000 et VBA 2003 ?

Merci d'avance

[dadavyvy]

Dans XL2000, pour l'argument Paste de PasteSpecial :

Code :

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

1
2
3
4
5
6
xlPasteAll
xlPasteAllExceptBorders
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteValues

Et rien d'autre... Il faut donc le faire en 2 fois...

Pour connaitre les differences? je ne sais pas, j'ai que XL2000

[titeelo]

Merci de ton aide dadavyvy. J'ai retiré le "number format" et ça marche nickel!!