Discussion :

[randall]

Bonjour,

J'ai un tableau avec plusieurs colonnes pour un concours de belote, la dernière colonne contient le nombre d'équipes et 2 colonnes à droite (en dehors du tableau) j'ai une colonne nombre de tables. J'ai mis le nombre de tables à 40 mais lorsqu'il n'y a que 20 équipes il faut effacer le nombre de tables en trop ce qui n'est pas un gros problème en fait
Simplement je voudrais ajuster le nombre de tables au nombre d'équipes automatiquement pour cela j'ai fait une macro qui me sélectionne la dernière cellule vide du tableau nombre d'équipes puis avec la méthode offset je me décale de 2 colonnes sur la même ligne et ça me sélectionne la dernière ligne nécessaire du tableau nombre de tables et de là je voudrais supprimer toutes les tables inutiles par exemple s'il y a 20 équipes il faut 20 tables donc supprimer de la table 20 à 35

Dans la macro je fais range("activecell:J35"). select J35 est la dernière table et activecell est la cellule active de la dernière table nécessaire il faut donc supprimer tout ce qui est en dessous mais ça me génère une erreur.

D'où ma question comment sélectionner une plage de cellule entre la cellule active d un classeur et d'autres cellules en dessous dans la même colonne

Merci pour la réponse

[Valtrase]

Salut,
Un peu vieux ce post mais bon,
Pour sélectionner à partir de la cellule active sur deux lignes et 5 colonne tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Resize(RowSize:=2, ColumnSize:=5).Select

Pour décaler par rapport à la cellule active sur la même ligne et 3 colonnes sur la droite, puis sélectionner 2 lignes et 5 colonnes c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activecell.Offset(RowOffset:=0,ColumnOffset:=3).Resize(RowSize:=2, ColumnSize:=5).Select

Plus de renseignements :
Propriété Range.Offset (Excel) | Microsoft Learn
Range.Resize, propriété (Excel) | Microsoft Learn

[Hugo_pack]

Bonjour,
Essaye comme ça en effaçant (.clear) le contenu plutôt qu’en supprimer les cellules.
Range(ActiveCell, ActiveCell.End(xlDown)).Select