Afficher les feuilles selon le contenu d'une cellule

chaelie2015 · 27 Mars 2020

Bonjour Forum
je souhaite afficher les feuilles selon le contenu de la cellule H3
si la cellule H3 = N-2 donc afficher les onglets "N","N-1" et "N-2" seulement la feuille"N-3" restera masquée
et ainsi de suite.
ce code est tres lent
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Niveau N").Visible = False
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
If [H3] = "N" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-1" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-2" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = True
Sheets("Niveau N-3").Visible = False
Else

End If

If [H3] = "N-3" Then
Sheets("Niveau N").Visible = True
Sheets("Niveau N-1").Visible = True
Sheets("Niveau N-2").Visible = True
Sheets("Niveau N-3").Visible = True
Else

End If
End Sub

Salutations

shinozak · 27 Mars 2020

Bonjour essaie ça,

VB:

Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H3")) Is Nothing Then
Dim Ws As Worksheet


For Each Ws In Sheets
Ws.Visible = True
Next Ws

If Range("H3") = "N-2" Then
Sheets("Niveau N-3").Visible = False

ElseIf Range("H3") = "N-1" Then
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False


ElseIf Range("H3") = "N" Then
Sheets("Niveau N").Visible = False
Sheets("Niveau N-1").Visible = False
Sheets("Niveau N-2").Visible = False
Sheets("Niveau N-3").Visible = False


End If
End If
End Sub

shinozak · 27 Mars 2020

Si ça te convient, tu peux clôturer le sujet, et mettre mon message comme solution

Staple1600 · 27 Mars 2020

Bonsoir le fil, shinozak

[aparté]

Lu dans la section dédiée à l'utilisation du forum" à dit:
(mis à jour le 17/1/2020)
L'idée n'est pas de demander aux demandeurs de signaler systématiquement que le problème semble résolu, cela reste leur choix et ne doit pas devenir une contrainte.

[/aparté]

shinozak · 27 Mars 2020

Merci pour l'information, c'est noté

Staple1600 · 27 Mars 2020

Re

•>shinozak
Avec le lien, c'est plus complet
https://www.excel-downloads.com/threads/prefixe-resolu-et-marquer-comme-solution.20029836/

chaelie2015 · 28 Mars 2020

Bonjour Forum,JM et shinozak
Désolé pour ce retard
Merci pour la réponse et la remarque.
et Bonne nuit.

Afficher les feuilles selon le contenu d'une cellule

chaelie2015

XLDnaute Accro

Pièces jointes

shinozak

XLDnaute Occasionnel

shinozak

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

shinozak

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires