Discussion :

[Guigui35160]

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

[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.

[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

[anasecu]

Pour le positionner en C2 avec le premier code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Guigui35160]

Pour le positionner en C2 avec le premier code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Non, toujours pas :/

[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 ?