Nom d'onglet et calcul

Papou-net

XLDnaute Barbatruc

• 20 Juillet 2012

• #2

Re : Nom d'onglet et calcul

Bonjour Emmanuel31,

J'avoue ne pas comprendre ta demande.

Sur ton fichier joint, les formules calculent bien les totaux de chaque colonne des onglets 1 et 2, non ?

Par ailleurs, je ne vois pas d'onglets cachés.

Peux-tu préciser davantage ?

A +

Cordialement.

 

Vote positif 0 Vote négatif

E

Emmanuel31

XLDnaute Occasionnel

• 20 Juillet 2012

• #3

Re : Nom d'onglet et calcul

Le calcul se fait bien effectivement avec la formule suivante :

Code:

=SOMME(Onglet1!B:B)

Sauf que je souhaiterais plus une chose à la mode :

Code:

=SOMME(B4!B:B)

Sauf que B4 ne fonctionne pas ... c'est à dire que je souhaite "variabiliser" le calcul pour que si la case B4 change, le calcul se fasse quand même avec l'onglet du nouveau nom.

D'ou la phase : faire que cette case B4 récupère aussi le nom de l'onglet en direct.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 20 Juillet 2012

• #4

Re : Nom d'onglet et calcul

Bonjour à tous,

A essayer en C4

=SOMME(INDIRECT(B4&"!B:B"))

Cliquez pour agrandir...

JHA

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Juillet 2012

• #5

Re : Nom d'onglet et calcul

Bonjour à tous

Essayez en C4, à recopier à droite et vers le bas,

Code:

=SOMME(DECALER(INDIRECT($B4&"!A:A");;COLONNE(A:A)))

ROGER2327
#6145

Samedi 7 Tatane 139 (Saint Biribi, taulier - fête Suprême Quarte)
2 Thermidor An CCXX, 5,7866h - bouillon-blanc
2012-W29-5T13:53:16Z

 

Vote positif 0 Vote négatif

E

Emmanuel31

XLDnaute Occasionnel

• 20 Juillet 2012

• #6

Re : Nom d'onglet et calcul

Merci vous deux !! 😀

Les 2 formules fonctionnent bien mais j'ai pris celle de JHA qui paraissait plus simple 😛

Une idée pour la partie 1 du coup (récupération du nom des onglets pour mettre dans les cellules de l'onglet "Bilan") 😕

Emmanuel31 à dit:

1. Que les noms de chaque onglets du fichier (hors onglet "Bilan" et onglets cachés) soient listés dans l'onglet "Bilan"

Cliquez pour agrandir...

 

Dernière édition: 20 Juillet 2012

Vote positif 0 Vote négatif

E

Emmanuel31

XLDnaute Occasionnel

• 24 Juillet 2012

• #7

Re : Nom d'onglet et calcul

Bonjour, je relance pour la partie récupération du nom des onglets ;-)

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Juillet 2012

• #8

Re : Nom d'onglet et calcul

Bonjour,

Emmanuel31 à dit:

Bonjour, je relance pour la partie récupération du nom des onglets ;-)

Cliquez pour agrandir...

Je ne connais pas de solution par formule Excel.
Si une fonction personnalisée en VsualBasic peut convenir, en voici une :​

VB:

Function NOnglet()
Application.Volatile
Dim i&, k&, Tmp$, Exclure(), v$(), fl As Worksheet
    Exclure = Array(0, "Feuil3", "Feuil4") 'Feuilles exclues
    Exclure(0) = UBound(Exclure)
    ReDim v(1 To Application.Caller.Count, 1 To 1)
    For Each fl In ThisWorkbook.Worksheets
        If fl.Visible = xlSheetVisible Then
            Tmp = fl.CodeName
            For i = 1 To Exclure(0)
                If Tmp = Exclure(i) Then Exit For
            Next
            If i > Exclure(0) Then k = k + 1: v(k, 1) = fl.Name
        End If
    Next
    NOnglet = v
End Function

C'est une fonction matricielle qui s'emploie ainsi :

1. Sélectionner une partie de colonne, par exemple B4:B16.
2. Saisissez =NOnglet() en B4.
3. Validez par Ctrl Maj Entrée.

Si elle est assez vaste, la plage B4:B16 contient la liste des onglets à l'exception :

• des onglets masqués ;
• des onglets des feuilles dont le nom est listé dans le tableau Exclure.

Voir le classeur joint pour un exemple de mise en œuvre.​

ROGER2327
#6170

Mercredi 11 Tatane 139 (Saintes Canicule et Canule, jouvencelles - fête Suprême Quarte)
6 Thermidor An CCXX, 4,1395h - prêle
2012-W30-2T09:56:05Z

 

Pièces jointes

• XLD_189013_Lister les onglets.xlsm

  22.3 KB · Affichages: 46

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 31 Juillet 2012

• #9

Re : Nom d'onglet et calcul

Merci Emmanuel31,

Il est toujours agréable de savoir si on est à côté de la plaque ou pas.​

Bonne nuit.


ROGER2327
#6202

Mercredi 18 Tatane 139 (Saint Trou, chauffeur - fête Suprême Quarte)
13 Thermidor An CCXX, 8,9011h - abricot
2012-W31-2T21:21:46Z

 

Vote positif 0 Vote négatif