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

Sommaire avec sélection

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion La Vouivre
  • 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

La Vouivre

XLDnaute Occasionnel
Bonjour à tous et un très bon week-end
je reviens vous solliciter pour modifier une macro, je voudrais faire un sommaire, la macro le fais parfaitement, mais je voudrais que certaine page masquée n’apparaisse pas dans le sommaire
et je ne trouve pas la ligne de code à ajouter.
Merci à tous pour votre aide


Voila le code :
Private Sub Worksheet_Activate()
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess

End Sub
 
Trier par date Trier par votes
Re : Sommaire avec sélection

Bonjour,
Code: 
Private Sub Worksheet_Activate()
[C5:C100].ClearContents
x = 5
For i = 2 To Sheets.Count
    Set f = Sheets(i)
    nf = f.Name
    If f.Visible Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 3), Address:="", _
        SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
        x = x + 1
    End If
Next
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Sommaire avec sélection

Merci pour votre aide
J’ai encore une demande, la macro fonctionne comme je le désir, mais j’ai une feuille sommaire qui est recopiée dans la liste de la feuille sommaire, comment je peux ajouter en plus une sélection de feuilles à ne pas lister
 
Vote positif 0 Vote négatif
Re : Sommaire avec sélection

Re,
Un petit effort !
Tu connais la propriété "Name" (tu l'as écris toi même), il suffit de rajouter cette condition
Code: 
If f.Visible And UCase(nf) <> "SOMMAIRE" Then
A+
kjin
 
Vote positif 0 Vote négatif
Re : Sommaire avec sélection

Merci beaucoup l’ami Kjin
Excuse-moi d’insister, mais j’ai toujours la feuille sommaire avec le lien hypertexte dans la liste ,et je voudrais qu’elle n’apparaisse plus .
 
Vote positif 0 Vote négatif
Re : Sommaire avec sélection

Re,
La Vouivre à dit:
Un oubli de ma part
La feuille sommaire n’est pas masquée
Cliquez pour agrandir...
Code: 
Private Sub Worksheet_Activate()
[C5:C100].ClearContents
x = 5
For i = 2 To Sheets.Count
    Set f = Sheets(i)
    nf = f.Name
    If UCase(nf) <> "SOMMAIRE" Then
        If f.Visible Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 3), Address:="", _
            SubAddress:="'" & nf & "'" & "!A1", TextToDisplay:=nf
            x = x + 1
        End If
    End If
Next
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Sommaire avec sélection

Merci beaucoup l’ami Kjin pour ce magnifique travail de professionnel la macro fonctionne exactement comme je le souhaitais .je te souhaite un très bon week-end

Pour les amis non expérimentés dans Excel.
Crée une feuille sommaire dans le classeur
Le texte de la macro se met directement dans le code de la feuille « click droit sur l’onglet et visualiser le code » la macro fait automatiquement un sommaire trier des feuilles non masquées, ajoute les nouvelles feuilles qui son crée.
Bon week-end à tous
 
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

Discussions similaires

  • Question Question
XL 2016 Boucle sur plusieurs plages pour les Trier
Réponses
3
Affichages
108
Nicolas JACQUIN
  • Question Question
XL 2016 trier 4 colonnes d'une plage de cellules
Réponses
8
Affichages
228
KTM
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Question Question
Microsoft 365 Ajouter une colonne
Réponses
0
Affichages
535
Juliopapadopulos
J
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
4 K
sylvanu
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
2 K
Amigo
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
2 K
halecs93
L
  • Question Question
XL 2016 Trier les lignes
Réponses
5
Affichages
559
labombola46
L
C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
T
  • Question Question
XL 2016 Code VBA sous un macos
Réponses
4
Affichages
627
telemarrk
T
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
829
crazy
C
M
  • Question Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
950
AtTheOne
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
2
Réponses
21
Affichages
2 K
job75
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
  • Question Question
Microsoft 365 Lien hypertexte
Réponses
5
Affichages
796
Chasse
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…