[Macro VB sous Excel] Prb de tri de colonne

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Macro VB sous Excel] Prb de tri de colonne

Millenius

A la fin d'une macro, j'ai çà :

Code :

Sheets(3).Range("A:I" ).Sort Key1:=Range("D1" ), Order1:=xlAscending, Key2:=Range("F1" ) _
, Order2:=xlAscending, Key3:=Range("G1" ), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

et ca m'affiche :

Code :

Référence de tri non valide. Vérifiez qu'elle se trouve bien parmi les données à trier et que la zone Trier par n'est pas identique ou vide.

alors que ca marche en macro simple (créé automatiquement en Nouvelle macro...)

Merci de votre aide, je sêche !

Publicité

seniorpapou

Bonsoir,
Il existe ton sheets(3)?
si oui rajoutes devant sheets(3).select
cordialement

Message édité par seniorpapou le 01-09-2006 à 15:35:52

Millenius

bien sur qu'il existe
et j'ai essayé en decoupant la macro
en faisant Sheets(3).select
ou Sheets(3).Range("A1:H500" ).select
Selection.sort ..

ca marche tjrs pas, meme erreur

seniorpapou

Re,
et si le select te gène , écris ton tri ainsi
Sheets(3).Range("A:I" ).Sort Key1:=Sheets(3).Range("D1" ), Order1:=xlAscending, Key2:=Sheets(3).Range("F1" ) _
, Order2:=xlAscending, Key3:=Sheets(3).Range("G1" ), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

Millenius

c'est EXACTEMENT ce que j'ai marqué dans le post #1 non ?
et ca marche pas...

Message cité 1 fois

galopin01

bonsoir,
Sheets(3) doit être active.
A+

seniorpapou

Millenius a écrit :

c'est EXACTEMENT ce que j'ai marqué dans le post #1 non ?
et ca marche pas...

tu n'as pas bien regardé:

Sheets(3).Range("A:I" ).Sort Key1:=Sheets(3).Range("D1" ), Order1:=xlAscending, Key2:=Sheets(3).Range("F1" ) _
, Order2:=xlAscending, Key3:=Sheets(3).Range("G1" ), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

ainsi, la feuille n'a pas besoin d'être active
Cordialement

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Macro VB sous Excel] Prb de tri de colonne

Sujets relatifs
[Résolu] Macro supprimer une colonne	[resolu][C# => Excel] : tableau à partir d'une appli windows en C#
[RESOLU] Excel --> powerpoint	Faire clignoter une cellule sur Excel avec VBA et lien hypertexte
Tri sous Excel avec répartition des données dans des feuilles	Lancement Macro avec/sans VB editor
[Excel - VBA] Déclencher un son quand un seuil est atteint	[asp.net 2.0] éditer colonne d'une gridview
Vider le presse-papier avec vba sous excel 2003
Plus de sujets relatifs à : [Macro VB sous Excel] Prb de tri de colonne

Page générée en 0.045 secondes