Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer onglet suivant choix liste déroulante

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion YANOU
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

YANOU

Guest
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.
 

Pièces jointes

Trier par date Trier par votes
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 (?)
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
 

Pièces jointes

Vote positif 0 Vote négatif
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...
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour

Et faut que tu remettes ta Worksheet_SelectionChange
VB: 
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
 
Vote positif 0 Vote négatif
re,
Je ne suis pas certain d'avoir compris l'aboutissement du fonctionnement de ce classeur......
Essaye ceci
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
493
job75
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
196
sylvanu
J
  • Résolu(e)
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
7
Affichages
295
juju91
J
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
281
TooFatBoy
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
283
TooFatBoy
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
476
Yogean
Y
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
616
pat66
P
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
996
vgendron
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
1 K
isandre
I
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
508
sylvanu
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
302
JUAN45
J
J
  • Question Question
XL 2016 RechercheV sur liste déroulante !
Réponses
8
Affichages
878
Jaykerz
J
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
478
sylvanu
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
878
fanch55
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
727
AtTheOne
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
547
PMG
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
736
Gégé-45550
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Question Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
798
ralph45
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…