qui cachera et décrira la ligne une à la fois. Quelque chose semblable au button de rotation

J'ai cherché à poser de nombreuses questions, mais je ne trouve aucune réponse à ce que je tente de faire.
Je voudrais cacher et afficher les lignes. J'aime le button de rotation où vous pouvez cliquer sur la flèche vers le haut et vers le bas, mais si cela ne fonctionne pas, un button à cacher et d'autres à démonter.

I have sortinged few VBA codes but none of them worked the way I want. **1st VBA code**: following code works to hide multiple rows but all at once not one at a time. If ToggleButton1.Value = True Then 'This area contains the things you want to happen 'when the toggle button is not depressed Rows(4).EntireRow.Hidden = True Rows(5).EntireRow.Hidden = True Rows(6).EntireRow.Hidden = True Else 'This area contains the things you want to happen 'when the toggle button is depressed Rows(4).EntireRow.Hidden = False Rows(5).EntireRow.Hidden = False Rows(6).EntireRow.Hidden = False End If 2nd VBA code: Hide and unhides just one row. If ToggleButton1.Value = True Then 'This area contains the things you want to happen 'when the toggle button is not depressed Rows(4).EntireRow.Hidden = True Else 'This area contains the things you want to happen 'when the toggle button is depressed Rows(4).EntireRow.Hidden = False End If Someone please help! 

SpinButton1 est un spin-button ActiveX de la feuille de calcul (Min = 0, Max = 10 ou plusieurs lignes que vous souhaitez afficher / masquer)

A7 ici sera la rangée supérieure de l'set de lignes à afficher / caché

Le code va dans le module de feuille.

 Private Sub SpinButton1_Change() Dim r As Long, mx As Long r = Me.SpinButton1.Value mx = Me.SpinButton1.Max With Me.Range("A7") If r > 0 Then .Resize(r).EntireRow.Hidden = False If r < mx Then .Offset(r, 0).Resize(mx - r).EntireRow.Hidden = True End With End Sub