Re : limiter le nombre d'onglet dans un recapitulatif
cijoint 2 fichiers d'exemple
voici le bout de macro si j'essaye avec:
IIf(Sheets.Count < 50, Sheets.Count, 50) .il me signale une erreur
Sub recap1()
Sheets("recap").Select 'feuille recap
Cells.Select
Selection.Delete Shift:=xlUp
'For i = 22 To Sheets.Count 'pour les classeurs de moins de50 onglets
'IIf(Sheets.Count < 50, Sheets.Count, 50) 'à adapter
For i = 22 To 50 'pour les classeurs de + de 50onglets
If Sheets(i).Name <> "Recap" Then
Sheets(i).Range("A1:R100").Copy Sheets("Recap").Cells(Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row, 1)
End If
Sheets("recap").Select
Cells.Select
Next 'i
End Sub