Bonjour,

Je vx compter le nombre de lignes non vides sur ma feuille Excel, j'ai ft pour cela le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub toto()
 
Dim dernier, i As Integer: i = 1
 
While Workbooks("result_7242006_13153.csv").Worksheets("result_7242006_13153").Cells(i, 1).Text <> ""
 
i = i + 1
 
Wend
 
End Sub
Connaissez vous un code plus efficace pour calculer la derniere ligne non vide?

Merci