Nombres d'onglets ?

C

Compte Supprimé 979

Guest

• 6 Octobre 2012

• #2

Re : Nombres d'onglets ?

Salut J.-P.

Code:

Sheets("NomFeuille").Range("A1") = Sheets.Count

A+

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 6 Octobre 2012

• #3

Re : Nombres d'onglets ?

Salut Bruno,
Pourrais-tu me mettre un exemple dans un fichier car je ne sais pas ou mettre le code .

Merci

J.-P.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 6 Octobre 2012

• #4

Re : Nombres d'onglets ?

Bonjour à tous,

en l'absence de Bruno:

Code:

Private Sub Workbook_Open()
Sheets(1).Range("A1") = "Ce classeur contient " & Sheets.Count & " onglets"
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 6 Octobre 2012

• #5

Re : Nombres d'onglets ?

Salut Philippe,
Comme déjà dis pourrais-tu me jointre un fichier avec le code, car je n'arrive pas.
Merci beaucoup.
J.-P.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 6 Octobre 2012

• #6

Re : Nombres d'onglets ?

Bonjour à tous,

Qui se met à jour à l'activation de la feuille (en cas d'ajout ou suppression).
A meetre dans ThisWorkbook :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Feuil1" Then [A3] = Sheets.Count
End Sub

Alt+F11 pour aller dans l'éditeur VBE

eric

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 45
• Classeur1.xls

  21.5 KB · Affichages: 54
• Classeur1.xls

  21.5 KB · Affichages: 54

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 6 Octobre 2012

• #7

Re : Nombres d'onglets ?

Merci beaucoup Eric c'est super.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Octobre 2012

• #8

Re : Nombres d'onglets ?

Bonsoir @ tous,
pourquoi un code,
aller dans le Gestionnaire de Noms,
créer un nouveau nom ==> NbOnglets par exemple...
et dans fait reference @ , taper ==> =LIRE.CLASSEUR(4)
aller dans une cellule quelconque et taper ensuite : =NbOnglets et c'est Ok
Amicalement

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 6 Octobre 2012

• #9

Re : Nombres d'onglets ?

Bonsoir à tous,
Bonsoir rachid,

Seulement il est non dynamique et ne se rafraichit même pas sur F9.
Avec =ENT(nbOnglet+ALEA()) on peut le rendre dynamique. Il se réévaluera sur F9 ou sur une saisie n'importe où.

eric

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Octobre 2012

• #10

Re : Nombres d'onglets ?

Bonsoir @ tous,
Bonsoir Eric,
oui c'est le problème des Macro XL4, elles ne se recalculent pas @ l'aide de la touche F9...
bonne idée de la combiner avec ENT() et ALEA()...
Amicalement

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Octobre 2012

• #11

Re : Nombres d'onglets ?

Bonjour à tous,

Je voulais dire le rendre volatile avec alea() (et non dynamique, je pense que tout le monde avait compris).
eric

 

Vote positif 0 Vote négatif