J'ai manifestement un problème de syntaxe ! Mais je sèche!
Code:
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
Re : Compter le nombre de lignes dans plusieurs feuilles ?
Bonjour,
D'après ton exemple,
Code:
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