Création macro par excel quine fonctionne pas

[kiki51]

Bonjour à tous
Apres quelques pages de recherche sur ce forum et d utilisation massive de recherches google, Je m'adresse à vous
Sur Excel 2007, je fais une macro par le mode "enregistrer une macro" qui donne ceci:

Sub TriNom()
' TriNom Macro
'
Cells.Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("Q2:Q5000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("K2:K5000" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:R5000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Quand je souhaite la lancer sur une liste, elle plante et me stabylote la 2eme ligne
Pour info la macro fait un tri croissnat sur la colonne Q puis un tri decroissant sur la colonne K

Merci à vous pour votre aide
Et bravo pour cette somme de connaissances que vous transmettez au travers de ce forum
Kiki

 

[kiki51]

Re : Création macro par excel quine fonctionne pas

Et pour info complementaire, mes connaissances sont limitées
Je débute dans les macros mais je suis (tres) loin de pouvoir en ecrire une seul.

 

[gfortin9]

Re : Création macro par excel quine fonctionne pas

Allô!

Cette macro fonctionne bien.
C'est peut-être quelque chose dans ta feuille qui bloque
Une amélioration très mineure, sélectionner une cellule pour annuler la sélection de la feuille au complet

Sub TriNom()
' TriNom Macro
'
Cells.Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
Cells(1 , 1).Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("Q2:Q5000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("K2:K5000" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:R5000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

GF

 

[kiki51]

Re : Création macro par excel quine fonctionne pas

Snif
Ca ne marche toujours pas
Merci de votre aide, j'ai integre la ligne comme prévu mais la macro s'arrete et me propose le debogage...
Est ce que le code erreur peut servir ?
-2147319765 (8002802b)
erreur automation
element introuvable

 

[kiki51]

Re : Création macro par excel quine fonctionne pas

Bon, quelques infos la chose a ete reproduite sur differents pc avec un excel 2003? et 2007
Un tri croissant sur une Colonne Q et decroissant sur la colonne K
Un enregistrement de macro à chaque fois
Impossile à reproduire sans erreur avec le debogage qui marque toujours la meme ligne
???

 

[tototiti2008]

Re : Création macro par excel quine fonctionne pas

Bonjour kiki, bonjour gfortin9,

Bon, quelques infos la chose a ete reproduite sur differents pc avec un excel 2003? et 2007
Un tri croissant sur une Colonne Q et decroissant sur la colonne K
Un enregistrement de macro à chaque fois
Impossile à reproduire sans erreur avec le debogage qui marque toujours la meme ligne

En tout cas il m'étonnerais que le code soit identique en 2003 et en 2007
rien que la ligne

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

ne doit pas marcher en 2003, je pense
Donc c'est peut-être un problème de version
Essaye d'enregistrer sur 2003, mets-nous le code généré et essaye d’exécuter ce nouveau code

 

[gfortin9]

Re : Création macro par excel quine fonctionne pas

Allô!

Aurais-tu un fichier anondin, qui donne l'erreur, à nous soumettre?

gf

 

[kiki51]

Re : Création macro par excel quine fonctionne pas

Bonjour
Comment envoyer un fichier excel nedepassant pas 300ko?
Le mien faisant une vingtaine de lignes fait 1.6mo
Ils'agit d'une extraction d'un intranet importer dans un fichier excel prenant en compte les macros.
Il est vrai que la navigation dans ce fichier est tres ralentie mais ej en voispas comment l'alleger plus.
Merci à vous

 

[kiki51]

Re : Création macro par excel quine fonctionne pas

Bonjour à tous
Je pense avoir trouvé, les réponses apportées sur ce forum m'ont aiguillé.
Ma conclusion est que:
Le fichier vient d'un extranet qui propose un export vers excel
Mon excel est un 2007
Fichier (enregistré sous) en 2007
Macro créé en mode enregistrement en 2007
MAIS
Mon fichier est certainement tiré d'une version (ou transformé) en version 2003 et meme si enregistré en 2007, il reste un 2003 au niveau du langage macro du CLASSEUR. En gros, meme enregistré en 2007 il ne comprend pas son language.
Pour verifier, je l'ai copié et collé en spécial valeur sur un classeur vierge et tout fonctionne...

Bizzare mais réel

Merci à vous.