Trouver dernière colonne

[JORDAN]

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]

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]

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]

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

Encore merci et à la prochaine
Bye