Utilisation de rows.count dans : DerLig = [A65000].End(xlUp).Row

[blord]

Bonjour à tous,

J'utilise régulièrement le code suivant dans mes fichiers :

Dim DerLig As Long
DerLig = [A65000].End(xlUp).Row
Range("AM2").AutoFill Destination:=Range("AM2:AM" & DerLig), Type:=xlFillDefault

Comme plusieurs fichiers peuvent être utilisés également avec Excel 2003 - 2007 ou 2010 j'aimerais remplacer la ligne :
DerLig = [A65000].End(xlUp).Row

par quelque chose comme :
DerLig = [A & Worksheets("temp3").Rows.Count].End(xlUp).Row

mais j'obtient une erreur "Range de l'objet global...." sur la ligne ???

Comment pourrais-t-on écrire cette ligne afin qu'elle tienne compte de la dernière ligne de la feuille et ce peu importe la version d'Excel utilisée ?

Merci pour vos conseils...

Blord

 

[tototiti2008]

Re : Utilisation de rows.count dans : DerLig = [A65000].End(xlUp).Row

Bonsoir blord,

essaye

With Worksheets("temp3")
DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
end with

 

[blord]

Re : Utilisation de rows.count dans : DerLig = [A65000].End(xlUp).Row

Bonjour tototiti2008, le Forum,

Merci, ça fonctionne parfaitement....

Blord