Affichage du nombre de ligne d'un tableau dans une cellule

Bonjour,

j'aimerai, suite au lancement de ma macro afficher le nombre de lignes de ce tableau. Le tableau provient d'un premier tri est sera donc variable en nombre.Mais débutera toujours au niveau de la ligne 6.

Le truc est que je veux l'afficher en haut du tableau dans une cellule qui sera scindé avec un en-tête fixe.....

Je pensais compter par le bas :

nbdeligne = ri.Cells(Rows.Count, "A").End(xlUp).Row la j'ai message d'erreur pb d'objet

(mais m'arrêter a la ligne 6????)

puis afficher cette valeur en L3.

merci

Bonjour

Essaie avec cette instruction :

nbdeligne = Sheets("ri").Cells(Rows.Count, "A").End(xlUp).Row

Bye !

Bonjour,

alors la je dit oui, oui,oui!!!!

en completant avec la deuxieme ligne j'obtient ce que je veux.

nbdeligne = Sheets("ri").Cells(Rows.Count, "A").End(xlUp).Row

wss.Range("L3").Value = nbdeligne - 6

le seul truc c'est qu'il m'affiche le chiffre aussi dans le feuille 1, et du coup, comme je recupere les colonns de la 1er feuille vers la 2eme je me retrouve avec deux chiffres sur le tableau.

Comment lui indiquer qu'il doit compter sur la feuille 'Ri'?

Je pensais que "sheets 'ri' suffisait!!!

Séb as tien a écrit :

Comment lui indiquer qu'il doit compter sur la feuille 'Ri'?

Désolé mais je ne puis te répondre, faute de fichier et de savoir à quoi correspond :

wss.Range("L3").Value = nbdeligne - 6

Bye !

Bonjour,

le fichier se trouve dans le 1er mess.

Mais j'ai reussi. j'ai fait une selection du tableau puis mis les deux lignes.

With Selection

nbdeligne = Sheets("ri").Cells(Rows.Count, "A").End(xlUp).Row

wss.Range("L3").Value = nbdeligne - 1

End With

Merci