XL 2013 Afficher ou masquer des onglets selon valeur d’une cellule par VBA

L

Lolote83

XLDnaute Barbatruc

• 1 Février 2022

• #2

Bonjour FIFIST,
Voici ton fichier en retour
Cordialement
@+ Lolote83

 

Pièces jointes

• Copie de FIFIST - AfficheMasqueOnglets.xlsm

  24.4 KB · Affichages: 20

Vote positif 0 Vote négatif

patty58

XLDnaute Occasionnel

• 1 Février 2022

• #3

Bonjour à tous

Vois cela
Bon courage

 

Pièces jointes

• FifiSt_1.xlsm

  33 KB · Affichages: 8

Vote positif 0 Vote négatif

F

FifiSt

XLDnaute Nouveau

• 1 Février 2022

• #4

Lolote83 à dit:

Bonjour FIFIST,
Voici ton fichier en retour
Cordialement
@+ Lolote83

Cliquez pour agrandir...

Merci beaucoup pour ton aide
Cordialement fifi

 

Vote positif 0 Vote négatif

F

FifiSt

XLDnaute Nouveau

• 1 Février 2022

• #5

patty58 à dit:

Bonjour à tous

Vois cela
Bon courage

Cliquez pour agrandir...

Bonjour
Merci beaucoup mais cela ne correspond malheureusement pas à ce que je souhaite

Je désire afficher tous les onglets qui ont en A1
La référence recherchée :
l’onglet qui porte son nom
Mais aussi les onglets des salariés qui correspondent

Cordialement
Fifi

 

Vote positif 0 Vote négatif

patty58

XLDnaute Occasionnel

• 1 Février 2022

• #6

Excuse j'avais mal lu
Mais si lolote t'a donné la solution, c'est bon
Bonne fin de journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2022

• #7

Bonjour FifiSt, Lolote83,patty58,

Une autre solution avec le classeur protégé pour éviter que l'ordre des feuilles soit modifié :

VB:

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, [E11]) Is Nothing Then Exit Sub
Dim x$, i%, w As Worksheet
x = UCase(CStr([F11]))
ThisWorkbook.Unprotect "FifiSt" 'ôte la protection du classeur
For i = 5 To Worksheets.Count
    Set w = Worksheets(i)
    w.Visible = IIf(UCase(w.Cells(1)) = x, xlSheetVisible, xlSheetHidden) 'ou xlSheetVeryHidden
Next
ThisWorkbook.Protect "FifiSt" 'rétablit la protection du classeur
End Sub

A+

 

Pièces jointes

• exemple(1).xlsm

  27.2 KB · Affichages: 8

Vote positif 0 Vote négatif