resolu limiter le nombre d'onglet dans un recapitulatif resolu

[miremy]

bonjour,
J'ai besoin de vos lumières
quelqu'un peut il m'aider a résoudre mon problème?
voilà j'ai plusieurs classeurs dont certains ont plus de 100 onglets et d'autres 10 onglets seulement
quand je dois faire un récapitulatif j'utilise ces bouts de macro

'For I = 22 To Sheets.Count
For I = 22 To 50
Je déplace l'apostrophe selon le nombre de feuilles que contient le classeur
_Quelle est la solution pour que si le classeur contient dans ce cas moins de 50 feuilles cela puisse s'adapter au nombre de feuilles existantes .
merci de vos réponses.

Miremy

 

[camarchepas]

Re : limiter le nombre d'onglet dans un recapitulatif

Bonjour,

Les feuilles à ne pas traiter ont-elles un nom particulier ?

A moins que ce soit le nom des feuilles à traiter qui soit remarquable ?

Dans ce cas une boucle for each parcourant l'ensemble des onglets en testant ou leur nom ou une info particulière dans les feuilles à traiter pourrait être une solution

 

[bika]

Re : limiter le nombre d'onglet dans un recapitulatif

bonjour

Comme ça ça va?

IIf(Sheets.Count < 50, Sheets.Count, 50)

(si le compte est inférieur à 50, le compte, sinon 50.


bika

 

[miremy]

Re : limiter le nombre d'onglet dans un recapitulatif

Merci de vos réponses aussi rapides
_les noms de feuilles sont différentes pour chaque classeur c'est pour çà que je les nomme par n°
_j'ai essayé :
IIf(Sheets.Count < 50, Sheets.Count, 50) cela me met erreur

 

[bika]

Re : limiter le nombre d'onglet dans un recapitulatif

chez moi ça fonctionne, tu peux mettre un fichier exemple pour voir ce qui cloche?

 

[miremy]

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

 

[bika]

Re : limiter le nombre d'onglet dans un recapitulatif

Bonjour

ça marche très bien, quel le problème?


bika

 

[miremy]

Re : limiter le nombre d'onglet dans un recapitulatif

Merci bika
cela marche impeccable
il fallait donc mettre : For I = 22 To IIf(Sheets.Count < 50, Sheets.Count, 50)
je te remercie vivement
miremy