Bonjour,

Je cherche à créer un bouton par VBA pour exécuter une fonction. Malheureusement quand j'exécute le code, le bouton ne s'affiche pas. J'ai essayé par enregistrement de macro et par un code que j'ai trouvé sur internet mais rien ne se passe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Mise en place du bouton
        shH1.Buttons.Add(100, 15.5, 116.5, 30).Select
        'Choix de la macro à exécuter
        Selection.OnAction = "'Outil Projet GI v8.xlsm'!test"
        'Renommer le bouton
        Selection.Characters.Text = "Mise à jour des calculs"
        Mise en page du bouton
        With Selection.Characters(Start:=1, Length:=23).Font
            .Name = "Calibri"
            .FontStyle = "Normal"
            .Size = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 1
        End With
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
        Dim PosG As Integer
        Dim PosH As Integer
        Dim Hauteur As Integer
        Dim Longueur As Integer
 
        'Position fixe d'un bouton
           With ActiveSheet.Buttons
              .Add(10, 10, 10, 10).Select
              .OnAction = "Nomdelamacro" 'Nom de la macro
              .Caption = "Bouton fixe"
           End With
 
        'Position en fonction d'une cellule
           With shH1.Range("C2")
               PosG = .Left = 37
               PosH = .Top = 25
               Hauteur = .Height = 20
               Longueur = .Width = 175
           End With
           With shH1.Buttons
              .Add(PosG, PosH, Longueur, Hauteur).Select
              .OnAction = "'Outil Projet GI v8.xlsm'!test"
              .Caption = "Bouton sur E20"
           End With