Ajout d'une cellule à la suite

Bob · 23 Mai 2004

Salut.

J'ai un tit problème.
Je souhaite par une macro, sélectionner la dernière cellule non remplie d'une colonne remplie de donnée.
En gros j voudrais automatiser l'ajout d'une nouvelle information dans une colonne à la suite des autres.

Je sais que pour réaliser le code j'ai besoin de :

"Selection.End(xlDown).Select"
et de
"ActiveCell.Row"

mais je n'arrive pas à tout mettre dans le bon ordre!!
En toute logique, il me faudrait trouver la dernière cellule remplie de la colonne et séléctionner la cellule juste du dessous...
Mais comment faire??!

En vous remerciant d'avance!!

Bob

GClaire · 23 Mai 2004

Bob, le forum

Ne serait-ce pas cela que tu recherche

Sheets("NomDeLaFeuille").Range("N° de Colonne Et Ligne").End(xlUp).Row + 1

Salut et bonne fin de Week-End, G'Claire

Lord Nelson · 23 Mai 2004

Bonsoir à tous,

Une petite précision sur la formulation de GClaire :

Sheets("NomDeLaFeuille").Range("A65536").End(xlUp).Row + 1
(Remplacer le A par toute autre colonne, en cas de besoin)

Pour sélectionner la cellule correspondante :

Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select

A+
LN

Ajout d'une cellule à la suite

Bob

Guest

GClaire

Guest

Lord Nelson

Guest

Discussions similaires