Compter le nombre de feuilles

C

Creepy

XLDnaute Accro

• 15 Décembre 2005

• #2

Hello le Forum, Brigitte,

Par macro ca donne ca :

Code:

Sub Nb_Feuille()
MsgBox Worksheets.Count
End Sub

Bises

Creepy

EDIT : Hello Thierry ca va ? prems !!! 😛

Message édité par: Creepy, à: 15/12/2005 15:22

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 15 Décembre 2005

• #3

BOnjour Brigitte, le Forum

Pour compter les Feuilles, à moins que Super Monique nous sorte un truc de derrière les... Choux !!! je ne pense pas qu'une Function existe toute prête... A mon sens (mais je peux me tromper) il faudra du VBA...

Voici une mini Macro simpliste :

Sub CompteFeuille()

MsgBox 'Ce Classeur contient : ' & ThisWorkbook.Worksheets.Count & ' Feuilles'

End Sub


On peut aussi lister le nom des feuilles sur la feuille active comme suit :

Sub ListeFeuille()
Dim i As Byte

For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next

End Sub

Bon Aprèm
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

J

jepi67

XLDnaute Occasionnel

• 15 Décembre 2005

• #4

Bonjour à tous,
Bjr Brigitte,

La réponse est là https://www.excel-downloads.com/threads/nbre-de-feuilles.45443/

Bon courrage

Edition :Pardon je n'avais pas vu Thierry et Creepy (Bonjour) leur soluc est bien plus claire

Message édité par: jepi67, à: 15/12/2005 15:40

 

Dernière modification par un modérateur: 8 Avril 2019

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Décembre 2005

• #5

Bonjour bonjour,


Et bien, on peut dire que vous avez épaté ma collègue, je viens de lui installer la tite macro de Thierry (la même que Creepy je pense) ; ca marche du tonnerre.

J'ai créé une feuille dans laquelle je lui ai mis un bouton affecté à la fameuse macro.

Thierry ou Christophe, resterait plus que la cerise sur le gâteau : que ce compte déduise la feuille de comptage que j'ai créée, car là forcément comme j'ai créé une feuille, ca compte les feuilles + celle-là...

Merci encore, vous êtes des choux...

En revanche je regarderai si vous avez trouvé une astuce pour faire -1 demain, car là je vais chercher l'enfant prodige (mon Laurent de Boston) à la gare...

Bisous

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Décembre 2005

• #6

Merci à toi aussi Jean-Pierre, je n'avais pas rafraîchi dans ma hâte d'aller à la gare.

Je viens de regarder, mais bon, on va garder la tite macro, elle marche bien... Je garde ca pour une autre fois.

A plus.

 

Vote positif 0 Vote négatif

J

jepi67

XLDnaute Occasionnel

• 15 Décembre 2005

• #7

Re,

Dans la Macro de Christophe :

Worksheets.count - 1

et ça marche

à+

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 15 Décembre 2005

• #8

Hello,

Décidement j'arrive pas à poster de code avec le nouveau forum. Donc voir la solution sur le code de Thierry en PJ

@+

Creepy [file name=soluce.zip size=416]Lien supprimé

 

Pièces jointes

• soluce.zip

  416 bytes · Affichages: 305

Dernière modification par un modérateur: 8 Avril 2019

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 15 Décembre 2005

• #9

bonjour tous le monde la meme chose en plus complique pour compter les feuilles & books salutations [file name=adofeuilles1.zip size=32738]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/adofeuilles1.zip[/file]

 

Pièces jointes

• adofeuilles1.zip

  32 KB · Affichages: 215

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 15 Décembre 2005

• #10

bonjour tous le monde la meme chose en plus complique pour compter les feuilles & books salutations [file name=adofeuilles1_20051215174918.zip size=32738]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/adofeuilles1_20051215174918.zip[/file]

 

Pièces jointes

• adofeuilles1_20051215174918.zip

  32 KB · Affichages: 204

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 15 Décembre 2005

• #11

Hello la fine équipe !

Heureux que l'on ait pu épater Yvanne !

Arf oui José, j'avais entrevu cette 'espèce' de function barbatruc...

D'ailleurs elle retourne pas mal de trucs mais se trouve non convertible selon les versions d'Excel... En US voici ce que ça donne

Returns information about the current operating environment.

Syntax

INFO(type_text)

Type_text is text that specifies what type of information you want returned.

Type_text Returns

'directory' Path of the current directory or folder.

'memavail' Amount of memory available, in bytes.

'memused' Amount of memory being used for data.

'numfile' Number of active worksheets in the open workbooks.

'origin' Absolute A1-style reference, as text, prepended with '$A:' for Lotus 1-2-3 release 3.x compatibility. Returns the cell reference of the top and leftmost cell visible in the window, based on the current scrolling position.

'osversion' Current operating system version, as text.

'recalc' Current recalculation mode; returns 'Automatic' or 'Manual'.

'release' Version of Microsoft Excel, as text.

'system' Name of the operating environment:
(Macintosh = 'mac' / Windows = 'pcdos')

'totmem' Total memory available, including memory already in use, in bytes.

Comme quoi elle doit au moins dater d'Excel 4 cette 'barbaphonquetion'

Bonne Soirée
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Décembre 2005

• #12

Bonsoir,

Vite fait car mon gars est là et je veux pas passer trop de temps sur le pc... et qu'en plus il fulmine car il peut pas brancher (on se demande pourquoi) son portable sur internet...

Merci à tous.

Christophe, j'arrive pas avec ta macro à un résultat équivalent à celui de Thierry qui m'ouvre une boîte de dialogue qui me donne le nombre de feuilles.

J'ai copié/collé ta macro dans this workbook, ca donne rien. Fallait la rajouter à celle de Thierry ou elle vaut toute seule ?

José, il faut faire -1 (pour le fun) puisque j'ai créé une feuille pour rien, juste pour y mettre un bouton qui justement accède à la macro de thierry, donc le résultat comporte une feuille en trop, la feuille où est le bouton...

Bonne soirée et merci.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Décembre 2005

• #13

Bonsoir le fil, bonsoir le forum,

Tiens, y'a José qui vanne Yvanne... et comme il m'a piqué ma couleur préférée l'insolent, je poste en pourpre doré de l'avant...

Édition :
j'm'avais gouré de couleur...

Message édité par: Robert, à: 15/12/2005 20:20

 

Vote positif 0 Vote négatif

P

Pam

Guest

• 15 Décembre 2005

• #14

dim nbfeuilles as integer
nbfeuilles=activeworkbook.sheets.count

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 18 Décembre 2005

• #15

Merci Pam...

La macro de Thierry agrémentée du count-1 de notre ami Creepy allait très bien à Yvane.

Mais bon gardons tout.

José : essaie de pas faire ta mauvaise tête pour une fois

- 1 classeur
- 143 feuilles représentant chacun une personne
- Edition
- Besoin de savoir combien de feuilles, pour vérif
- Donc création d'une feuille supplémentaire dans laquelle on fait le comptage grâce à la macro
- count-1 : pour que le compte soit bon (je sais que tu préfères QPUC...), la feuille supplémentaire ne servant qu'au comptage... donc elle est la 144ème à ne pas compter.

Capito ? Ceci est mon dernier mot (décidément les jeux...) si t'as pas compris, ne te jette pas par la fenêtre, tente le toit.

 

Vote positif 0 Vote négatif