masquer et afficher des ligne

[hambel]

bonjour a tous
j'ai petit problème j'arrive pas a masquer certaines ligne sur mon programme voila ce que je dois faire:

si B5=A et si B7=1 alors masquer ligne de 9 a 14
si B5=A et si B7=2 alors masquer ligne de 10 a 14
si B5=A et si B7=3 alors masquer ligne de 11 a 14
si B5=A et si B7=4 alors masquer ligne de 12 a 14
si B5=A et si B7=5 alors masquer ligne de 13 a 14
si B5=A et si B7=6 alors masquer ligne de 14


merci d'avance

 

[Papou-net]

Re : masquer et afficher des ligne

Bonjour hambel,

Voici comment je te propose de modifier ton code :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("3:14").Hidden = [B1] <> "oui"
If [B1] = "non" Then Rows("3:14").Hidden = True
If [B1] = "oui" Then Rows(4).Hidden = False

Rows("9:14").Hidden = [B5] <> "A"
If [B5] = "B" Then Rows("9:14").Hidden = True
If [B5] = "A" Then
  Rows("8:14").Hidden = True
  Range(Range("A7"), Range("A7").Offset(Range("B7"), 0)).EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

Bon WE.

Cordialement.

 

[hambel]

Re : masquer et afficher des ligne

merci papou-net bon week end