Erreur 1004

Bonjour,

Je veut faire un trie sur la colonne A, je met ce code et j'ai l'erreur 1004 qui n'explique rien :

Columns("A:A").Select

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Je lance ce code depuis un bouton d'un autre onglet, j'ai pris ce code en faisant Macro/Nouvelle macro, j'ai fait le trie puis j'ai collé le code dans le bouton, cela devrait fonctionner. Je ne comprend pas cette érreur 1004 que j'ai très souvent, autre chose un peu avant dans le code de ce bouton, j'ai la même erreur (1004) pour ce code :

Sheets("Feuille pour macro").Range("A1").Select

que j'ai du transformer en :

Sheets("Feuille pour macro").Select

Sheets("Feuille pour macro").Range("A1").Select

pour que cela fonctionne, ou est la logique ????

Salut Ragus,

Voir ici pour mieux comprendre ton problème

Souri84

merci, mais mon code ne fait pas tant de lignes, le voici en totalité, je veut juste prendre une colonne, la coller dans un autre onglet et le trier, c'est tout, voici le code et en gras là ou ça coince :

' Collage de la colonne

Columns("B:B").Select

Selection.Copy

Sheets("Feuille pour macro").Select

Sheets("Feuille pour macro").Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

' Tri de cette colonne

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Chez moi, ça fonctionne impec !

edit2: sauf que je mettrai

Selection.Sort Key1:=Range("A1")

à la place de

Selection.Sort Key1:=Range("A2")

edit3: est-ce que tu as appliqué un filtre sur ta première colonne ?

ça te met quoi comme erreur à part 1004 ? il n'y a pas une phrase d'explication ?

Merci, en fait j'ai trouvé grace a un collègue, j'avais mis PRIVATE SUB a priori, cela pose des pbs pour passer d'un onglet a l'autre, j'ai donc remplacé cela :

Private sub cmdGO_Click()

par

Sub cmdGO_Click()

ça ne fonctionnait pas non plus pour le tri, il a fallu que (malgré qu'a ce moment j'y soit déja) réindiqué sur quel onglet je travaille :

Selection.Sort Key1:=Sheets("Feuille pour macro").Range("A2"), Order1:=xlDescending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Le code donne donc :

Sub cmdGO_Click()

' Collage de la colonne des entités

Columns("B:B").Select

Selection.Copy

Sheets("Feuille pour macro").Select

Sheets("Feuille pour macro").Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

' Tri de cette colonne

Sheets("Feuille pour macro").Select

Sheets("Feuille pour macro").Columns("A:A").Select

Selection.Sort Key1:=Sheets("Procedure").Range("A2"), Order1:=xlDescending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Il y a des subtilitées que j'ai du mal a saisir dans le VBA, merci a tous pour l'aide

[/b]