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

blord · 4 Avril 2013

Bonjour à tous,

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

Code:

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 · 4 Avril 2013

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

Bonsoir blord,

essaye

Code:

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

blord · 4 Avril 2013

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

Bonjour tototiti2008, le Forum,

Merci, ça fonctionne parfaitement....

Blord

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

blord

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

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

blord

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency