Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA & Plage Dynamique

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stewy_soak

XLDnaute Nouveau
Bonjour,

J'ai un petit soucis avec l'écriture d'une macro en VB, en particulier avec la gestion d'un Range que je souhaiterais dynamique.


En l'occurence, j'ai les colonnes A à P de ma feuille qui sont mises à jour depuis une BdD externe.
Les colonnes Q à X contiennent diverses formules se basant sur les infos des colonnes A à I.


Ce que je cherche à obtenir, est un code définissant une plage qui commencerait à la 1ère cellule vide de la colonne Q et finissant (tjs en colonne Q) à la dernière ligne utilisée (par la colonne A par exemple).

Ou plus concrètement, si la colonne A est pleine jusqu'en ligne 60 et que la colonne Q l'est jusqu'à la 40, je cherche à obtenir la plage "Q40:Q60"

Aucune idée de la manière dont je devrais procéder ?


Car j'utilise actuellement une "plage nommée" (Named Range), que je reprends dans la macro pour définir MyPlage.. (Set myplage = Range("nom")) mais du coup, mon code commence à courrir au début de la colonne plutôt que là où les infos n'ont pas encore été ajoutée, et vu qu'il y'a plusieurs milliers de lignes.....

le "Named Range" que j'utilise
=Sheet1!$Q$2:INDEX(Sheet1!$Q:$Q;COUNTA(Sheet1!$A:$A))

D'avance merci pour votre aide,
bonne fin de journée

Steve
 
Re : VBA & Plage Dynamique

Bonjour,

Bonjour, JM 🙂

Une autre solution :

Code:
Dim Plg As Range
Set Plg = Range([Q65000].End(xlUp)(2), [A65000].End(xlUp).Offset(, 16))
Plg.Select 'pour tester

Bonne journée
 
Re : VBA & Plage Dynamique

Bonjour Jean-Marcel et Bhbh,
et merci pour vos réponses


le morceau de code de Bhbh correspond exactement à mes besoins, un grand merci pour le coup de pouce !! 🙂

et une bonne fin de journée/début de soirée à vous
merci encore
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
508
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
172
Réponses
5
Affichages
566
Réponses
4
Affichages
531
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…