MACRO VB SOUS EXCEL

Dim R As Double
Dim D As Double
For D = 1 To Cells(65536, 1).End(xlUp).Row
If Not Rows(D).Hidden Then R = R + 1
Next D

MsgBox "Nombre de lignes du tableau : " & D & " "

Essaye ceci, ça devrait marcher ;)

C'est-à-dire le tableau sur lequel tu travailles lorsque tu comptes les lignes?
Sinon pour choisir la feuille ou le classeur voulu sert toi des .Activate

Sub Compt_Lignes()

Dim R As Double
Dim D As Double
For D = 1 To Cells(65536, 1).End(xlUp).Row
If Not Rows(D).Hidden Then R = R + 1
Next D

End Sub

Logiquement si il s'agit de la feuille où tu travailles, Excel la sélectionne par défaut.

Essaye Ceci :

Sub Compte()

Dim y As Integer

Range("Cel1", "Cel2").Select
Entre ta plage de données
y = Selection.Rows.Count

End Sub

j'ai un tableau excel k jexporte d'un logiciel et je met dans un onglet excel qui est toujours le meme a chaque fois. 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 "zanu", selectionne le tableau et détermine le nombre de ligne qu'il contient.
merci pour ton aide

Bonjour
tu enregistres ta macro en te mettant en dessous de la dernière ligne ddeton tableau sur une colonne toujours remplie et tu prends comme formule =NB(sélection de toute ta colonne).
et ensuite il te reste à coder la sélection de ta colonne.

Pour enregistrer une macro
Outils->Macro->Nouvelle macro

POur aller dans VBA:
Outils->Macro->Visual Basic Editor (ou raccourci clavier Alt+F11)