Nombre de feuille(s) dans classeur

Gérard DEZAMIS

XLDnaute Accro

• 3 Mars 2005

• #2

Bonjour Philippe

Private Sub Workbook_Open()
i = Sheets.Count
MsgBox 'Le nombre de feuilles du classeur est actuellement de : ' & i
End Sub

Va t'indiquer le nombre de feuilles de ton classeur lors de son ouverture

Le reste .....

Mon coeur est bon mais .... petit !

@+ GD

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 3 Mars 2005

• #3

Bonjour

en complément de la réponse de gérard, que je salue :

Cette macro, pour connaitre leur nom, et si elles sont masquée :

Code:

Public Sub feuilles()
Dim message As String
Dim ws As Object

message = 'Il y à ' & Sheets.Count & ' Feuilles :' & vbCrLf
For Each ws In Worksheets
If ws.Visible = False Then
message = message & vbCrLf & ws.Name & '  masquée'
Else
message = message & vbCrLf & ws.Name
End If
Next ws

MsgBox message

End Sub

a plus

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 3 Mars 2005

• #4

Merci les gars, je vais voir ce que je peux faire avec ça 🙂

Gracié milé

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #5

Bonjour Philippe, Gérard,

MsgBox (ActiveSheet.Name) devrait te donner le nom de la feuille active.

Qu'entends tu par 'numéro propre' de la feuille.
Tu voudrais savoir si la feuille 'Tartuffe' est la sheets(1) ou la sheets (4) ?
Parce que ça dépend de comment sont rangés tes onglets.
Attention à ne pas confondre avec Feuil1 ou Feuil4 qui sont des noms de feuille et pas des numéros.

Quel est ton besoin ?

Abel.

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 3 Mars 2005

• #6

Re,

Oups !

Pardon Hervé, le temps de rédiger et de répondre au téléphone et voilà. Un un accident d'écrasage de pieds.

Abel.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 3 Mars 2005

• #7

re

Même pas mal abel, lol

bye

 

Vote positif 0 Vote négatif