Discussion :

[delamarque]

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

[illight]

Oui :

'Si A est la colonne est celle comportant le plus grand nombre de lignes
DernièreLigne = Range("A1").End(xlDown).Row
DernièreLigne = Range("A65535").End(xlUp).Row

'si tu es dans la colonne ayant le plus grand nombre de lignes
DernièreLigne = ActiveCell.End(xlDown).Row

'Si tu n'as aucune ligne ni colonne entièrement vides dans ta plage de données
DernièreLigne = Selection.CurrentRegion.End(xlDown).Row

[delamarque]

Merci pour le tuyau

Sinon j'ai une autre question, en fait je sais un peu "bidouiller" sur [VBA-E] mais j'aimerai savoir programmer pour cela je vais souvent dans l'explorateur d'objet pour comprendre comment un peu mieux, as tu d'autres idées d'appentissage de programation orienté objet

Merci d'avance

[Theocourant]

Merci pour le tuyau

Sinon j'ai une autre question, en fait je sais un peu "bidouiller" sur [VBA-E] mais j'aimerai savoir programmer pour cela je vais souvent dans l'explorateur d'objet pour comprendre comment un peu mieux, as tu d'autres idées d'appentissage de programation orienté objet

Merci d'avance

Bonjour,

Regarde du côté des tutoriels et des cours sur le site de déveolppez.com et tu devrais trouver ton bonheur.
Après c'est la pratique qui permet de progresser.

Bonne continuation

Théo

[ouskel'n'or]

Un oeil ici, peut-être
http://xo.developpez.com/tutoriel/vb6/poo_vb6/

[bastbast]

last = xls.ActiveSheet.UsedRange.Rows.Count