Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [VBA] Comment sélectionner une base de donnée dynamiquement, sans les entêtes?

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

3 réponses
Avatar
Emile63
Bonjour =E0 tous,

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

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

Merci d'avance pour votre aide,
Emile
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacquouille
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
Avatar
Jacky
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
Avatar
Emile63
Bonjour Jacquouille et Jacky,

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