[Excel]Connaître la dernière ligne d'un tableau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Excel]Connaître la dernière ligne d'un tableau

tarnx

Bonjour à tous,

Afin d'effectuer des calculs sur un tableau Excel (composé de 12 colonnes), j'ai besoin de connaître le nombre de lignes de ce dernier.

Je comptais faire :

Dim oLigne as Integer
Dim oColonne as Integer
oLigne = 0

Code :

For oColonne = 1 to 12
While Not IsEmpty( xlsheet.Cells(oLigne, oColonne) )
oLigne = oLigne + 1
Wend
Next

Le problème c'est qu'il n'est pas complet, il y a des cellules vides.

Par exemple :

Citation :

Colonne 1 : Aucune cellule vide, longueur : 28 lignes
Colonne 2 : A 2 cellules vides, longueur : 31 lignes
Colonne 3 : est vide de la ligne 10 à 13 mais à une longueur de 34 lignes
...

Dans cet exemple je souhiate récupérer la valeur 34

Quelqu'un a-t-il une solution ?

Merci de votre aide.

Publicité

pataluc

c'est quoi ton critère de fin de tableau si tu peux avoir des cellules vides? quand toute la ligne est vide? dans ce cas boucle plutôt en priorité sur les lignes, puis sur les colonnes pour vérifier si une ligne entière est vide.

Laoo

Bonjour

Voici une solution:

Code :

Sub dernière_ligne()
Dim dernière, Ligne as Integer
Range("a1" ).Select
'Pour chaque colonne de 1 à 12
For i = 1 To 12
' on détermine à partir du bas, le rang de la dernière cellule non vide
Ligne = Cells(65530, i).end(xlUp).Row
'si le rang trouvé est supérieur au plus grand précédent, "dernière" prend cette valeur:
If Ligne > dernière Then dernière = Ligne
Next i
'Et dernière = 34 , ce qui était demandé. La preuve:
Range("a" & dernière).Offset(1,0).Select
End Sub

Te voilà rendu 1 ligne en-dessous de la dernière ligne non vide

Bien cordialement

---------------
Olympus OM-D EM-5 + 14-42

tarnx

Ah oui, je n'avais pas pensé à partir d'en bas, bien que cela risque d'être plus long.

Merci pour cette idée.

Laoo

Non, comme tu pourras le constater.

La macro détermine en une fraction de seconde quelle est la première cellule occupée en venant du bas, dans chaque colonne, puis conserve la valeur la plus élevée.

c'est fait en une seconde.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Excel]Connaître la dernière ligne d'un tableau

Sujets relatifs
Commandbar sous Excel 2007	Effacer une ligne d'une combobox VB6 sous XP
[VBA]- passer la ligne en dessous	arguments passés en ligne de commande
Intrepretation du code Html dans Microsoft EXCEL	[Excel VBA] Lister les noms de plages de cellules et leurs coordonnées
XLM, XSD, Excel & multiligne	Exécuter Macro Excel depuis Access
[excel vba] virer les espaces et retour à la lignes	[VB/Excel] Différent résultat execution classique/execution pas à pas
Plus de sujets relatifs à : [Excel]Connaître la dernière ligne d'un tableau

Page générée en 0.042 secondes