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

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
S

soan

XLDnaute Barbatruc
Inactif
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
J

jannine NOLAM

XLDnaute Nouveau
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
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Classeur1.xlsm
    15.5 KB · Affichages: 14
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@jannine NOLAM (salut sylvanu)

:oops: 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
J

jannine NOLAM

XLDnaute Nouveau
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
J

jannine NOLAM

XLDnaute Nouveau
soan à dit:
@jannine NOLAM (salut sylvanu)

:oops: 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
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Classeur1 (32).xlsm
    15.5 KB · Affichages: 5
Vote positif 0 Vote négatif
J

jannine NOLAM

XLDnaute Nouveau
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

Discussions similaires

R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
547
Rabeto
R
D
  • Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
190
Dubuyz1
D
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
358
sebastien176
S
petitbuzuc
  • Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
512
fanch55
fanch55
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
646
Chris Linefield
C
M
  • Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
739
MCO2406
M
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
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
1 K
Clemee61
C
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
527
HANN
H
D
  • Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
587
DimiJuju
D

Membres actuellement en ligne

11 membres et 112 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 058
Messages
2 115 812
Membres
112 550
dernier inscrit
tomate02