Contrôle ActiveX type TOUPIE (spinbutton)

[falcom80]

Bonjour,

Dans le fichier joint, j'ai inséré dans la feuille n°1 un contrôle ActiveX de type "Toupie" (spinbutton).

Ce que j'aimerais pouvoir faire :

A chaque Click soit sur flèche du haut (spinup) ou du bas (spindown), j'aimerais que le contrôle spinbutton1 se désactive ou se désélectionne si vous voulez.
En gros, ça revient à faire ESCAPE avec la touche du clavier.

Merci pour vos lumières.

 

[pierrejean]

Re : Contrôle ActiveX type TOUPIE (spinbutton)

bonjour falcom80

A tester:

Private Sub SpinButton1_GotFocus()
Selection.Select
End Sub
Private Sub SpinButton1_SpinDown()
If Sheets(1).Range("D7").Value > 1 Then
Sheets(1).Range("D7").Value = Sheets(1).Range("D7").Value - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
If Sheets(1).Range("D7").Value < 20 Then
Sheets(1).Range("D7").Value = Sheets(1).Range("D7").Value + 1
End If
End Sub

 

[falcom80]

Re : Contrôle ActiveX type TOUPIE (spinbutton)

Merci ;-)
Juste parfait.

Comme quoi, j'apprends encore tous les jours...