Erreur d'execution 1004 Résolu/Fermé

Question

Bonjour à tous,

J’ai développé un classeur, avec Excel 2002, dans lequel il y a plusieurs feuilles. Une seule de ces feuilles est visible à la fois. Pour passer d’une feuille à l’autre j’ai implanté des boutons auxquels j’ai associé des macros.
Cela fonction parfaitement bien sur mon PC et sur d’autres fonctionnant avec Excel 2007.
Par contre sur un PC équipé d’Excel 97 quand depuis la feuille « Bordereau » je clic sur le bouton de retour j’ai le message « Erreur d’exécution 1004. Erreur définie par l'application ou par l'objet » et je ne comprends pas pourquoi. Ci-dessous la macro liée à ce bouton.

'Trie du bordereaux dans l'ordre des N°.
            ActiveSheet.Unprotect ("xxxxxx")  'Enlève la protection de la feuille.
            Range("D28:G107").Select             'Zone de la feuille à trier.
            Selection.Sort Key1:=Range("D28"), Order1:=xlAscending, Header:=xlNo, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
            ActiveSheet.Protect ("xxxxxx")    'Remet la protection.
            Range("D28").Select                  ' Retour en D28.
'Retour au menu.
            Sheets("Menu").Visible = True       ' Affiche la feuille menu.
            Sheets("Bordereau").Select
            ActiveWindow.SelectedSheets.Visible = False

Quelqu’un peut-il m’aider ?
D’avance merci
Mistral

Le Pingou · Answer

Bonjour,
Pouvez-vous préciser sur quelle ligne de code l'erreur se produit (est color en jaune !).

Mistral_13200 · Answer

Merci pour cette réponse,
Dès que j'aurais l'info je la communiquerais.
Je viens d'envoyer une version de mon classeur, sans PW sur VBA, et en demandant de communiquer
la ligne au se produit l'erreur.
Je vous tiens au courant.
Mistral

Le Pingou · Answer

Bonjour,
Je suppose que l'erreur se produit sur cette patie du code :
Selection.Sort Key1:=Range("D28"), Order1:=xlAscending, Header:=xlNo, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 
Dans se cas il s'agit de l'instruction "DataOption1:=xlSortNormal " qui n'est pas disponible en version 97; vous pouvez la supprimer sans problème.

Mistral_13200 · Answer

Tout d'abord merci de vous interesser a mon problème.

J'ai modifié en tenant compte de votre remarque. J'attends le résultats de la part de la personne qui a ce problème vu que moi je n'ai pas cette version d'Excel.
Par contre je me demande a quoi peut servir cette instruction "DataOption1:=xlSortNormal " puisque même en l'ayant supprimée chez moi, tout continue à fonctionner normalement.
Pouvez-vous m'éclairer sur le sujet?
D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les version précédentes. Un fabricant n'a-t-il pas une obligation?

Dans tous les cas merci pour votre aide.
Cordialement.
Mistral

Le Pingou · Answer

Bonjour Mistral_13200,
Concernant : "DataOption1:=xlSortNormal " ---> Indique comment trier le texte de la plage spécifiée dans Key1 ; ne s'applique pas au tri des tableaux croisés dynamiques.
Pour xlSortNormal : Trie les données numériques et textuelles séparément.
Pour xlSortTextAsNumbers : Traite le texte comme des données numériques pour le tri.

Concernant : D'autre part, comment cela se fait-il que Microsoft n'assure pas la compatibilité d'une version avec les versions précédentes.
Attention ce paramètre a été introduit après la version 97 voir 2000, s’il se trouve dans le code il ne peut pas être reconnu par la version 97 se qui est correct (il ne s’agit pas de la version précédente dans se cas).

Erreur d'execution 1004

5 réponses

Discussions similaires