Microsoft 365 Définir une zone "aléatoire" à sélectionner en VBA

[Magnio]

Bonjour à tous,

Le titre de ce sujet peut paraitre ambigüe alors je vais tenter de détailler ma demande.
Je sais sélectionner une zone fixe en VBA et faire ma popotte avec.

Mais je ne sais pas comment désigner ma zone quand la première cellule est sélectionnée de manière aléatoire.

Je m'explique, à tout moment la première cellule de ma sélection peut se trouver dans la colonne A, mais à une ligne totalement aléatoire en fonction des ajouts dans la base de donnée (et pas forcément la dernière case vide).
Je souhaiterais donc un code qui me permette de sélectionner une zone depuis la cellule "Ax" et sur un nombre de colonnes et de lignes bien défini.

Par exemple, si je suis aléatoirement sur la cellule [A1017], je souhaiterais sélectionner la plage ("A1017:AG1117")

Je ne pense pas qu'il soit utile de joindre un fichier, ce n'est pas un problème de structure de mon classeur mais "juste" comment retranscrire ma demande en VBA.

Cela doit être tout bête, mais comme je n'ai toujours utilisé que des plages fixes définies...
Merci à vous. 🙂

 

[crocrocro]

bonjour,
il faut utiliser la propriété Offset.
Dans l'exemple ci-dessous, sélection = sélection courante + 2 lignes 5 colonnes

Range(Selection, Selection.Offset(2, 5)).Select

Avec H1 sélectionné avant l'exécution du code

 

[Dranreb]

Bonjour.
Vous pouvez faire :
Set RngAG = Intersect(ActiveCell.EntireRows, ActiveSheet.[A:G]).Resize(100)

 

[Magnio]

bonjour,
il faut utiliser la propriété Offset.
Dans l'exemple ci-dessous, sélection = sélection courante + 2 lignes 5 colonnes

Range(Selection, Selection.Offset(2, 5)).Select

Regarde la pièce jointe 1229334
Avec H1 sélectionné avant l'exécution du code

Je n'avait jamais utilisé cette propriété et c'est exactement ce qu'il me fallait. Je vais pouvoir l'adapter en fonction des fichiers où la mettre en place, c'est parfait! 🙂

 

[Magnio]

Bonjour.
Vous pouvez faire :
Set RngAG = Intersect(ActiveCell.EntireRows, ActieSheet.[A:G])

Merci également pour cette proposition, je la garde de côté. 🙂

 

[job75]

Bonjour le forum,

Le problème posé est celui-ci :

Par exemple, si je suis aléatoirement sur la cellule [A1017], je souhaiterais sélectionner la plage ("A1017:AG1117")

En l'occurrence on utilisera plutôt la propriété Resize :

ActiveCell.Resize(101, 33).Select

A+

 

[Magnio]

Bonjour le forum,

Le problème posé est celui-ci :

En l'occurrence on utilisera plutôt la propriété Resize :

ActiveCell.Resize(101, 33).Select

A+

Cela fonctionne également. Merci job! =)