Discussion :

[Ledaf]

Bonjour à tous.

Je vous explique rapidement mon problème. Voilà j'ai inséré une scrollbar dans un userform.
Je voudrai que:
min = 0.8
max = 2
Et que le pas soit de 0.05 lorsque j'appuie sur une des 2 fléches.
Mon problème est qu'il ne prend pas en compte les décimales.

Pouvez vous m'aider svp.

En vous remerciant

[LeXo]

tu contournes en changeant d'échelle

[fring]

Bonjour,

La valeur minimum d'incrémentation est 1 mais rien ne t'empêche de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
    With ScrollBar1
        .Min = 80 'Valeur mini
        .Max = 200 'Valeur maxi
 
        'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
        'clique entre le curseur de défilement et la flèche de défilement.
        .LargeChange = 20
 
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle ScrollBar
        '(La valeur par défaut = 1)
        .SmallChange = 5
    End With
End Sub
 
 
Private Sub ScrollBar1_Change()
    MsgBox ScrollBar1.Value / 100
End Sub

Et tu auras ton incrémentation souhaitée

[Ledaf]

Merci beaucoup ça marche nikel!!