Discussion :

[benfatpatra]

Bonjour dans une procédure je souhaite descendre le long d'une colonne donnée en entrée, à partir d'une ligne donnée en entrée tant que les cellules ne sont pas vides et obtenir en sortie la dernière cellule non vide.

Je souhaite procéder de la sorte:

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
16
Sub lastnonempty()
 
Dim fl As Integer
Dim col As String
Dim I As Integer
 
col = Range("colonne")
fl = Range("firstline")
 
While
?????????????????????????????????
Wend
 
Range("lastnonemptyline").Value=I-1
 
End Sub

Merci

[neupont]

Un truc du genre :

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
16
17
18
Sub lastnonempty()

Dim fl As Double
Dim col As Integer
Dim I As double

col = Range("colonne").column
fl = Range("firstline").row

I = fl
do while cells(I, col) <> ""
   I = I + 1
loop

Range("lastnonemptyline").Value=I-1

End Sub

Néanmoins je ne suis pas sûr de bien piger comment tu utilises col = Range("colonne")... par exemple. Il faudra donc peut-être adapter.

[benfatpatra]

Merci!!
En fait je rentre les lettres de la colonne en question dans une case appelée "colonne" directement sur la feuille excell...

[fring]

Bonjour,

Il n'est pas nécessaire de faire une boucle pour trouver la dernière cellule d'une colonne

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim Col As String
 
Col = Range("colonne")
MsgBox Range(Col & Range(Col & "65535").End(xlUp).Row).Address(0, 0)
 
End Sub