VBA fait sur XL 2003 pour 2000

JC de Lorient · 19/04/2006, 19h29

Rebonsoir le forum

j'ai créé un fichier pour une collègue de boulot
il fonctionne bien sur 2003 par contre il bug sur 2000
dans le fichier joint
par le Userform et par un double click sur le Combobox Agent on peut rajouter un nom qui n'existe pas dans la liste et ensuite un tri se fait
tout fonctionne bien sur 2003 mais pas 2000
donc si quelqu'un avait la gentillesse de me modifier mon code afin qu'il fonctionne sur 2000
A priori ça plante içi :
DataOption1:=xlSortNormal

merci a vous

JC de Lorient · 19/04/2006, 19h30

oups le fichier !!! [file name=Forum_20060419183009.zip size=13770]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Forum_20060419183009.zip[/file]

CBernardT · 19/04/2006, 20h00

Bonjour JC de Lorient,

Essayes de remplacer le code :

Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
par :

Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Cordialement

Bernard

JC de Lorient · 19/04/2006, 20h51

Bonsoir CBernard

je modifie le code et je l'essaye dès que possible
merci bcp

19/04/2006, 19h29	#1 (permalink)
JC de Lorient XLDnaute Impliqué Date d'inscription: janvier 2006 Localisation: La ville du festival interceltique Version Excel : Excel 2003 (PC) Messages: 554	VBA fait sur XL 2003 pour 2000 Rebonsoir le forum j'ai créé un fichier pour une collègue de boulot il fonctionne bien sur 2003 par contre il bug sur 2000 dans le fichier joint par le Userform et par un double click sur le Combobox Agent on peut rajouter un nom qui n'existe pas dans la liste et ensuite un tri se fait tout fonctionne bien sur 2003 mais pas 2000 donc si quelqu'un avait la gentillesse de me modifier mon code afin qu'il fonctionne sur 2000 A priori ça plante içi : DataOption1:=xlSortNormal merci a vous __________________ Kénavo

19/04/2006, 20h00	#3 (permalink)
CBernardT XLDnaute Accro Date d'inscription: février 2005 Messages: 1 222	Re:VBA fait sur XL 2003 pour 2000 Bonjour JC de Lorient, Essayes de remplacer le code : Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal par : Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Cordialement Bernard

19/04/2006, 20h51	#4 (permalink)
JC de Lorient XLDnaute Impliqué Date d'inscription: janvier 2006 Localisation: La ville du festival interceltique Version Excel : Excel 2003 (PC) Messages: 554	Re:VBA fait sur XL 2003 pour 2000 Bonsoir CBernard je modifie le code et je l'essaye dès que possible merci bcp __________________ Kénavo

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email