XL 2013 Créer Sommaire

[YANOU38]

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]

Bonjour job75, le forum,
J'ai bien senti la désertion...
En relisant mon poste #12, même moi j'ai failli fuir...
Du coup merci pour le VB, cela fonctionne.
Pour le code, je vais garder mes formules car je les comprends.
Une question :
Sur ma feuille "Récapitulatif" cellule B5, j'ai tenté de remplacer ='6'!$L$55 par =W15!$L$55, mais cela ne fonctionne pas...
Merci pour votre aide

 

[job75]

Sur ma feuille "Récapitulatif" cellule B5, j'ai tenté de remplacer ='6'!$L$55 par =W15!$L$55, mais cela ne fonctionne pas...

Il faut utiliser INDIRECT :

=INDIRECT("'"&W15&"'!L55")

 

[YANOU38]

Bonjour job75, le forum,
Merci pour INDIRECT, j'ai pu pas mal avancer.
Sur ma feuille Récapitulatif, cellule B20, je récupère #REF! puisque je fais référence à la feuille 21 inexistante (pour l'instant).
Est-il possible d'avoir une cellule vide plutôt qu'#REF! (n'étant pas le seul à utiliser ce classeur, le #REF! peut poser question).
Merci pour votre aide.

 

[soan]

Bonjour Yanou, job75,

Est-il possible d'avoir une cellule vide plutôt qu'#REF! (n'étant pas le seul à utiliser ce classeur, le #REF! peut poser question).

=SIERREUR(ta_formule;"") ➯ y'aura plus de #REF!

soan

 

[soan]

@YANOU38

voici ta nouvelle formule en AB15 : =SIERREUR(RECHERCHEV(1;W:X;2;0);"")

regarde ensuite toutes tes nouvelles formules de la ligne 20.

soan

 

[YANOU38]

Bonjour à tous,
Merci Soan pour tes formules, j'ai pu mettre à jour tout mon tableau.
J'ai rajouté une feuille 21, tout se passe bien dans le tableau feuille "Récapitulatif".
1 - Est-il possible que la macro qui me récupère la liste de toutes les feuilles (Colonne X mise à jour par bouton "Nom Feuilles") soit lancée automatiquement pour une mise à jour systématique (sans bouton) ?
2 - L'idée serait de n'avoir aucune feuille (6 à 21 sur mon exemple) et de pouvoir les importer (bouton "IMPORTER") à partir de l'explorateur et elles viendraient se baptiser automatiquement :
Exemple : J'ai les feuilles PG1-Croq.1-Croq.2-Croq.3-Croq.4 et ma feuille importer prend le nom "6" qui est égal à sa position (La feuille "Récapitulatif" n'est pas prise en compte dans cette numérotation).
Le nombre de feuilles, avant cette page 6, peut fluctuer (Masquer / Afficher PG2-PG3...).
Est-il possible qu'a tout moment (insertion / déplacement feuille...) les feuilles prennent le nom de leur emplacement ?
Merci pour votre aide.

 

[YANOU38]

Bonjour à tous,
Est-il possible de nommer des feuilles en fonction de leur position dans le classeur ?
Merci pour votre aide

 

[YANOU38]

Bonjour à tous,
J'ai tenté une autre approche pour récupérer le nom des feuilles...
En utilisant le gestionnaire des noms (sur feuille Récapitulatif suivant procédure en cellule AI9) pour voir si la mise à jour des cellules suivait.
J'ai inséré une feuille 21 (2), la liste était OK, j'ai supprimé cette feuille mais elle apparaît toujours dans la liste...

Avec la macro ou cette procédure, je me retrouve avec le même problème.
Merci pour votre aide

 

[job75]

Bonjour YANOU38,

Vous pouvez à tout moment exécuter cette macro :

Sub Renommer()
Dim s As Object, n%
Application.ScreenUpdating = False
For Each s In Sheets
    If IsNumeric(s.Name) Then s.Name = Chr(1) & s.Name 'nom provisoire
Next
For Each s In Sheets
    If Left(s.Name, 1) = Chr(1) Then s.Visible = xlSheetVisible
    If s.Visible = xlSheetVisible Then n = n + 1 'compte les feuilles visibles
    If Left(s.Name, 1) = Chr(1) Then s.Name = n 'nom définitif
Next
End Sub

Les feuilles dont les noms sont numériques sont affichées et renommées.

Les feuilles masquées ne sont pas comptées pour la numérotation.

A+

 

[YANOU38]

Bonjour job75, le forum,
Merci de vous penchez sur mon problème.
Quand je lance la macro, je perds la feuille 6... et du coup je pense que les feuilles qui suivent ne sont pas renommées en fonction de leur position.
Merci pour votre aide

 

[job75]

Quand je lance la macro, je perds la feuille 6...

Faudrait savoir ce que vous voulez !

Sur le fichier du post #23 la feuille "6" est en 7ème position donc elle est renommée "7".

 

[YANOU38]

Re-Bonjour job75, le forum,
Sur le post #21, j'avais noté :

Exemple : J'ai les feuilles PG1-Croq.1-Croq.2-Croq.3-Croq.4 et ma feuille importer prend le nom "6" qui est égal à sa position (La feuille "Récapitulatif" n'est pas prise en compte dans cette numérotation).

mais j'aurais dû le repréciser sur le post #23, pardonnez-moi.
Merci encore pour votre aide.

 

[job75]

Bon d'accord, alors :

Sub Renommer()
Dim s As Object, n%
Application.ScreenUpdating = False
For Each s In Sheets
    If IsNumeric(s.Name) Then s.Name = Chr(1) & s.Name 'nom provisoire
Next
For Each s In Sheets
    If Left(s.Name, 1) = Chr(1) Then s.Visible = xlSheetVisible
    If s.Name <> "Récapitulatif" And s.Visible = xlSheetVisible Then n = n + 1 'compte les feuilles visibles
    If Left(s.Name, 1) = Chr(1) Then s.Name = n 'nom définitif
Next
End Sub

 

[YANOU38]

Bonjour Job75, le forum,
Merci pour cette macro.
1 question :
- Si j'affiche PG2 et PG3 (vers cellules R5-R6)), ma première feuille numérotée passe à 8.
Est-il possible (sur la Feuille Récapitulatif) de retrouver la feuille 8 sur la ligne 5 et non sur la ligne 7 (sans décalage de ligne) ?
Merci pour votre aide.

 

[job75]

Bonjour YANOU38, le forum,

Vous avez une macro Snamelist, servez-vous en.

A+