XL 2013 Créer Sommaire

YANOU38 · 17 Juin 2021

Bonjour,
Sur le Fichier joint, en O17 je veux récupérer automatiquement le numéro de la première feuille avec un nombre (ma première feuille chiffrée peut très bien être la numéro 8 par exemple)
Pour cela je liste automatiquement tous les noms des Feuilles (à partir de la cellule AR1).
A partir de la cellule AS1 je "tente" de cibler la première valeur numérique rencontrée, mais on peut voir qu'en cellule AS3 cela ne fonctionne pas...(prise en compte formule et pas valeur je pense...).
Je suis parti dans ce cheminement, mais il y a peut-être plus simple pour créer mon sommaire (?)
L'idée est qu'en cellule O17, j'ai automatiquement "3" (le premier chiffre rencontré dans le nom de mes feuilles)
Merci pour votre aide.

YANOU38 · 17 Juin 2021

Plus simplement :
Ma cellule AR3, qui contient un calcul du type =SI(...) me donne "3".
Je test si cette cellule est du type numérique par =ESTNUM(AR3) est cela me renvoi FAUX.
Je pense que ceci est dû au fait que ESTNUM prend en compte la formule et pas le résultat "3"
Merci pour votre aide

Bernard_XLD · 17 Juin 2021

Bonjour yanou38, le forum

Ma foi, si il s'agit de créer un sommaire, l'utilitaire Xld-Navigator de l'ami _Thierry pour naviguer dans les classeurs volumineux pourra peut être te convenir.
Je l'ai intégré à ton fichier.
Sinon il suffit d'ouvrir l'utilitaire et de lancer l'installation pour créer la feuille de sommaire dans un fichier.

Bien cordialement, @+

YANOU38 · 17 Juin 2021

Bonjour Yeahou, le forum
Merci pour ton aide.
J'ai essayé NavigatorX avec une multitude de feuilles et il est clair que cela peut être d'une aide précieuse, je ne connaissais pas.
Mes classeurs comportent, quant à eux, rarement plus de 25 feuilles.
La "navigation" dans le classeur reste, de ce fait, assez simple.
Il me semble ne pas être loin de la solution avec le =ESTNUM...
Merci.

job75 · 17 Juin 2021

Bonjour YANOU38,

Voyez le fichier joint et le code de la feuille "PG" :

VB:

Private Sub Worksheet_Activate()
Dim a(), n%
With [O17]
    If Sheets.Count > 2 Then
        ReDim a(1 To Sheets.Count - 2, 1 To 3)
        For n = 1 To UBound(a)
            a(n, 1) = Sheets(n + 2).Name
        Next
        n = n - 1
        With .Resize(n, 3)
            .Value = a
            .BorderAround Weight:=xlThin 'pourtour
            .HorizontalAlignment = xlCenterAcrossSelection
        End With
    End If
    .Offset(n).Resize(32 - n, 3).Clear 'RAZ en dessous
End With
End Sub

La macro se déclenche quand on active la feuille.

Edit : bonjour Yeahou, comme d'hab la page XLD n'était pas à jour...

A+

YANOU38 · 17 Juin 2021

Bonjour Job75,
Je tentais d'esquiver les Macros car je ne maîtrise pas...mais c'est peut-être la solution.
Il y a cependant d'autres "automatismes" à mettre en place, je ne sais pas si je peux me permettre de vous prendre plus de temps...
Si cela est possible, il faut que je liste tout pour ne rien oublier et ne pas y revenir 10 fois.
Merci encore pour votre aide.

jcf6464 · 18 Juin 2021

Yeahou à dit:
Bonjour yanou38, le forum

Ma foi, si il s'agit de créer un sommaire, l'utilitaire Xld-Navigator de l'ami _Thierry pour naviguer dans les classeurs volumineux pourra peut être te convenir.
Je l'ai intégré à ton fichier.
Sinon il suffit d'ouvrir l'utilitaire et de lancer l'installation pour créer la feuille de sommaire dans un fichier.

Bien cordialement, @+

Bonjour Yeahou vous tous et le forum
Le navigateur est excellent le lien ( http://www.excel-downloads.com/html/French/forum/messages/1_105975_105975.htm) ne fonctionne pas surement le sujet effacé,

bonne continuation jean claude

Bernard_XLD · 18 Juin 2021

Bonjour le fil, forum

jcf6464 à dit:
Le navigateur est excellent le lien ( http://www.excel-downloads.com/html/French/forum/messages/1_105975_105975.htm) ne fonctionne pas surement le sujet effacé,

normal, c'est sur le premier forum Xld d'avant celui de 2005, les liens originels ne fonctionnent plus. Mais quand on sait ou chercher, voici le lien avec le fil d'origine.
J'ai simplement converti le fichier de _Thierry en Xlsm
https://www.excel-downloads.com/thr...s-les-classeurs-volumnineux.23094/post-105774

[édition : Attention, la version 2.0 est dans le post #55 ]

Bien cordialement, @+

soan · 18 Juin 2021

Bonjour,

jcf6464 à dit:
Le navigateur est excellent

Yeahou à dit:
normal, c'est sur le premier forum Xld d'avant celui de 2005

alors si on revenait à l'ancien forum d'avant celui de 2005 ?

soan

Bernard_XLD · 18 Juin 2021

soan à dit:
alors si on revenait à l'ancien forum d'avant celui de 2005 ?

il faut se méfier du syndrome du bon vieux temps, l'ancien forum était beaucoup moins bien fait que celui ci. Pas de mail, pas de notification, pas de conversation, profils simplissimes, l'antiquité quoi !
et tu avais sorti ma phrase de son contexte, je disais qu'il était normal que les liens ne fonctionnent pas

soan · 18 Juin 2021

ah, ok ! alors dans ce cas : oui, il vaut mieux rester avec le forum actuel ! (merci David !)

YANOU38 · 22 Juin 2021

Bonjour à tous,
En PJ un classeur où j'ai tenté de résumer le plus clairement possible les idées d'automatismes (sur la feuille Récapitulatif).
Merci encore pour votre aide.

YANOU38 · 24 Juin 2021

Bonjour à tous,
Alors peut-être en premier lieu récupérer le nom de toutes les feuilles dans une colonne et cibler le premier chiffre rencontré pour savoir à quel endroit commencer le sommaire.
Merci pour votre aide.

YANOU38 · 25 Juin 2021

Bonjour à tous,
- Une macro (Feuille "Récapitulatif" bouton "Nom Feuilles") me permet de récupérer le nom de toutes mes feuilles.
- Je récupère (Feuille "Récapitulatif" cellule W15) le premier chiffre rencontré dans la colonne S.

Par contre, si je rajoute une feuille, par exemple un copier/coller de la feuille 20, ce qui me donne une feuille 20(2), que je relance la macro, je récupère bien la feuille 20 (2) dans ma liste, mais si je supprime cette feuille et que je relance la macro, cette feuille 20(2) et toujours là dans ma liste (?)

Merci pour votre aide

job75 · 25 Juin 2021

Bonjour YANOU38, le forum,

Avec vos desiderata du post #12 vous avez fait fuir tout le monde.

Maintenant pour créer la liste des feuilles en S9 :

VB:

Sub Snamelist()
Dim a(), n%
ReDim a(1 To Sheets.Count, 1 To 1)
For n = 1 To UBound(a)
    a(n, 1) = Sheets(n).Name
Next
n = n - 1
With [S9]
    .Resize(n) = a
    .Offset(n).Resize(Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
End Sub

Pour trouver la 1ère valeur numérique 6 les colonnes U et V sont inutiles, utilisez cette formule matricielle :

Code:

=INDEX(S9:S10000;EQUIV(VRAI;ESTNUM(S9:S10000);0))

à valider par Ctrl+Maj+Entrée.

A+

XL 2013 Créer Sommaire

YANOU38

XLDnaute Occasionnel

Pièces jointes

YANOU38

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

YANOU38

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

YANOU38

XLDnaute Occasionnel

jcf6464

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

YANOU38

XLDnaute Occasionnel

Pièces jointes

YANOU38

XLDnaute Occasionnel

YANOU38

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires