Re : SpinButton
Bonjour
Je pense que le spin est inutile pour faire ce que tu recherche. Un simple bouton pourrait faire l'affaire!
Le contrôle SpinButton (Toupie) permet d'incrémenter ou de décrémenter des valeurs en fonction de spécifications (valeur mini, valeur maxi, pas).
Cet objet fonctionne sur le même principe que le ScrollBar, mais ne possède pas de barre de défilement.
Pour le spin il peut servir exemple a faire monté des numéros:
Spinbutton 0-100:
Private Sub SpinButton1_Change()
SpinButton1.Min = 0
TextBox1.Value = SpinButton1.Value
End Sub
Pour ta demande:
Private Sub SpinButton1_Change()
Listbox2.value = Listbox1.value
End Sub
Spinbutton pour surfer de feuille en feuille:
Private Sub SpinButton1_SpinDown()
On Error Resume Next
ActiveSheet.Previous.Select
On Error GoTo 0
End Sub
Private Sub SpinButton1_SpinUp()
On Error Resume Next
ActiveSheet.Next.Select
On Error GoTo 0
End Sub
A+
Temjeh