Trouver dernière colonne

JORDAN · 24 Mars 2005

Bonjour à tous,

J'ai une nouvelle fois besoin de votre aide

J'essaye de trouver la dernière cellule vide dans les colonnes après avoir trouvé la dernière ligne remplie

Pour la dernière ligne j'ai ce code :

DerniereLigne = Sheets('CHEQUES').Range('A65536').End(xlUp).Row

Mais comment faire pour trouver la dernière cellule vide dans cette dernière colonne

Exemple

------------------------
| 10 | 12 | 15 | | |
------------------------
| 11 | 19 | XX | | |
------------------------
Il faut trouver la cellule 'XX'
C'est peut-être plus clair

Merci bcp A+

MarieH · 24 Mars 2005

Bonsoir !

DerniereLigne = Sheets('CHEQUES').Range('A65536').End(xlUp).Row

Selection.End(xlUp).Select 'tu remontes sur la dernière cellule occupée (15 dans ton exemple)
ActiveCell.Offset(1, 0).Range('A1').Select ' tu te places sur la cellule XX

Cordialement

PascalXLD · 24 Mars 2005

Bonsoir

tu peux aussi faire

DerniereLigne = Sheets('CHEQUES').Range('A65536').End(xlUp).Row
Dernière colonne = Sheets('CHEQUES').Range('IV' & dernierligne).end(xltoleft).column

Bon courage

JORDAN · 24 Mars 2005

Super
Merci à vous
C'est tout à fait ce qu'il me fallait

Encore merci et à la prochaine
Bye

Trouver dernière colonne

JORDAN

Guest

MarieH

Guest

PascalXLD

XLDnaute Barbatruc

JORDAN

Guest

Discussions similaires