Probee Maco Tri Alphabetique

[MAZETTE]

Bonjour à tous et à toutes,

Je fais appel encore à vos lumières pour un hic!!! sur cette macro.

Sub Macro1()
'
'
Sheets("ANALYSE PC").Select
Selection.Copy
Sheets("Feuil4").Select
Range("F5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("G5"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Il s'agir d'un macro qui va chercher des données sur la feuille" ANALYSE PC3", copie les données sur "Feuil4" et jusque là tout va bien...

Mais je souhaiteria effectuer un trie par ordre alphabétique mais elle bloque au niveau de:

Selection.Sort Key1:=Range("G5"),

Je suis bien sur passer pour m'aider à créer la acro par "DONNEE" et "TRIER" mais ...oups ça bloque..


Où se trouve d'après vous mon erreur,?

Mazette,la mazette sous Excel

 

[Spitnolan08]

Re : Probee Maco Tri Alphabetique

Bonjour,

Tu recopies en F5 et tu tries sur G5... Donc change G5 en F5 et ça devrait fonctionner.

Cordialement

 

[pierrejean]

Re : Probee Maco Tri Alphabetique

bonjour MAZETTE
Salut Spitnolan08

pour ma part ,je pense que la selection est trop vaste (Feuiile4)

j'essaierais

Activesheet.Usedrange.Sort Key1.........

 

[MAZETTE]

Re : Probee Maco Tri Alphabetique

Salut Pierre-jean,

J'ai essayé ta méthode ...ça marche ur le principe mais il me créer un nouveau classeur ???

Bizarre non ?


Mazette la mazette sous Excel

 

[Spitnolan08]

Re : Probee Maco Tri Alphabetique

Bonjour Pierrejean🙂

J'ai du manger du camembert ce midi...😉

Cordialement

 

[MAZETTE]

Re : Probee Maco Tri Alphabetique

Bonjour Spitnolan08,

Excuse moi je t'ai un peu beaucoup oublié...mille pardon

Mais ta soluce nemarche pas, je crois qu'en fait ma sélection doit être trop grande comme dit PierreJean

Mazette, la mazette sous Excel

 

[pierrejean]

Re : Probee Maco Tri Alphabetique

re

apres un petit tour sur l'aide il semble possible d'avoir:

Sheets("Feuil4").Range("F5").Sort Key1:=Sheets("Feuil4").Columns("F"), .......

teste et dis nous

 

[MAZETTE]

Re : Probee Maco Tri Alphabetique

Re Pierrejean,

Après de nombreux test,je me retrouve toujurs avec le même problème...

La macro copie une feuille " DONNEE" de mon fichier vers un nouveau classeur

Que faire ?

Mazette, la mazette sous Excel

 

[pierrejean]

Re : Probee Maco Tri Alphabetique

bonjour MAZETTE

une macro qui fonctionne chez moi:

Sub Macro1()
Sheets("Feuil1").UsedRange.Copy
Sheets("Feuil4").Select
Range("F5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil4").Range("F5").Sort Key1:=Sheets("Feuil4").Columns("G"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[MAZETTE]

Re : Probee Maco Tri Alphabetique

Bonjour Pierrejean,

Je dois êtreun peu idiot car chez moi le copie coller fonctionne mais pa le tri...

Je t'envoie un bout de fichier pour voir ce qu' en est...

Merc à toi

 

[pierrejean]

Re : Probee Maco Tri Alphabetique

re

De l'utilité d'un fichier exemple !!!

Vois si cela te convient
il est necessaire d'avoir l'en-tete "Nom du produit" en colonne G

 

[MAZETTE]

Re : Probee Maco Tri Alphabetique

Re

Merci à toi , ça marche ....

A bientôt

Mazette, la mazette sous Excel