XL 2016 enlever une scrollbar

[ccilette]

bonjour,

un collègue m'a donné un fichier excel comprenant une scrollbar verticale et horizontale. Je trouve que cela ne sert à rien d'avoir les 2 réunies, voici le code, comment supprimer l'une ou l'autre, je ne trouve pas la réponse, merci de votre aide 🙂

Private Sub SpinButton1_Change()
If Spin_en_cours = False Then
SpinButton1.Min = 0
SpinButton1.Max = 2
Dim Date_Actuelle As Date, Date_Suivante As Date
Date_Actuelle = CDate([Date_Deb].Value) + 1
Application.EnableEvents = False
If SpinButton1.Value = SpinButton1.Max Then
Spin_en_cours = True
SpinButton1.Value = 1
Date_Suivante = DateSerial(Year(Date_Actuelle), Month(Date_Actuelle) + 1, 1)
[_DC].Value = DateDiff("d", Date - [Archive].Value, Date_Suivante)
ScrollBar1.Value = 0
ElseIf SpinButton1.Value = SpinButton1.Min Then
Spin_en_cours = True
SpinButton1.Value = 1
If Day(Date_Actuelle) > 1 Then
Date_Suivante = DateSerial(Year(Date_Actuelle), Month(Date_Actuelle), 1)
Else
Date_Suivante = DateSerial(Year(Date_Actuelle), Month(Date_Actuelle) - 1, 1)
End If
[_DC].Value = DateDiff("d", Date - [Archive].Value, Date_Suivante)
ScrollBar1.Value = 0
End If
Application.EnableEvents = True
Spin_en_cours = True = False
End If
End Sub
Private Sub ScrollBar1_Change()
[_SB].Value = ScrollBar1.Value
End Sub
Private Sub ScrollBar1_Scroll()
[_SB].Value = ScrollBar1.Value
End Sub
Sub Ce_Jour()
[_DC] = 0
[_SB] = 0
Planning.ScrollBar1.Value = 0
End Sub