VBA: Nombre de lignes d'un tableau dans Excel

bonjour à tous,
je suis un vrai débutant en VBA et je ne m'y connais vraiment pas. là je voudrais écrire une macro qui pourra m'aider à déterminer le nombre de ligne d'un tableau dans excel. je sais même pas comment comment commencer:cry:
quelqu'un peut il m'aider?
merci d'avance

Bonjour,

il y a surement beaucoup plus simple et rapide :aie:
mais voici déjà une solution :

Code:

---

1 2 3 4 5

I = 1 While (Feuil1.Cells(I, 1) <> "") I = I + 1 Wend MsgBox I

---

cela compte tout simplement le nombre de cellule non-vide.

Pas de réponse par MP,
:kill:
Ecrit sur le forum !!! voir ici:

Citation:

---

Envoyé par thierrykammi :
oui, mais je voudrais déterminer le nombre de ligne d'un tableau préalablement sélectionné. donne moi toute la fonction stp, depuis l'en tête jusqu'à la fin

---

Dans ce cas il te suffit de faire (après sélection) :

Code:

---

1 2 3

Sub nbligne() MsgBox Selection.Rows.Count End Sub

---

ce qui affiche le nombre de ligne dans une message box.

en fait j'ai un tableau excel k jexporte d'un logiciel et je met dans un onglet excel qui est toujours le meme. Mais le problème cest ke le nombre de ligne du tableau exporté varie (n'est pas fixe).
Donc jvoudrais une macro ki va dans cet onglet qui sappelle "thierry", selectionne le tableau et détermine le nombre de ligne qu'il contient.
merci pour ton aide

Ce qui me ramène à ma première solution :

Code:

---

1 2 3 4 5 6 7

Sub nbligne() I = 1 While (thierry.Cells(I, 1) <> "") I = I + 1 Wend MsgBox I End Sub

---

Bonjour,

Si vous recherchez la dernière ligne non vide de votre tableau vous pouvez utiliser (Vous remplacez le "C" de "C65536" par la lettre de la colonne concernée :

Code:

---

1 2	dl = Sheets("thierry").Range("C65536").End(xlUp).Row MsgBox dl

---

merci beaucoup jacques!
ça marche parfaitement, mais peut tu m'expliker un peu cette fonction?

Et bien à travers cette fonction la première ligne non vide dans une colonne est recherchée.

On pourrait traduire (mais mon anglais n'est pas terrible, ma dernière leçon date de novembre 1958 !) :

End = Fin, Up = au-dessus, Row = ligne

En fait cela fait la même chose qu'une procédure que vous écririez :

Code:

---

1 2 3 4 5 6 7 8

Sub Cherche_dern_ligne()   For i = 65536 To 1 Step - 1 If Cells(i, 3) <> "" dl = i Exit For End If Next i

---

C'est plus rapide et plus simple à écrire.

Vous pouvez regarder ici pour voir les différentes façons de trouver la dernière ligne absolue, d'une plage ou la dernière colonne etc.

http://www.developpez.net/forums/sho...d.php?t=331890