Menu en vba

Fermé

boby87000 Messages postés 113 Date d'inscription lundi 19 janvier 2009 Statut Membre Dernière intervention 10 juin 2011 - 23 oct. 2010 à 19:10
cousinhub29 Messages postés 1049 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 27 avril 2025 - 24 oct. 2010 à 01:42

Bonjour,

Bonjour,

j'ai crée une menu sur ma feuille excel avec un code VBA et je voudrais créer d'autres en les espaçants de la sorte :

Mon menu
--Quiter
--Annuler
--------------
--Ouvrir
--Aditionner
--Soustraire

Voila mon code çi dessus. Pouvez vous m'aider?

Private Sub Workbook_Open()

addCQTMToolbar
'addCQTMToolbar1
End Sub

Private Sub addCQTMToolbar()

Const menuName = "Mon menu "

Dim menuItems(1, 1) As String
Dim value As Variant
Dim i As Integer

Dim myMenuBar As CommandBar
Dim newMenu As CommandBarControl
Dim ctrl1 As CommandBarControl

menuItems(0, 0) = "Quiter.."
menuItems(1, 0) = "Annuler"

On Error Resume Next
Set myMenuBar = Application.CommandBars.ActiveMenuBar
myMenuBar.Controls(menuName).Delete
Set newMenu = myMenuBar.Controls.Add(msoControlPopup, , , 10, True)
newMenu.Caption = menuName

For i = 0 To UBound(menuItems, 1)
Set ctrl1 = newMenu.Controls.Add(msoControlButton, i + 1)
ctrl1.Caption = menuItems(i, 0)
ctrl1.TooltipText = menuItems(i, 0)
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = menuItems(i, 1)
Next

Err.Clear

End Sub

Merci pour votre aide

A voir également:

Menu en vba
Menu déroulant excel - Guide
Windows 11 menu démarrer classique - Guide
Réinitialiser menu démarrer windows 10 - Guide
Canon quick menu - Télécharger - Utilitaires
Excel menu déroulant en cascade - Guide

1 réponse

Réponse 1 / 1

cousinhub29 Messages postés 1049 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 27 avril 2025 359
24 oct. 2010 à 01:42

Bonjour,

Modifie ainsi ton code :

Private Sub addCQTMToolbar()
Const menuName = "Mon menu "
Dim menuItems(4, 1) As String
Dim value As Variant
Dim i As Integer
Dim myMenuBar As CommandBar
Dim newMenu As CommandBarControl
Dim ctrl1 As CommandBarControl
menuItems(0, 0) = "Quitter..": menuItems(0, 1) = "Proc_Quitter"
menuItems(1, 0) = "Annuler": menuItems(1, 1) = "Proc_Annuler"
menuItems(2, 0) = "Ouvrir": menuItems(2, 1) = "Proc_Ouvrir"
menuItems(3, 0) = "Additionner": menuItems(3, 1) = "Proc_Additionner"
menuItems(4, 0) = "Soustraire": menuItems(4, 1) = "Proc_Soustraire"
On Error Resume Next
Set myMenuBar = Application.CommandBars.ActiveMenuBar
myMenuBar.Controls(menuName).Delete
On Error GoTo 0
Set newMenu = myMenuBar.Controls.Add(msoControlPopup, , , 10, True)
newMenu.Caption = menuName
For i = LBound(menuItems) To UBound(menuItems)
    Set ctrl1 = newMenu.Controls.Add(msoControlButton)
    ctrl1.Caption = menuItems(i, 0)
    ctrl1.TooltipText = menuItems(i, 0)
    ctrl1.Style = msoButtonCaption
    ctrl1.OnAction = menuItems(i, 1)
    If i = 2 Then ctrl1.BeginGroup = True
Next
End Sub

Et dans un module standard, tu mets ces procédures :

Sub Proc_Quitter()
MsgBox "Je quitte"
End Sub
Sub Proc_Annuler()
MsgBox "J'annule"
End Sub
Sub Proc_Ouvrir()
MsgBox "J'ouvre"
End Sub
Sub Proc_Additionner()
MsgBox "J'additionne"
End Sub
Sub Proc_Soustraire()
MsgBox "Je soustraits"
End Sub

Les MsgBox étant bien évidemment remplacés par tes codes...

Bonne nuit

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

menu caché

Bonjour, j aimerais accéder au menu caché de mon téléviseur Brand B2418HDled , pouvez vous m aider

Par avance merci

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Déblocage du mode hôtel Philips 20HF5234/10

Bonjour
J'ai une petite télé Philips flat tv modèle 20HF5234/10 je n arrive pas à accéder au bouton menu sûrement je la télé est en mode hôtel pouvez-vous m aider svp
Les boutons de la télé ne marchent pas non plus
Que faire svp ???