Bonjour à tous,
je suis débutant, j'essaie d'empiler des conditions.
L'idée est : en fonction d'une valeur de cellule, je souhaiterai afficher ou masquer un nombre de lignes dans deux selection diférentes.
- 1ere condition (valeur de P1), selection lignes de 4:11
- 2eme condition (valeur de Q1), selection lignes de 12:19
Il traite bien la 1 ere condition, mais pas correctement la deuxiéme.
Merci de votre aide
je suis débutant, j'essaie d'empiler des conditions.
L'idée est : en fonction d'une valeur de cellule, je souhaiterai afficher ou masquer un nombre de lignes dans deux selection diférentes.
- 1ere condition (valeur de P1), selection lignes de 4:11
- 2eme condition (valeur de Q1), selection lignes de 12:19
Il traite bien la 1 ere condition, mais pas correctement la deuxiéme.
Merci de votre aide
Code:
Public Sub nbposte()
' remise à 0 du contenu des cellules
'Dim ligne As Long
'For ligne = 4 To 60
'Range("B" & ligne) = ""
'Range("I" & ligne) = ""
'Range(("C" & ligne), ("E" & ligne)) = ""
'Range(("J" & ligne), ("L" & ligne)) = ""
'Next ligne
'1 ere Condition Valeur P1
If Range("P1") = "1" Then
Rows("4:11").EntireRow.Hidden = False
Rows("4:10").EntireRow.Hidden = True
ElseIf Range("P1") = "2" Then
Rows("4:11").EntireRow.Hidden = False
Rows("5:10").EntireRow.Hidden = True
ElseIf Range("P1") = "3" Then
Rows("4:11").EntireRow.Hidden = False
Rows("6:10").EntireRow.Hidden = True
ElseIf Range("P1") = "4" Then
Rows("4:11").EntireRow.Hidden = False
Rows("7:10").EntireRow.Hidden = True
ElseIf Range("P1") = "5" Then
Rows("4:11").EntireRow.Hidden = False
Rows("8:10").EntireRow.Hidden = True
ElseIf Range("P1") = "6" Then
Rows("4:11").EntireRow.Hidden = False
Rows("9:10").EntireRow.Hidden = True
ElseIf Range("P1") = "7" Then
Rows("4:11").EntireRow.Hidden = False
Rows("10").EntireRow.Hidden = True
Else
Rows("4:11").EntireRow.Hidden = False
End If
'2 eme Condition Valeur Q1
If Range("Q1") = "1" Then
Rows("12:19").EntireRow.Hidden = False
Rows("12:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "2" Then
Rows("12:19").EntireRow.Hidden = False
Rows("13:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "3" Then
Rows("12:19").EntireRow.Hidden = False
Rows("14:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "4" Then
Rows("12:19").EntireRow.Hidden = False
Rows("15:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "5" Then
Rows("12:19").EntireRow.Hidden = False
Rows("16:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "6" Then
Rows("12:19").EntireRow.Hidden = False
Rows("17:18").EntireRow.Hidden = True
ElseIf Range("Q1") = "7" Then
Rows("12:19").EntireRow.Hidden = False
Rows("18").EntireRow.Hidden = True
Else
Rows("12:19").EntireRow.Hidden = False
End If
End Sub