comment ajouter deux autres boutons

  • Initiateur de la discussion Initiateur de la discussion gh4
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gh4

XLDnaute Occasionnel
bonjour
voila je peine a trouver quand ajouter 2 autres boutons a cette macro


Dim nouv As Object

Private Sub Workbook_Activate()
Set nouv = Application.CommandBars("Worksheet Menu Bar").Controls.Add

With nouv
.Style = msoButtonCaption
.Caption = "Pres"
.OnAction = "pres"
.FaceId = 24
.TooltipText = "Liste Pres" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur

End With
end sub


merci bcp pour votre aide
 
Re : comment ajouter deux autres boutons

Salut
essaye ca :

Code:
Dim nouv1 As Object
          Dim nouv2 As object

Private Sub Workbook_Activate()
Set nouv1 = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With nouv1
.Style = msoButtonCaption
.Caption = "fifi"
.OnAction = "fofo"
.FaceId = 24
.TooltipText = "Liste fofo" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur
End With

Set nouv2 = Application.CommandBars("Worksheet Menu Bar").Controls.Add
With nouv2
.Style = msoButtonCaption
.Caption = "Toto"
.OnAction = "titi"
.FaceId = 24
.TooltipText = "Liste Titi" 'texte au passage souris
.Width = 100 'largeur
.Height = 20 'longueur
End With

end sub

Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
1
Affichages
1 K
Réponses
2
Affichages
2 K
Retour