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

Le
Emile63
Bonjour tous,

Tout est dans le titre.
Je brode sans succs autour de ce bout de code, mais c'est plutt vers =
l'aspirine que je me dirige.. :(

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

Merci d'avance pour votre aide,
Emile
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26379446
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 :


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
Jacky
Le #26379445
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
Emile63
Le #26379628
Bonjour Jacquouille et Jacky,

Merci pour vos proposition, c'est Ok! :-)
Cordialement,
Emile
Publicité
Poster une réponse
Anonyme