Compter le nombre de lignes dans plusieurs feuilles ?

[beoper]

Bonjour,

J'ai manifestement un problème de syntaxe ! Mais je sèche!

Sub Examplar()

 Dim LastRow As Long
 ligne = 2
 
 For s = 2 To Sheets.Count
  
  Sheets(s).UsedRange.Rows.Count.Copy Destination:=Sheets("Feuil1").Cells(ligne, 11)
   
  Next
  
End Sub

Merci d'avance

 

[titiborregan5]

Re : Compter le nombre de lignes dans plusieurs feuilles ?

Bonjour beoper, le forum,
essaie avec ça :

Sub t()
For s = 2 To Sheets.Count
Range("b65000").End(xlUp).Offset(1, 0) = Sheets(s).Range("a65000").End(xlUp).Row
Next

End Sub

Dis moi si ça marche chez toi...

 

[Guest]

Re : Compter le nombre de lignes dans plusieurs feuilles ?

Bonjour,

D'après ton exemple,

Sub Examplar()
 Dim LastRow As Long
 ligne = 2
  
 For s = 2 To Sheets.Count
  
  Sheets("Feuil1").Cells(ligne, 11).End(xlUp)(2) = Sheets(s).UsedRange.Rows.Count
    ligne = ligne + 1
  
  Next
  
End Sub

A+

 

[beoper]

Re : Compter le nombre de lignes dans plusieurs feuilles ?

Fantastique !
Merci à tous les deux !
Bonne journée