Macro : erreur d'excution 1004....

Le
luck82
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4854691
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" %
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
isabelle
Le #4854671
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




LSteph
Le #4854511
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




isabelle
Le #4854431
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






luck82
Le #4854381
Bien vu l'histoire du 0 en trop.
C'est bien ça.

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

Merci
LSteph
Le #4854231
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








Publicité
Poster une réponse
Anonyme