Première colonne vide

Bonjour,

J'utilise parfois le code ci-dessous pour me placer à la première ligne vide :

derligne = Sheets(1).Range("A65000").End(xlUp).Row + 1

Quel est l'équivalent pour se placer à la première colonne vide ?

En attente de vos réponses.

Salutations,

Dadams51

Bonjour,

Un exemple :

Public Sub XXX()
Dim lastRow As Long, lastCol As Integer
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
    End With
End Sub

bonsoir,

essayez de faire ceci :

dercolonne = Sheets(1).Range("XFD1").End(xlToLeft).Column + 1

En fait Row = ligne et Column = colonne

A65000 = dernière cellule de la colonne A dans les version d'Excel avant 2007

XFD1 = dernière cellule de la ligne 1 sur les version à partir de 2007, sinon c'est 256 colonnes donc IV1

xlToLeft = on va vers la gauche

xlUp = on va vers le haut

En gros dans un sens ou dans l'autre le principe est le suivant :

on se place sur la dernière cellule de la colonne ou de la ligne et on "remonte" vers le début et on s'arrête dès qu'une cellule est pleine (ou différente de vide), du coup pour avoir la ligne (ou la colonne) vide il faut faire +1

@ bientôt

LouReeD

et oui ! Jean-Eric à raison !

avec Rows.Count on s'adapte à toutes les versions d'Excel, car on compte le nombre de ligne que contient la feuille !

Tout comme avec Columns.Count !

@ bientôt

LouReeD

Merci Jean-Eric et LouReeD,

C'est résolu !

A+

Bonjour,

merci de vos remerciements !

@ bientôt

LouReeD