resolu limiter le nombre d'onglet dans un recapitulatif resolu

camarchepas

XLDnaute Barbatruc

• 13 Octobre 2012

• #2

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

 

Vote positif 0 Vote négatif

B

bika

Guest

• 13 Octobre 2012

• #3

Re : limiter le nombre d'onglet dans un recapitulatif

bonjour

Comme ça ça va?

Code:

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

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


bika

 

Vote positif 0 Vote négatif

M

miremy

Guest

• 13 Octobre 2012

• #4

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

 

Vote positif 0 Vote négatif

B

bika

Guest

• 13 Octobre 2012

• #5

Re : limiter le nombre d'onglet dans un recapitulatif

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

 

Vote positif 0 Vote négatif

M

miremy

Guest

• 13 Octobre 2012

• #6

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

 

Pièces jointes

• recap-50.xls

  81 KB · Affichages: 40
• recap +50.xls

  99 KB · Affichages: 41
• recap +50.xls

  99 KB · Affichages: 39
• recap +50.xls

  99 KB · Affichages: 41

Dernière modification par un modérateur: 13 Octobre 2012

Vote positif 0 Vote négatif

B

bika

Guest

• 14 Octobre 2012

• #7

Re : limiter le nombre d'onglet dans un recapitulatif

Bonjour

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


bika

 

Pièces jointes

• recap +50.xls

  174.5 KB · Affichages: 67
• recap +50.xls

  174.5 KB · Affichages: 69
• recap +50.xls

  174.5 KB · Affichages: 71

Vote positif 0 Vote négatif

M

miremy

Guest

• 14 Octobre 2012

• #8

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😀

 

Vote positif 0 Vote négatif