Creation de boutons dans Excel 2016

Bonjour

Je viens vers vous car j'ai besoin d'aide.

Je suis novice sur Excel et je voudrai pouvoir faire une tache automatisée dans la feuille Excel a l'aide d'un bouton .

Je m'explique:

Je voudrai sur la même feuille créer des bouton nommés de 0 à 36

Sur chaque action sur l'un des boutons , j'aurai des chiffres qui s'affichent ex : je clique sur le bouton 4 ,j'aurai en dessous des chiffres qui apparaitraient : 4-19-21-12-16

Quelqu'un pourrait il m'aider à créer ce genre de feuille ?

Je vous remercie grandement.

Bonsoir aldjess,

je te propose ce fichier Excel :

dhany

Bonjour et merci c'est bien ce que j'aimerai avoir pour des boutons de 0 a 36 et chaque boutons auraient une série de chiffres comme la liste ci dessous et les boutons sur la même feuille.Pouvez vous me le faire?Car je connais pas la programmation excel.Je vous en remercie par avance.

0= 0-26-32-23-29

1= 1-33-20-2

2= 2-21-25-12

3= 3-35-26-29-30

4= 4-19-21-12-16

5= 5-10-24-1

6= 6-34-27-9

7= 7-29-26-28

8= 8-30-23-32-3

9= 9-31-22-13-6

10= 10-23-5-32-1

11= 11-36-30-3

12= 12 -21-28-35

13= 13-31-27-36

14= 14-20-31-2-13

15= 15-32-19-23-16

16= 16-24-33-19

17= 17-25-34

18= 18-22-29-26

19= 19-15-4-16

20= 20-1-14-10-2

21= 21-2-4-12-20

22= 22-9-18-6

23= 23-8-10-1

24= 24-5-16-19

25= 25-2-17-20

26= 26-3-0-29

27= 27-6-13-31-9

28= 28-7-12-21

29= 29-18-7-26

30= 30-11-8-3

31= 31-14-9-13-6

32= 32-0-15-23

33= 33-16-1-19-10

34= 34-17-6-9

35= 35-12-3-21-30

36= 36-13-11-31

ta nouvelle demande est faite dans ce fichier :

dhany

Bonjour

Je te remercie grandement c'est exactement se que je voulai

Je te souhaite une bonne journée

merci pour ton retour !

bonne journée à toi aussi !

dhany

Bonjour,

Pour le fun !...

1 seule procédure ald de 37.

Cdlt.

Public Sub Main()
Dim shp As Object, shpAddress As String, shpIndex As Integer, r As String
    Set shp = ActiveSheet.Buttons(Application.Caller)
    shpAddress = shp.TopLeftCell.Address
    shpIndex = CInt(Right(shp.Name, 2))
    Select Case shpIndex
        Case 1: r = "0-26-32-23-29"
        Case 2: r = "1-33-20-2"
        ' etc...
        Case 36: r = "35-12-3-21-30"
        Case 37: r = "36-13-11-31"
        Case Else: r = vbNullString
    End Select
    ActiveSheet.Range(shpAddress).Offset(, 1).Value = r
End Sub