Macro : erreur d'excution 1004....

Essaie ceci :

Assure toi que la bonne feuille est active !

J'ESPÈRE QUE TU AS EXCEL 2007 CAR TU FAIS
UN TRI SUR 100 000 LIGNES . EXCEL 2003 N'EN N'ONT
QUE 65 536 LIGNES.

'--------------------------------
Sub Tritble()
Dim Sh As Worksheet
Set Sh = ActiveSheet
With Sh
With .Range("A3:AS100000")
.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Sh.Range("A3") _
, Order2:=xlAscending, Key3:=Sh.Range("C3"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
End With
End With

End Sub
'--------------------------------



"luck82" <tempo-lyon@voila.fr> a écrit dans le message de news:
%23e2tvdsAIHA.1164@TK2MSFTNGP02.phx.gbl...
Bonsoir;
J'ai un problème d'execution qu'une macro assez simple.
erreur d'excution 1004 sur la macro suivante:

Sub Tritble()
ActiveSheet.Select
Range("A3:AS100000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Cette macro est appaelé par une userforme (dont je ne pense pas utile de
joindre le code); userforme qui marche très bien d'ailleurs sans la sub
trible() en module 1.
La selection A3:AS10000 ne contient aucunes cellules fusionnées seulement
une mise en forme conditionnelle sur les colonne A et B
Avez vous une idée d'un problème sur le code.

Merci par avance.

bonne soirée

bonjour Luck,

essaie comme ça,

Sub Tritble()
Sheets("NomDeLaFeuille").Range("A3:AS100000").Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

isabelle

Bonsoir;
J'ai un problème d'execution qu'une macro assez simple.
erreur d'excution 1004 sur la macro suivante:

Sub Tritble()
ActiveSheet.Select
Range("A3:AS100000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Cette macro est appaelé par une userforme (dont je ne pense pas utile de
joindre le code); userforme qui marche très bien d'ailleurs sans la sub
trible() en module 1.
La selection A3:AS10000 ne contient aucunes cellules fusionnées seulement
une mise en forme conditionnelle sur les colonne A et B
Avez vous une idée d'un problème sur le code.

Merci par avance.

bonne soirée

Bonsoir Luck,

S'il s'agit come tu dis de

La selection A3:AS10000

il doit y avoir un zéro de trop ici:

Range("A3:AS100000").Select

Essaie de même sans select

Activesheet.[a3:as10000].sort Key1:=Range("B3") .....

--
lSteph

Bonsoir;
J'ai un problème d'execution qu'une macro assez simple.
erreur d'excution 1004 sur la macro suivante:

Sub Tritble()
ActiveSheet.Select
Range("A3:AS100000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Cette macro est appaelé par une userforme (dont je ne pense pas utile de
joindre le code); userforme qui marche très bien d'ailleurs sans la sub
trible() en module 1.
La selection A3:AS10000 ne contient aucunes cellules fusionnées seulement
une mise en forme conditionnelle sur les colonne A et B
Avez vous une idée d'un problème sur le code.

Merci par avance.

bonne soirée

bien vu stef,

bisou
isabelle

Bonsoir Luck,

S'il s'agit come tu dis de

La selection A3:AS10000

il doit y avoir un zéro de trop ici:

Range("A3:AS100000").Select

Essaie de même sans select

Activesheet.[a3:as10000].sort Key1:=Range("B3") .....

--
lSteph

Bonsoir;
J'ai un problème d'execution qu'une macro assez simple.
erreur d'excution 1004 sur la macro suivante:

Sub Tritble()
ActiveSheet.Select
Range("A3:AS100000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending,
Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Cette macro est appaelé par une userforme (dont je ne pense pas utile de
joindre le code); userforme qui marche très bien d'ailleurs sans la sub
trible() en module 1.
La selection A3:AS10000 ne contient aucunes cellules fusionnées seulement
une mise en forme conditionnelle sur les colonne A et B
Avez vous une idée d'un problème sur le code.

Merci par avance.

bonne soirée

Bien vu l'histoire du 0 en trop.
C'est bien ça.

Honte à moi pour ne pas l'avoir remarqué.

Merci

Bonjour Isabelle,

Merci mais..
..pourtant MichDenis avait relevé ce point , en ce moment il y a pas mal
de messages qui se voient chez l'un et pas chez l'autre, alors
voyant que cela n'avait suscité aucune réaction positive ou négative...

bizzz

--
LSteph

bien vu stef,

bisou
isabelle

Bonsoir Luck,

S'il s'agit come tu dis de

La selection A3:AS10000

il doit y avoir un zéro de trop ici:

Range("A3:AS100000").Select

Essaie de même sans select

Activesheet.[a3:as10000].sort Key1:=Range("B3") .....

--
lSteph

Bonsoir;
J'ai un problème d'execution qu'une macro assez simple.
erreur d'excution 1004 sur la macro suivante:

Sub Tritble()
ActiveSheet.Select
Range("A3:AS100000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending,
Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending,
Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Cette macro est appaelé par une userforme (dont je ne pense pas utile de
joindre le code); userforme qui marche très bien d'ailleurs sans la sub
trible() en module 1.
La selection A3:AS10000 ne contient aucunes cellules fusionnées
seulement
une mise en forme conditionnelle sur les colonne A et B
Avez vous une idée d'un problème sur le code.

Merci par avance.

bonne soirée