[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 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(xlToLe=
ft))

Merci d'avance pour votre aide,
Emile
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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