XL 2013 Création de boutons sur une feuille

[fredobou]

Bonjour

J'aimerais créer des boutons sur une feuille Excel que je pourrais utiliser sur une tablette
Et lorsque j'appuie sur différents boutons il additionne le montant qui est dessus
pour l'utiliser comme fichier tactile pour une friterie

Merci d avance

 

[sylvanu]

Bonjour Fredolou,
Un exemple en PJ d'un petit clavier exploitant Application.caller.
Par contre je ne sais pas si ça marche sur tablette. A tester.

Sub Calcul()
Dim Nombre As Integer, ValN As Integer
Nombre = 0
' Application caller récupère le nom de l'objet cliqué.
' On récupère les 2 car à doite, ce qui donne un nombre.
' Rectangle10 donne 0, rectangle11 remet à 0 la valeur
ValN = Val(Right(Application.Caller, 2))
Select Case ValN
    Case 11             ' Effacer valeur
        [D2] = 0
        Exit Sub
    Case 10             ' Nombre = 0
        Nombre = 0
    Case Else
        Nombre = ValN   ' Sinon la valeur est les car de droite.
End Select
[D2] = [D2] * 10 + Nombre
End Sub

 

[sylvanu]

Un peu plus complexe avec mise en couleur de la touche appuyée.