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

sylvanu à dit:

Je n'avais pas fait attention au Q44.
Votre liste déroulante est bien en Q43 ?

Cliquez pour agrandir...

sylvanu à dit:

Evidemment, vos feuilles s'appellent Titre1 et 2 et non Feuil2 et 3.
Il fallait adapter la macro comme ceci :

VB:

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("Titre1").Visible = True: Else Sheets("Titre1").Visible = False
    End If
    If Not Intersect(Target, [Q43]) Is Nothing Then
        If LCase([Q43]) = "oui" Then Sheets("Titre2").Visible = True Else Sheets("Titre2").Visible = False
    End If
Fin:
End Sub

Cliquez pour agrandir...

soan à dit:

@jannine NOLAM

ah ben oui ! c'est tout de suite plus clair avec un fichier ! 🙂

ton fichier en retour, avec une toute petite amélioration de présentation. 😉​

code VBA de Feuil1 :

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("Titre1").Visible = (.Value = "Oui")
    ElseIf .Address = "$Q$43" Then
      Worksheets("Titre2").Visible = (.Value = "Oui")
    End If
  End With
End Sub

et finalement, c'était bien 2 "Oui" ! 😜

soan

Cliquez pour agrandir...