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
311
Rabeto
R
M
  • Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
339
MCO2406
M
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
551
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
589
Clemee61
C
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
286
HANN
H
D
  • Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
290
DimiJuju
D
M
  • Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
351
Oneida
Oneida
V
  • Question
Microsoft 365 Sélection par défaut valeur dans liste déroulante
2
Réponses
16
Affichages
916
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
329
casualexcel
C
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
1 K
mathieu20
M

Membres actuellement en ligne

10 membres et 266 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
312 145
Messages
2 085 762
Membres
102 966
dernier inscrit
InitialPP