VBA fait sur XL 2003 pour 2000

[JC de Lorient]

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]

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]

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]

Bonsoir CBernard

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