Réinitialiser contrôle slider

Bonjour,

J'ai un contrôle slider que je souhaite réinitialiser sur une sub de remise à zero.

J'ai essayé :

  Slider1.Value = 0
  Slider1.Refresh

Mais ça ne change pas l'aspect visuel du slider...

Quelqu'un a-t-il une solution ?
Merci

Bonjour,

pas de soucis sur 2019
eric

Bonjour eriiic,

Merci pour ta réponse, j'ai passé un loong moment à analyser pourquoi ça ne marchait pas sur mon code... Mon fichier étant trop lourg pour l'envoyer, j'ai essayer d'isoler ce qui semble être le problème et le reproduire sur ton fichier que je joins.

Pour ceux qui veulent éviter de télécharger le fichier, voici le code :

Option Explicit
Dim PrécValeurSlider

Private Sub CommandButton1_Click()
  Dim MesPages

  For Each MesPages In MultiPage1.Pages
    MultiPage1.Value = Mid(MesPages.Name, 5) - 1
  Next MesPages

    Slider1.Value = 0
End Sub

Private Sub Slider1_Change() 'rajout de l'eva pour les cervicales

  If InStr(1, TextBox50.Text, PrécValeurSlider) = 0 Then
      PrécValeurSlider = "EVA : " & Slider1.Value & "/10 "
    TextBox50.Text = TextBox50.Text & " " & PrécValeurSlider
      Else
    On Error GoTo errorHandler
    TextBox50.Text = Replace(TextBox50.Text, PrécValeurSlider, "EVA : " & Slider1.Value & "/10 ")
    On Error GoTo 0
    PrécValeurSlider = "EVA : " & Slider1.Value & "/10 "
      End If

  Exit Sub

errorHandler:
    PrécValeurSlider = "EVA : " & Slider1.Value & "/10 "
    TextBox50.Text = TextBox50.Text & " " & PrécValeurSlider

End Sub

Donc en l'état ça ne marche pas, mais si tu neutralises ceci en le mettant en commentaire :

  MultiPage1.Value = Mid(MesPages.Name, 5) - 1

OU si tu neutralises tout le private sub slider1_change, alors ça fonctionne..!

Enfin si tu mets multipage1.value = 1 juste avant de mettre ton slider1.value = 0, ça marche aussi. Donc nécessité d'activer au préalable la page du multipage, mais que dans une certaine configuration apparemment...

Bref ça dépasse mon entendement... Si quelqu'un y comprend quelque chose

Merci!

Bonjour,

j'en arrive à la même conclusion que toi.
J'ai quand tenté en le désignant plus précisément MultiPage1.page2.Slider1.Value = 0 ou MultiPage1(1).Slider1.Value = 0 mais c'est pareil.

Un Debug.Print Slider1.Value montre que Value ne change pas. Ce n'est pas que visuel et tu peux oublier les pistes .Refresh

Si tes pages sont toutes identiques en objets tu pourrais tenter avec un TabStrip
eric

Ok merci d'avoir creusé, c'est pas la première fois que j'ai des sortes de comportements étranges de vba avec le multipage...

Je vais me contenter de mettre multipage1.value = 1 juste avant de mettre slider1.value = 0, ça me paraît le plus simple... Mais c'est frustrant de ne pas comprendre !