Masquer onglet suivant choix liste déroulante

[YANOU]

Bonjour à tous.

J'ai une cellule B3 sur un onglet "Questionnaire" qui me permet de masquer (ou non) l'onglet "Feuil1" en écrivant "1" dans cette case :

If [B3] = "1" Then
Sheets("Feuil1").Visible = False
ElseIf [B3] = "" Then
Sheets("Feuil1").Visible = True
End If
End Sub

J'ai voulu faire évoluer mon classeur en ajoutant une liste déroulante sur la cellule B3 (choix 1,2,3...), mais cela ne fonctionne plus (même quand mon choix est "1").
Quelle modification dois-je apporter pour que cela fonctionne ?
Merci pour votre aide.

 

[M12]

Bonjour

Voir si cela te convient

 

[Chris401]

Bonjour

Autre méthode : selon que la feuille indiquée en B3 est masquée ou affichée, on l'affiche ou on la masque

 

[Jacky67]

Bonjour,
Autre proposition...
Prend en compte d'éventuelle feuille ajoutée ou supprimée

 

[YANOU]

Re-bonjour.
Merci pour votre aide.
J'ai creusé un peu plus et suis arrivé à cela (fichier joint).
Par contre, si je veux rajouter un choix 3 qui masque les 2 feuilles "Descriptif réparation" et "Descriptif modification" cela ne fonctionne pas:
J'ai rajouter :
Case "Choix 3"
Sheets("Descriptif réparation").Visible = False
Sheets("Descriptif modification").Visible = False
dans mon code (?)

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub

  If Target.Address = "$A$1" Then

  Application.ScreenUpdating = False

  Select Case Target.Value

  Case "Réparation"

  Sheets("Descriptif réparation").Visible = True

  Sheets("Descriptif modification").Visible = False

  Case "Modification"

  Sheets("Descriptif réparation").Visible = False

  Sheets("Descriptif modification").Visible = True

  Case "Choix 3"
  Sheets("Descriptif réparation").Visible = False

  Sheets("Descriptif modification").Visible = False
End Select
  End If

End Sub

 

[Jacky67]

RE...
Avec ton choix de code

 

[YANOU]

Bonjour.
Merci pour votre aide.
La première macro fonctionne, cependant, ma feuille contient une deuxième macro qui me permettait de remplir la cellule F5 de l'onglet questionnaire en fonction de mon choix (clic sur la cellule E5 ou E6) en allant chercher l'adresse sur l'onglet "Adresse", mais cela ne fonctionne plus ?
Il ne doit pas y avoir grand chose, mais je ne trouve pas...

 

[Chris401]

Bonjour

Et faut que tu remettes ta Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:E6")) Is Nothing Then
Range("F5") = Sheets("Adresse").Range("E" & Target.Row)
End If
End Sub

 

[Jacky67]

re,
Je ne suis pas certain d'avoir compris l'aboutissement du fonctionnement de ce classeur......
Essaye ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$3" Then
  Application.ScreenUpdating = False
  Select Case Target.Value
  Case "Réparation"
  Sheets("Descriptif réparation").Visible = True
  Sheets("Descriptif modification").Visible = False
  Case "Modification"
  Sheets("Descriptif réparation").Visible = False
  Sheets("Descriptif modification").Visible = True
  Case "DESP"
  Sheets("Descriptif réparation").Visible = False
  Sheets("Descriptif modification").Visible = False
  End Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:E6")) Is Nothing Then
Range("F5") = Sheets("Adresse").Range("E" & Target.Row)
End If
End Sub

Edit:
Oupss!
Désolé Chris ,pour le doublon

 

[YANOU]

Re-bonjour.
Tout fonctionne.
M12, Chris401, Jacky67, un grand MERCI à vous pour votre aide et longue vie au site !
@+