Bonjour à tous du forum,
je reviens à mon fichier avec beaucoup de feuilles,
comme il y a trop de feuilles et aulieu de scroller les onglets pour chercher les onglets,
avec un USF je sélectionne une feuille,
Comment toutes les feuilles sont cachées, sauf une liste de 5 feuilles ?,
( tenir compte que les feuilles de cette liste peuvent changer, ou les noms peuvent changer ),
si j'utilise p.ex. :
j = Sheets.Count
For i = 1 To j
If Sheets(i).Name = "liste_data" Or Sheets(i).Name = "exemple_data" Then
Sheets(i).Visible = True
Else
Sheets(i).Visible = False
...
mais si par après les noms des feuilles changent, comment l'inclure dans la macro, aulieu de rechercher dans la macro ces fichiers et changer le texte de nouveau.
Est-ce qu'on doit également move la liste de ces feuilles au début ?
p.ex.: Sheets("cn").Move Before:=Sheets(1)
j'utilise actuellement la macro suivante (mais ne sais pas comment inclure la condition d'une liste de 5 feuilles):
Sub hide_feuilles() ' masquer de la feuille 6 à la dernière feuille :
For cn = 6 To Sheets.Count
Sheets(cn).Visible = xlSheetHidden
Next
End Sub
je reviens à mon fichier avec beaucoup de feuilles,
comme il y a trop de feuilles et aulieu de scroller les onglets pour chercher les onglets,
avec un USF je sélectionne une feuille,
Comment toutes les feuilles sont cachées, sauf une liste de 5 feuilles ?,
( tenir compte que les feuilles de cette liste peuvent changer, ou les noms peuvent changer ),
si j'utilise p.ex. :
j = Sheets.Count
For i = 1 To j
If Sheets(i).Name = "liste_data" Or Sheets(i).Name = "exemple_data" Then
Sheets(i).Visible = True
Else
Sheets(i).Visible = False
...
mais si par après les noms des feuilles changent, comment l'inclure dans la macro, aulieu de rechercher dans la macro ces fichiers et changer le texte de nouveau.
Est-ce qu'on doit également move la liste de ces feuilles au début ?
p.ex.: Sheets("cn").Move Before:=Sheets(1)
j'utilise actuellement la macro suivante (mais ne sais pas comment inclure la condition d'une liste de 5 feuilles):
Sub hide_feuilles() ' masquer de la feuille 6 à la dernière feuille :
For cn = 6 To Sheets.Count
Sheets(cn).Visible = xlSheetHidden
Next
End Sub
Dernière édition: