Discussion :

[_lex_]

Bonjour,
J'ai fait quelques recherches mais je n'ai pas réussi à résoudre mon problème.
Je souhaite récupérer la dernière cellule non vide d'une colonne. Le numéro de la colonne concernée est récupéré dans le code.

J'ai essayé Range(Ws.Columns(colonne),Ws.Columns(colonne)).End(xlUp).Row, ça me renvoie 1.
J'ai essayé Range(Ws.Columns(colonne),Ws.Columns(colonne)).End(xlDown).Row, ça me renvoie 100, correspondant à la ligne de la première cellule non vide de la colonne.

Je cherche un équivalent de Range("A10000").End(xlUp).Row sans connaître la lettre correspondant à la colonne (car dans mon fichier Excel, les lignes et colonnes sont matérialisées par des chiffres, et je souhaite garder ce format).

Et je souhaite la ligne de la dernière cellule non vide... Quelqu'un peut-il m'aider svp ?

[Invité]

Bonjour,

A adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
Dim DerniereLigne As Long, MaColonne As Long
 
    With ActiveSheet
         MaColonne = 10
         DerniereLigne = .Cells(.Rows.Count, MaColonne).End(xlUp).Row
    End With
 
End Sub

Sinon sous forme de fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function MaDerniereLigne(ByVal Ws As Worksheet, ByVal MaColonne As Long) As Long
 
    With Ws
         MaDerniereLigne = .Cells(.Rows.Count, MaColonne).End(xlUp).Row
    End With
 
End Function
 
 
Sub Test2()
 
     MsgBox MaDerniereLigne(ActiveSheet, 10)
 
End Sub

[BENNASR]

bonjour
voir :

https://www.developpez.net/forums/d1...gne-d-colonne/

[OrDonc]

Bonjour

Le problème peut se compliquer en fonction du contexte.

La procédure classique (dans la fenêtre des codes de la feuille) …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Dl()
  Dim n As Long
  For n = 2 To 8    'colonnes 2 à 8
    Cells(2, n) = Cells(Me.Rows.Count, n).End(xlUp).Row
  Next
End Sub

… peut être défaillante (notamment quand il y a un Tableau intercalé - voir fichier joint)