Top Assistante - Macros : quelques codes utiles

Macros / VBA > Index

13-Avr-2009

Déterminer la première cellule vide d'un tableau

Quelques fois, vous aurez besoin d'ajouter des éléments dans un fichier dont vous ne connaîtrez pas la dernière ligne.

Voici donc la portion de code à ajouter pour se positionner sur la première ligne vide :

range("a1").activate
while activecell <>""
activecell.Offset (1,0).Activate
wend

remplacer les coordonnées de cellule en rouge par l'adresse de la première cellule de votre tableau (entête de votre tableau) ;
compléter ensuite avec vos instructions.

Déterminer la colonne de la cellule active

Dans certains cas de figure, vous aurez besoin de récupérer le numéro de la colonne sur laquelle vous vous trouvez, par exemple, pour supprimer la colonne en cours.
Voici l'instruction pour récupérer cette information :

MaColonne=activecell.column

Vous pouvez ensuite utiliser MaColonne dans vos instructions pour faire référence à cette colonne. Par exemple, vous êtes sur la colonne E, 3e ligne et souhaitez aller sur la ligne 5 de la même colonne (donc E5).
L'instruction sera : range(MaColomne & "5").select

Récupérer le numéro de la ligne active

Cette fois, c'est le numéro de la ligne que nous souhaitons récupérer et ce n'est guère plus compliqué :

MaLigne=activecell.row

Vous pouvez ensuite utiliser MaLigne de la même manière que MaColonne : range("B" & MaLigne).select.

Niveau