Discussion :

[Nikodemus]

Bonjour à tous,

Je possède un fichier EXCEL avec plusieurs onglets.
Je souhaiterais avoir une macro qui n'afficherait que les onglets contenant un certain intitulé et masquerait les autres.

Je m'explique :
Voici plusieurs onglets : "A-01" , "A-02" , "A-03" , "B-01" , ... "F-45"

J'ai un menu déroulant contenant des valeurs de A à Z. Je souhaiterais en sélectionnant par exemple "B" que tout mes onglets se masquent et que seul ceux contenant "B" soit affiché.

Es-ce possible à faire ?
Je sais comment masquer/afficher des onglets par vba, mais je bloque sur la partie "recherche de caractère dans un l'onglet"

Merci par avance de l'aide que vous pourrez m'apporter.
Cordialement.

[Philippe Tulliez]

Bonjour,
Ce que tu ne précises pas.
La lettre en question se retrouve comme première lettre du nom de la feuille, se retrouve toujours sur la cellule RC de toutes le feuilles, est à chercher dans une cellule quelconque d'une feuille

[Nikodemus]

Effectivement mes noms d'onglets commencent tous par une lettre.

J'ai une combobox dans un userform qui contient les lettres de A à Z.
Grâce à cette lettre sélectionnée, je veux afficher les onglets de mon fichier qui commence effectivement par la lettre sélectionnée.
(Si je sélectionne "B" dans mon menu déroulant je veux alors garder les onglets "B-01", "B-02", "B-03", etc... et masquer tout ceux que ne commence pas par "B".)
Je veux donc filtrer par les noms des onglets.

[Philippe Tulliez]

Bonjour,
Voici un exemple de code à adapter
Ici la lettre est le contenu de la cellule A2 de la feuille1 du classeur où se trouve le programme VBA mais il suffit d'utiliser la variable Lettre avec le UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Dim sht As Worksheet
 Dim lettre As String
 lettre = UCase(ThisWorkbook.Worksheets("Feuil1").Range("A2"))
 For Each sht In ThisWorkbook.Worksheets
   If sht.Name <> "Feuil1" Then ' On passe Feuil1
    sht.Visible = (lettre = UCase(Left(sht.Name, 1)))
   End If
 Next

[Nikodemus]

Je viens d'essayer un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name Like "*B*" Then
Sheets(i).Visible = True
Else
Sheets(i).Visible = False
End If
Next i

Finalement ça marche parfaitement comme ça.
Problème résolu.

Edit : Remplacer par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets(i).Name Like "*" & UserForm1.ComboBox1.Value & "*" Then