Private Sub ToggleButton1_Click()
Dim FR1$, FR2$, FR3$
FR1 = "37:42": FR2 = "49:54": FR3 = "43:48"
If ToggleButton1.Value Then
Rows(FR1).Hidden = True
Rows(FR2).Hidden = True
Rows(FR3).Hidden = False
End If
If Not ToggleButton1.Value Then
Rows(FR3).Hidden = True
Rows(FR1).Hidden = False
Rows(FR2).Hidden = True
End If
End Sub
"ici une barre horizontale de séparation"
Private Sub ToggleButton2_Click()
Dim FR1$, FR2$, FR3$
FR1 = "37:42": FR2 = "49:54": FR3 = "43:48"
If ToggleButton1.Value Then
Rows(FR1).Hidden = True
Rows(FR2).Hidden = False
Rows(FR3).Hidden = True
End If
If Not ToggleButton1.Value Then
Rows(FR3).Hidden = True
Rows(FR1).Hidden = False
Rows(FR2).Hidden = True
End If
End Sub