Discussion :

[isis1be]

Salut à tous

j'aurais besoin de mettre des mots pour expliqué se code, car lorsque j'essaie de le faire je n'arrive pas à être clair.
il faudrais expliquer le code et les avantages de se style de code comparé à la personnalisation par les outils d'excel.

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
Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="calcul honoraires", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 1 bouton dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .Caption = "calcul honoraires"
        'Style du bouton affichage image + texte
        .Style = msoButtonIconAndCaption
        'Image du bouton
        .FaceId = 362
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
 
    End With
 
    CmdBar.Visible = True
End Sub

+

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'En cas d'erreur le contrôle est transmis à l'instruction qui suit
On Error Resume Next
    Application.CommandBars("MaBarrePerso").Delete
End Sub

Si quelqu'un pouvait m'y aider j'apprécierais
Voila je vous remercie tous de votre aide et à très bientôt.

[ucfoutu]

Ca, alors !

Si ce code est vraiment LE TIEN (et non "trouvé" quelque part) :
Commence par le dire avec tes mots à toi ...(tu n'as tout de même pas écrit "au hasard" !!!)
on verra ensuite, hein ...

[fring]

Juste pour info

Code :

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

1
2
3
Set CmdBar = Application.CommandBars.Add(Name:="calcul honoraires", Position:=msoBarTop, Temporary:=True)

Application.CommandBars("MaBarrePerso").Delete

Code :

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

1
2
'Définit "l'image" qui va s'afficher sur le bouton <-- pas correct
.Caption = "calcul honoraires"

[isis1be]

juste un truc je n'ai jamais dit que ce code était à moi, pour info il est de SilkyRoad, donc je n'ai pas la prétention de dire que c'est le miens
Et justement golliat c'est un forum d'entraide et l'entraide est partout non? enfin pour moi en tout cas c'est peut-être banale pour certain ce genre de demande mais pour d'autre c'est beaucoup.
et un grand merci fring j'ai pris note.
@++ et bon surf à tous

[zazaraignée]

Juste un commentaire, en passant... La documentation du code n'est pas seulement mettre des commentaires pour expliquer l'utilité du code mais aussi la façon de nommer les fonctions, variables, procédures, etc.

Donc, à la place de 'Macro1', personnellement je mettrait un nom de procédure plus explicite (quitte à renommer la macro), exemple :

Code :

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

        .OnAction = "CalculerHonoraire"

Et le texte de ton bouton devrait comporter une mnémonique (lettre soulignée permettant à l'utilisateur d'actionner le bouton par le raccourci Alt + la lettre en question) en précédant une lettre d'une esperluette et commencer le texte du bouton par une majuscule :

Code :

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

        .Caption = "Calcul des &honoraires"

Oui, je sais... je suis tatillon sur les interfaces graphiques... C'est une déformation d'ancienne graphiste...

[isis1be]

Bien vu zazaraignée
J'avais pas fait attention à cela mais c'est une très bonne remarque, je fait les modif de suite dans mon code
Un tous grand merci et @++ et bon surf à toi