XL 2016 utilisation de la macro "worksheet_change" plusieurs fois dans la même feuille

Créer une discussion
Répondre

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
J

jannine NOLAM

XLDnaute Nouveau
Bonjour tout le monde,

La macro suivante se situant sur la feuille 1, me permet de masquer la feuille 2 lorsque je choisis "Non" dans ma liste déroulante se situant en Q12 et de l'afficher lorsque je choisis "Oui".

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim titre As Variant
titre = Range("Q12")

 
    If Not Intersect(Target, Range("Q12")) Is Nothing Then
        Select Case titre
            Case Is = "Oui"
                Sheets("titre").Visible = True
            Case Is = "Non"
                Sheets("titre").Visible = False
        End Select
    End If

End Sub

J'aimerais utiliser la même macro sur la même feuille, soit la feuille 1, mais j'aimerais qu'elle me permette de masquer la feuille 3 lorsque je choisis "Non" dans une nouvelle liste déroulante se situant en Q43 et d'afficher la feuille 3 lorsque je choisi "Oui" en Q44.

Pouvez vous m'aider s'il vous plaît ?

Merci d'avance pour votre aide.
 
Trier par date Trier par votes
Bonjour jannine,

je te propose ce code VBA :

VB: 
Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$Q$12" Then
      Worksheets("titre").Visible = (.Value = "Oui")
    ElseIf .Address = "$Q$44" Then
      Worksheets("Feuil3").Visible = (.Value = "Oui")
    End If
  End With
End Sub

soan
 
Vote positif 0 Vote négatif
soan à dit:
Bonjour jannine,

je te propose ce code VBA :

VB: 
Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$Q$12" Then
      Worksheets("titre").Visible = (.Value = "Oui")
    ElseIf .Address = "$Q$44" Then
      Worksheets("Feuil3").Visible = (.Value = "Oui")
    End If
  End With
End Sub

soan
Cliquez pour agrandir...
Bonjour Soan,
Ca ne marche pas...
Merci quand même 😉
 
Vote positif 0 Vote négatif
Bonjour Jannine,
Un essai en PJ avec :
VB: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Dim titre As Variant
    If Not Intersect(Target, [Q12]) Is Nothing Then
        If [Q12] = "OUI" Then: Sheets("Feuil2").Visible = True: Else Sheets("Feuil2").Visible = False
    End If
    If Not Intersect(Target, [Q43]) Is Nothing Then
        If [Q43] = "OUI" Then Sheets("Feuil3").Visible = True Else Sheets("Feuil3").Visible = False
    End If
Fin:
End Sub
NB: je ne comprends pas comment votre macro fonctionne car Sheets("titre").Visible = False avec des guillemets c'est une chaine qui vaut titre et non le contenu de la variable titre.
 

Pièces jointes

Vote positif 0 Vote négatif
@jannine NOLAM (salut sylvanu)

😳 ooooppppss !

pour le 2ème, j'ai oublié de mettre "Non" au lieu de "Oui" !

ça donne :

VB: 
Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$Q$12" Then
      Worksheets("titre").Visible = (.Value = "Oui")
    ElseIf .Address = "$Q$44" Then
      Worksheets("Feuil3").Visible = (.Value = "Non")
    End If
  End With
End Sub

si c'est ok, tant mieux ! 🙂 sinon :

* as-tu bien mis Option Compare Text à droite de Option Explicit ?

* précise au juste ce qui ne va pas

* éventuellement, joins un fichier exemple (sans données confidentielles)

soan
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Jannine,
Un essai en PJ avec :
VB: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Dim titre As Variant
    If Not Intersect(Target, [Q12]) Is Nothing Then
        If [Q12] = "OUI" Then: Sheets("Feuil2").Visible = True: Else Sheets("Feuil2").Visible = False
    End If
    If Not Intersect(Target, [Q43]) Is Nothing Then
        If [Q43] = "OUI" Then Sheets("Feuil3").Visible = True Else Sheets("Feuil3").Visible = False
    End If
Fin:
End Sub
NB: je ne comprends pas comment votre macro fonctionne car Sheets("titre").Visible = False avec des guillemets c'est une chaine qui vaut titre et non le contenu de la variable titre.
Cliquez pour agrandir...
Bonjour à toi,

C'est exactement ce que je veux faire, mais dès que je copie ton code et que je le colle sur mon doc ca ne marche plus...
Je ne comprend pas pourquoi ...

Merci quand même pour ton aide 🙂
 
Vote positif 0 Vote négatif
soan à dit:
@jannine NOLAM (salut sylvanu)

😳 ooooppppss !

pour le 2ème, j'ai oublié de mettre "Non" au lieu de "Oui" !

ça donne :

VB: 
Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$Q$12" Then
      Worksheets("titre").Visible = (.Value = "Oui")
    ElseIf .Address = "$Q$44" Then
      Worksheets("Feuil3").Visible = (.Value = "Non")
    End If
  End With
End Sub

si c'est ok, tant mieux ! 🙂 sinon :

* as-tu bien mis Option Compare Text à droite de Option Explicit ?

* précise au juste ce qui ne va pas

* éventuellement, joins un fichier exemple (sans données confidentielles)

soan
Cliquez pour agrandir...
J'ai le malheur de t'annoncer que ca ne marche pas non plus... Pour le fichier, la PJ de sylvanu est très bien. 🙂
 
Vote positif 0 Vote négatif
Essayez avec ce code, il est insensible à la casse :
VB: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Dim titre As Variant
    If Not Intersect(Target, [Q12]) Is Nothing Then
        If LCase([Q12]) = "oui" Then: Sheets("Feuil2").Visible = True: Else Sheets("Feuil2").Visible = False
    End If
    If Not Intersect(Target, [Q43]) Is Nothing Then
        If LCase([Q43]) = "oui" Then Sheets("Feuil3").Visible = True Else Sheets("Feuil3").Visible = False
    End If
Fin:
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
sylvanu à dit:
Essayez avec ce code, il est insensible à la casse :
VB: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
Dim titre As Variant
    If Not Intersect(Target, [Q12]) Is Nothing Then
        If LCase([Q12]) = "oui" Then: Sheets("Feuil2").Visible = True: Else Sheets("Feuil2").Visible = False
    End If
    If Not Intersect(Target, [Q43]) Is Nothing Then
        If LCase([Q43]) = "oui" Then Sheets("Feuil3").Visible = True Else Sheets("Feuil3").Visible = False
    End If
Fin:
End Sub
Cliquez pour agrandir...
Ca ne marche toujours pas...
 
Vote positif 0 Vote négatif
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

Discussions similaires

R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
681
Rabeto
R
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
342
Pierreavecunp
P
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
436
ManuEven
M
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
579
vgendron
vgendron
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
606
sebastien176
S
M
  • Question Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
950
MCO2406
M
petitbuzuc
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
766
fanch55
fanch55
P
  • Résolu(e)
XL 2010 Réduire la macro
Réponses
2
Affichages
542
Panda79360
P
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
398
Lu76Fer
Lu76Fer
J
  • Question Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
506
Phil69970
Phil69970
R3n0W
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
596
R3n0W
R3n0W
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
769
HANN
H
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
726
DimiJuju
D
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
635
Oneida
Oneida
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
794
Zonmé
Z
V
  • Question Question
Microsoft 365 Sélection par défaut valeur dans liste déroulante
2
Réponses
16
Affichages
2 K
vby
V
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
701
casualexcel
C
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
862
Mody200
M
Retour