Toupie

[Hulk]

Bonjour à tous,

Je souhaiterais afficher une liste de données dans une cellule grace à une toupie.

Est-ce possible ?

Petit fichier joint.

Merci pour votre aide !

Hulk.

 

[kjin]

Re : Toupie

Bonjour,
En mettant la propriété Min du Spinbutton à 1 et non 0

Private Sub SpinButton1_SpinDown()
Range("E2") = Range("A" & SpinButton1)
End Sub

Private Sub SpinButton1_SpinUp()
Range("E2") = Range("A" & SpinButton1)
End Sub

A+
kjin

 

[Hulk]

Re : Toupie

Salut Kjin et salut à tous,

Ok impec et merci pour ton aide, c'est super.

Juste encore deux petites choses:

Supposons que ma liste est en J15:J32, j'ai essayé ça mais ça ne joue pas 😀

Private Sub SpinButton1_SpinDown()
Range("E2") = Range("J15:J32" & SpinButton1)
End Sub

Private Sub SpinButton1_SpinUp()
Range("E2") = Range("J15:J32" & SpinButton1)
End Sub

Et aussi est-ce possible d'inverser les boutons, c'est à dire quand on clique sur monter ben qu'il monte et inversement ?

Merci encore pour ton aide.

Hulk.

 

[kjin]

Re : Toupie

Re,
Il faut initialiser les valeurs Max et Min de ton SpinButton avec
Min = le n° de la première ligne de ta plage = 15
Max = le n° de la dernière ligne de ta plage = 32
On peut inversé pour inverser le sens comme tu le demandes
Tu peux le faire
- soit directement dans la fenêtre propriétés du SpinButton
- soit codé en dur ou dépendant d'une variable (valeur d'une cellule par exemple)

Private Sub SpinButton1_SpinDown()
Range("E2") = Range("J" & SpinButton1)
End Sub

Private Sub SpinButton1_SpinUp()
Range("E2") = Range("J" & SpinButton1)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SpinButton1.Max = 15
SpinButton1.Min = 32
SpinButton1.SmallChange = 1
End Sub

A+
kjin

 

[Hulk]

Re : Toupie

Re,

Ok merci pour tes explications et le reste.

Bonne fin de journée et bon week !

Hulk.