Discussion :

[thierrykammi]

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
quelqu'un peut il m'aider?
merci d'avance

[zandru]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zandru]

Pas de réponse par MP,

Ecrit sur le forum !!! voir ici:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub nbligne()
    MsgBox Selection.Rows.Count
End Sub

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

[thierrykammi]

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

[zandru]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub nbligne()
    I = 1
    While (thierry.Cells(I, 1) <> "")
        I = I + 1
    Wend
    MsgBox I
End Sub

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thierrykammi]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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