Cacher les lignes sous conditions

[anasimo]

Bonjour

Je vous met en joint un fichier exemple....je voudrais que je choisi dans la cellule C7 option Math, il faut que les autres lignes PC, SVT et philos soient masquées.....et quand je choisis PC les autres lignes soient masquées

Merci beaucoup...car ça va m'aider beaucoup dans un projet

 

[Jacky67]

Bonjour

Je vous met en joint un fichier exemple....je voudrais que je choisi dans la cellule C7 option Math, il faut que les autres lignes PC, SVT et philos soient masquées.....et quand je choisis PC les autres lignes soient masquées

Merci beaucoup...car ça va m'aider beaucoup dans un projet

Bonjour
Une proposition par vba

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [c7]) Is Nothing Or Target.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Rows("8:23").Hidden = True
    Select Case UCase(Target.Value)
    Case "MATH"
        Rows("8:11").Hidden = False
    Case "PC"
        Rows("12:14").Hidden = False
    Case "SVT"
        Rows("15:17").Hidden = False
    Case "PHILO"
        Rows("18:23").Hidden = False
    Case Else
        Rows("8:23").Hidden = False
    End Select
End Sub

 

[WTF]

Bonjour Anasimo,
Tu trouveras en PJ une proposition

 

[anasimo]

Merci beaucoup Jacku...c'est exactement ce que je veux.
WTF....Merci pour la proposition, je crois que ça marche pas