Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Créer Sommaire

Y

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Essai.xlsm
    156.5 KB · Affichages: 36
Trier par date Trier par votes
Y

YANOU38

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • 16004-Essai.xlsm
    273.7 KB · Affichages: 7
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • 16004-Essai.xlsm
    285.8 KB · Affichages: 6
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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
 

Pièces jointes

  • 16004-Essai.xlsm
    296 KB · Affichages: 10
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour YANOU38,

Vous pouvez à tout moment exécuter cette macro :
VB: 
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+
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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).
Cliquez pour agrandir...
mais j'aurais dû le repréciser sur le post #23, pardonnez-moi.
Merci encore pour votre aide.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bon d'accord, alors :
VB: 
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
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • 16004-Essai.xlsm
    298.9 KB · Affichages: 4
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Résolu(e)
XL 2019 index equiv avec decalage
Réponses
4
Affichages
592
escudo
E
M
  • Question
XL 2019 Bouton sur sommaire ou interface
Réponses
3
Affichages
424
herve62
C
  • Question
Autres macros Excel
2 3 4
Réponses
58
Affichages
2 K
Cheminotbelgiantrain
C
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
344
job75
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
599
filiph79
F
T
  • Résolu(e)
Microsoft 365 Créer un onglet pour chaque thème contenant les titres en doublons associés à ce thème
2
Réponses
25
Affichages
736
Toucan72
T
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
459
Nel'
N
S
  • Résolu(e)
création d'identifiant unique
Réponses
2
Affichages
670
sidach
S
P
  • Question
XL 2019 Sommaire et intégration de données provenant des feuilles
2
Réponses
16
Affichages
1 K
paulng
P
  • Résolu(e)
XL 2016 Optimisation des fichiers Excel volumineux
Réponses
4
Affichages
258
Armisa
N
  • Question
Microsoft 365 VBA - Quand cellule vide un mot s'y insert
Réponses
5
Affichages
273
riton00
  • Résolu(e)
XL 2013 (RESOLU) Récapitulation des Feuilles 'Traitement Absence' dans la Feuille 'Traitement Absence Global'
Réponses
7
Affichages
933
chaelie2015
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
831
13Hubert
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
631
Lyrix
L
B
  • Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
357
bnolwalid
B
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
588
chaelie2015
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
545
Corentin26270
C
M
  • Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
976
ManuXZ
M
P
  • Résolu(e)
XL 2019 Couleur recopiée automatiquement sur la couleur d'une autre cellule.
Réponses
5
Affichages
846
sylvanu
S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
554
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…