Comment afficher dans une cellule le nombre de feuille ??
2 réponses
maxoge
Bonjour,
J 'aimerai savoir si il est possible d'afficher dans une cellule de façon
automatique le nombre de feuilles totales de mon classeur, ainsi que le
numero de la feuille courante, de façon à faire une numérotaion automatique.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Excel...lent
Salut maxoge,
Si j'ai bien compris. Copie ça dans le code de tes feuilles.
Private Sub Worksheet_Activate() [a1] = ActiveWorkbook.Sheets.Count [b1] = ActiveSheet.Name End Sub
Pour accéder au code d'une feuille : Bouton droit sur nom de la feuille dans l'onglet puis tu choisis "Visualiser le code"
Dans l'exemple fourni
- cellule A1 tu auras le nombre de feuille présente dans ton classeur - cellule B1 tu auras le nom de ta feuille ( celui qui est dans l'onglet ) Tu adaptes à ta situation.
Cordialement.
Marc
Salut maxoge,
Si j'ai bien compris. Copie ça dans le code de tes feuilles.
Private Sub Worksheet_Activate()
[a1] = ActiveWorkbook.Sheets.Count
[b1] = ActiveSheet.Name
End Sub
Pour accéder au code d'une feuille : Bouton droit sur nom de la feuille dans
l'onglet puis tu choisis "Visualiser le code"
Dans l'exemple fourni
- cellule A1 tu auras le nombre de feuille présente dans ton classeur
- cellule B1 tu auras le nom de ta feuille ( celui qui est dans l'onglet )
Tu adaptes à ta situation.
Si j'ai bien compris. Copie ça dans le code de tes feuilles.
Private Sub Worksheet_Activate() [a1] = ActiveWorkbook.Sheets.Count [b1] = ActiveSheet.Name End Sub
Pour accéder au code d'une feuille : Bouton droit sur nom de la feuille dans l'onglet puis tu choisis "Visualiser le code"
Dans l'exemple fourni
- cellule A1 tu auras le nombre de feuille présente dans ton classeur - cellule B1 tu auras le nom de ta feuille ( celui qui est dans l'onglet ) Tu adaptes à ta situation.
Cordialement.
Marc
JB
Dans un module:
Function NbFeuilles() Application.Volatile NbFeuilles = Sheets.Count End Function
Dans une cellule: =NbFeuilles()
JB
Dans un module:
Function NbFeuilles()
Application.Volatile
NbFeuilles = Sheets.Count
End Function
