Liste déroulante et masquer ligne

Salut, je suis débutant et j'ai des soucis avec mon code. À la base ça fonction bien selon le choix que je fais mais le problème que j'ai c'est que si par exemple je sélectionne une des options qui masque les lignes et que par la suite de selection l'option "Reliure Caise" les ligne réapparaisses pas et je ne voit pas quoi mettre de plus dans mon code

Private Sub Worksheet_change(ByVal target As Range)
If target.Column = 3 And target.Row = 11 Then
If target.Value = "Reliure Souple" Then
Application.Rows("15:16").Select
Application.Selection.EntireRow.Hidden = True
ElseIf target.Value = "Reliure Caisse" Then
Application.Rows("15:16").Select
Application.Selection.EntireRow.Hidden = False
ElseIf target.Value = "Reliure Brochée" Then
Application.Rows("15:16").Select
Application.Selection.EntireRow.Hidden = True
End If
End If
End Sub

Merci pour votre aide

Bonjour et bienvenu sur Excel Pratique

Un fichier est TOUJOURS le bienvenu

Pour mettre du code utilisez </>

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$C$11" Then Exit Sub
  Rows("15:16").EntireRow.Hidden = False
  If Target.Value = "Reliure Souple" Then
    Application.Rows("15:16").EntireRow.Hidden = True
  ElseIf Target.Value = "Reliure Brochée" Then
    Application.Rows("15:16").EntireRow.Hidden = True
  End If
End Sub

A+ François

Merci fanfan38 c'est très apprécié

Rebonjour, comme mentionné plus bas ma formule fonctionne bien mais ceci pour ma liste en C11, si j'aimerais faire en plus la même chose pour d'autre liste sur la même feuille, comment je dois formuler mon code disons par exemple que l'autre liste est en C14

Merci

On utilisera select case

Private Sub Worksheet_change(ByVal target As Range)
   Select Case target.Address
     Case Is = "$C$11"
       Rows("15:16").EntireRow.Hidden = False
       Application.Cells(11, 1).Value = 2
       If target.Value = "Reliure Souple" Then
         Application.Cells(11, 1).Value = 1
         Application.Rows("15:16").EntireRow.Hidden = True
       ElseIf target.Value = "Reliure Brochée" Then
         Application.Cells(11, 1).Value = 3
         Application.Rows("15:16").EntireRow.Hidden = True
       End If
     Case Is = "$C$14"

   End Select
End Sub

A+ François

Merci mais quand je pense avoir compris la logique, cela ne fonctionne pas,

j'ai ajusté mon code en mentionnant de cacher la ligne 13 (portion C14) et j'aimerais que si je sectionne Impression Recto ou Impression Recto / Verso que la ligne s'affiche mais présentement la ligne s'affiche seulement quand je sélectionne Impression Recto / Verso

Merci pour votre aide, je vais finir par comprendre

Ah! l'informatique

Sur ta feuille "Scale" tu as "Impression Recto "

et dans ta macro

tu as "Impression Recto"

Pour excel c'est pas la même chose

Donc ou tu enléves l'espace dans ta validation de données ou tu ajoutes un espace dans ta macro

A+ François

Merci mais sérieux, je sais pas comment tu fais lol j'avais jamais remarqué que ma valeur dans mon tableau avait été enregistrée avec une espace de plus sans cliquez dans la cellule c'est quelque chose que tu vois pas. Encore un gros merci