Reduire un code If

[Ilino]

Bonjour Forum
je souhaite reduire mon code ci dessous

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Rows("8:9").Hidden = True
If [C8] = 1 Then Rows("8:9").Hidden = False

Rows("10:11").Hidden = True
If [C10] = 1 Then Rows("10:11").Hidden = False

Rows("12:13").Hidden = True
If [C12] = 1 Then Rows("12:13").Hidden = False

Rows("14:15").Hidden = True
If [C14] = 1 Then Rows("14:15").Hidden = False

Rows("16:17").Hidden = True
If [C16] = 1 Then Rows("16:17").Hidden = False

Rows("18:19").Hidden = True
If [C18] = 1 Then Rows("18:19").Hidden = False

Rows("20:21").Hidden = True
If [C20] = 1 Then Rows("20:21").Hidden = False

Rows("22:23").Hidden = True
If [C22] = 1 Then Rows("22:23").Hidden = False


Rows("24:25").Hidden = True
If [C24] = 1 Then Rows("24:25").Hidden = False

Rows("26:273").Hidden = True
If [C26] = 1 Then Rows("26:27").Hidden = False
End Sub

GRAZIE

 

[Roland_M]

Re : Reduire un code If

bonjour,

Private Sub xWorksheet_selectionChange(ByVal Target As Range)
Rows("8:9").Hidden = True And [C8] <> 1
Rows("10:11").Hidden = True And [C10] <> 1
Rows("12:13").Hidden = True And [C12] <> 1
Rows("14:15").Hidden = True And [C14] <> 1
Rows("16:17").Hidden = True And [C16] <> 1
Rows("18:19").Hidden = True And [C18] <> 1
Rows("20:21").Hidden = True And [C20] <> 1
Rows("22:23").Hidden = True And [C22] <> 1
Rows("24:25").Hidden = True And [C24] <> 1
Rows("26:27").Hidden = True And [C26] <> 1
End Sub

EDIT:

salut Caillou !
effectivement, si toutefois il y a toujours un pas de 2 !?

 

[Caillou]

Re : Reduire un code If

Bonjour,

Il me semble que le code ci-dessous devrait faire la meme chose !

Rows("8:273").Hidden = True
For i = 8 To 26 Step 2
  If Cells(i, "C") = 1 Then Rows(i & ":" & i + 1).Hidden = False
Next

Caillou

 

[Efgé]

Re : Reduire un code If

Bonjour à tous

Une autre:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
For i = 10 To 24 Step 2
    Rows(i & ":" & i + 1).Hidden = Cells(i, 3) <> 1
Next i
Rows("26:273").Hidden = [C26] <> 1
End Sub

Cordialement

 

[Pierrot93]

Re : Reduire un code If

Bonjour à tous,

avec un peu de retard une autre proposition, pas sur par contre qu'il soit judicieux d'utiliser l'événement "selectionchange"...

Option Explicit
Sub test()
Dim i As Integer
Rows("8:27").Hidden = False
For i = 8 To 26 Step 2
   Cells(i, 3).Resize(2).EntireRow.Hidden = Not Cells(i, 3) = 1
Next i
End Sub

bon après midi
@+

 

[Ilino]

Re : Reduire un code If

Pierrot, Efgé,Caillou,Roland Bonjour
Merci Énormément pour vos reponses (j ai le choix 😱 )
Grazie