Simplification de code

[djchou]

Bonjour tout le monde,

j'aurais voulu savoir si vous aviez une idée pour simplifier ce code :

Private Sub CommandButton1_Click()

Set plage1 = Range("A10:A20")
Set plage2 = Range("A21:A30")
Set plage3 = Range("A31:A40")
Set plage4 = Range("A41:A50")

If optZone1 = True Then
plage1.EntireRow.Hidden = False
plage2.EntireRow.Hidden = True
plage3.EntireRow.Hidden = True
plage4.EntireRow.Hidden = True
End If

If optZone2 = True Then
plage1.EntireRow.Hidden = True
plage2.EntireRow.Hidden = False
plage3.EntireRow.Hidden = True
plage4.EntireRow.Hidden = True
End If

If optZone3 = True Then
plage1.EntireRow.Hidden = True
plage2.EntireRow.Hidden = True
plage3.EntireRow.Hidden = False
plage4.EntireRow.Hidden = True
End If

If optZone4 = True Then
plage1.EntireRow.Hidden = True
plage2.EntireRow.Hidden = True
plage3.EntireRow.Hidden = True
plage4.EntireRow.Hidden = False
End If

End Sub

Le but étant d'afficher une plage (4 au choix) selon la sélection de l'utilisateur.

 

[Roland_M]

Re : Simplification de code

bonjour

toujours ceci !

Private Sub CommandButton1_Click()
Range("A10:A50").EntireRow.Hidden = True
If optZone1 = True Then Range("A10:A20").EntireRow.Hidden = False
If optZone2 = True Then Range("A21:A30").EntireRow.Hidden = False
If optZone3 = True Then Range("A31:A40").EntireRow.Hidden = False
If optZone4 = True Then Range("A41:A50").EntireRow.Hidden = False
End Sub

 

[djchou]

Re : Simplification de code

Effectivement c'est plus simple! Merci 🙂

 

[Modeste geedee]

Re : Simplification de code

Bonsour®

Private Sub CommandButton1_Click()
Range("A10:A20").EntireRow.Hidden = OptZone1
Range("A21:A30").EntireRow.Hidden = OptZone2
Range("A31:A40").EntireRow.Hidden = OptZone3
Range("A41:A50").EntireRow.Hidden = OptZone4
End Sub

 

[Roland_M]

Re : Simplification de code

encore mieux Modeste !
tout bête ! fallait y penser !

EDIT

il me semble qu'il veut l'inverse !?

Private Sub CommandButton1_Click()
Range("A10:A20").EntireRow.Hidden = not OptZone1
Range("A21:A30").EntireRow.Hidden = not OptZone2
Range("A31:A40").EntireRow.Hidden = not OptZone3
Range("A41:A50").EntireRow.Hidden = not OptZone4
End Sub