Contrôle ActiveX type TOUPIE (spinbutton)

falcom80 · 19 Décembre 2014

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 · 19 Décembre 2014

Re : Contrôle ActiveX type TOUPIE (spinbutton)

bonjour falcom80

A tester:

Code:

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 · 19 Décembre 2014

Re : Contrôle ActiveX type TOUPIE (spinbutton)

Merci ;-)
Juste parfait.

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

Contrôle ActiveX type TOUPIE (spinbutton)

falcom80

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

falcom80

Guest

Discussions similaires

Contrôle ActiveX type TOUPIE (spinbutton)

falcom80

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

falcom80

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency