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

Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion barichon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

barichon

Guest
Bonjour a tous,

Je cherche a cacher les feuilles dite "masqué" de mon sommaire automatique.

Ci-joint, mon classeur avec sa macro en VB.
Quelqu'un pourrait'il me proposer une modification du code afin de d'ohtenir ce comportement ?

Merci d'avance pour votre aide.

Cordialement,

barichon.
 

Pièces jointes

Trier par date Trier par votes
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Bonjour Barichon le forum
bah c'est une explication ??? !!!!! tu veux quoi, expliqué en Français si possible.
tu parles de comportement et tu mets une liste en rouge qui ne reprend pas toutes les feuilles
alors c'est quoi ton souci? tu veux seulement des liens hyper text avec le numéro des feuilles?
a te relire
a+
Papou😱
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Re Barichon le forum
bon sans explications c'est peut-être cela que tu veux
a+
papou😱

Code: 
Private Sub Worksheet_Activate()
    Dim sh$, i&
    For i = 3 To Sheets.Count
        sh = Sheets(i).Name
        Sheets("Sommaire").Hyperlinks.Add Anchor:=Cells(i + 2, 2), Address:="", SubAddress:="'" & sh & "'" & "!A1", TextToDisplay:=" " & i - 2
    Next
End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Bonjour,

Désolé, mais à la lecture de mon post j'ai l'impression que mon besoin est plutôt bien exprimé.
Je réexplique 😛

Le doc "macro numÇro de page_V3 5.xls‎ (72,0 Ko, 7 affichages)" que j'ai envoyé en pièce jointe est un classeur composé de plusieurs feuilles.

Un code VB sur ce classeur est présent, il permet de créer un sommaire automatique (tel que word le fait) sur la feuille nommé sommaire.

Ce sommaire automatique permet le listing des noms de chaque feuilles en y ajoutant en face le numéro de page (=ordre des feuilles ).

Je désirerais que mon listing se fasse seulement sur les feuilles visible de mon classeur de tel sorte que quand je "masque" une feuille, celle-ci n'apparaisse pas dans le sommaire.

Merci par avance de votre aide.
 
Vote positif 0 Vote négatif
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Bonjour barichon, Bonjour Paritec 🙂,

peut-être

Code: 
Private Sub Worksheet_Activate()
Dim Ws As Worksheet, Ongl As String, i As Integer
  Range("B5").CurrentRegion.ClearContents
  Range("B5").Select
  For i = 3 To Sheets.Count
    Ongl = Sheets(i).Name
    If Sheets(i).Visible = xlSheetVisible Then
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Ongl & "'" & "!A1", TextToDisplay:=Ongl
        ActiveCell.Offset(0, 1).Value = i - 1
        ActiveCell.Offset(1, 0).Select
    End If
  Next
End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Bonjour,

Génial, c'est exactement ça !

Merci à toi.

Sais-tu comment on fait pour mettre un boutton de retour au Sommaire sur chaque feuille du classeur ?

Cordialement,

Romain.
 
Vote positif 0 Vote négatif
Re : Ne pas afficher les feuilles "masqué" dans mon sommaire auto

Bonjour à tous,

Quelqu'un a t'il une idée sur ce sujet ?
J'ai cherché mais je n'ai rien trouvé d’éléments pour me faire avancé.
Je voudrais mettre un boutton de retour au Sommaire sur chaque feuille du classeur existante ou nouvelle ?

Merci par avance de votre aide.

Cordialement,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
604
Phil69970
P
  • Question Question
XL 2019 Sommaire et intégration de données provenant des feuilles
2
Réponses
16
Affichages
1 K
paulng
P
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
731
AIXELS
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
827
AtTheOne
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
661
INFINITY100
I
L
  • Résolu(e)
Microsoft 365 problème pour afficher mon userform
Réponses
3
Affichages
525
lathus jean-claude
L
L
  • Question Question
Microsoft 365 Liste pour changer de feuilles sur toutes les feuilles du classeur
Réponses
4
Affichages
966
lolo_excelbeginner
L
C
  • Résolu(e)
XL 2016 Afficher les lignes groupées de plusieurs feuilles à la fois
Réponses
6
Affichages
995
Phil69970
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
C
  • Question Question
XL 2016 Excel (sommaire + tri des feuilles ) erreur dans mon VBA
Réponses
1
Affichages
1 K
Cattleya97
C
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
K
  • Question Question
Microsoft 365 Formule INDEX/EQUIV avec plusieurs valeurs pour une même en-tête
Réponses
2
Affichages
2 K
KLfy
K
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
  • Résolu(e)
Microsoft 365 Filtrer un tableau dans une feuille
2
Réponses
20
Affichages
2 K
Electron24
A
  • Résolu(e)
XL 2013 Actionner les commandes présentes dans d'autres feuilles
Réponses
3
Affichages
1 K
arnoldbrice19
A
D
  • Question Question
XL 2016 Calculer et afficher le nombre d'occurences de plusieurs feuilles dans une feuille recapitulative
Réponses
8
Affichages
3 K
dmayorie
D
C
  • Question Question
Microsoft 365 Ne pas afficher les zéros si retour de formule vide dans nouveau classeur
Réponses
2
Affichages
1 K
choup67
C
I
  • Question Question
XL 2010 La fonction SOMME.SI.ENS() me renvoie l'erreur #VALEUR!
Réponses
7
Affichages
2 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…