[VBA] Comment sélectionner une base de donnée dynamiquement, sans les entêtes?

Bonsoir
Juste un test avant l'aspirine:
derL = [A65536].End(3).Row
Set Plg=range("A2:A" &derL)

Il y a aussi:
Range("A2:A" & .Range("E65536").End(xlUp).Row)

Iznogoud goto aspirine.

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Emile63" a écrit dans le message de groupe de discussion :
2b61731c-4eca-488e-9a76-a1d624a32dd2@googlegroups.com...

Bonjour à tous,

Tout est dans le titre.
Je brode sans succès autour de ce bout de code, mais c'est plutôt vers
l'aspirine que je me dirige.. :(

Set Plg = .Range(.Cells(2, 1), .Cells(.Rows.Count.End(xlUp)),
.End(xlToLeft))

Merci d'avance pour votre aide,
Emile


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Bonjour Emile63,

Essaye commme ceci
'----------------
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
Set Plg = .Range(.Cells(2, 1), .Cells(DerLig, DerCol))
'--------------
--
Salutations
JJ

Emile63 a exposé le 24/11/2015 :

Bonjour à tous,

Tout est dans le titre.
Je brode sans succès autour de ce bout de code, mais c'est plutôt vers
l'aspirine que je me dirige.. :(

Set Plg = .Range(.Cells(2, 1), .Cells(.Rows.Count.End(xlUp)), .End(xlToLeft))

Merci d'avance pour votre aide,
Emile

Bonjour Jacquouille et Jacky,

Merci pour vos proposition, c'est Ok! :-)
Cordialement,
Emile