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

Marsh Posté le 29-12-2009 à 09:30:26

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.

Reply

Marsh Posté le 29-12-2009 à 09:30:26

Reply

Marsh Posté le 29-12-2009 à 10:14:05

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.

Reply

Marsh Posté le 29-12-2009 à 12:25:11

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

Reply

Marsh Posté le 29-12-2009 à 13:44:19

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

Merci pour cette idée.

Reply

Marsh Posté le 29-12-2009 à 14:15:17

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.

Reply

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

Sujets relatifs:

Leave a Replay