Créer un bouton via VBA

Version imprimable

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:

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:

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

25/02/2019, 21h18
anasecu

Bonsoir,

Tes 2 macros fonctionnent parfaitement si tu les exécute, mis à part que ta seconde crée un tout petit bouton de 10X10
mais il te suffit de mettre la dimension à 100 pour que cela soit plus visible.
25/02/2019, 21h24
Guigui35160

Le problème c'est que je n'arrive pas à afficher le bouton une fois le code exécuté. J'essaie de le positionner en C2 et je ne le vois pas
25/02/2019, 21h45
anasecu

Pour le positionner en C2 avec le premier code :

Code:

shH1.Buttons.Add([C2].Top, [C2].Left, 116.5, 30).Select
25/02/2019, 21h56
Guigui35160

Citation:

Envoyé par anasecu

Pour le positionner en C2 avec le premier code :

Code:

shH1.Buttons.Add([C2].Top, [C2].Left, 116.5, 30).Select

Non, toujours pas :/
25/02/2019, 22h10
anasecu

Je ne connais pas ta version et ton système mais c'est sans doute de ce côté là qu'il faut chercher.

Tu ne serais pas sur un MAC par hasard ?
25/02/2019, 22h22
Guigui35160

Je suis sous W10, Excel 2016.
Je viens de déplacer ce code à la fin de l'ensemble du code que j'ai réalisé. Il m'indique une erreur 438 qui est une erreur concernant l'objet du code à exécuter. Je dois le créer je ne l'ai pas encore fait mais je pense que ça marche.
Merci de ton aide en tout cas !!