Soyez le premier à donner votre avis sur cette source.
Snippet vu 32 687 fois - Téléchargée 35 fois
'dans ThisWoorkBook ajouter ... Private Sub Workbook_Open() Créer_Menu End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Effacer_Menu End Sub 'dans un nouveau module ajouter ... Function Créer_Menu() For Z = 1 To CommandBars(1).Controls.Count If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then Exit Function Next With CommandBars(1).Controls.Add(msoControlPopup, before:=10) .Caption = "Mon Menu Perso" With .Controls.Add(msoControlPopup) .Caption = "Menu 1" With .Controls.Add(msoControlButton) .Caption = "Sous Menu 1.1" .OnAction = ""'entre les guillemets : nom de votre procédure End With With .Controls.Add(msoControlButton) .Caption = "Sous menu 2.1" .OnAction = ""'entre les guillemets : nom de votre procédure End With With .Controls.Add(msoControlButton) .Caption = "Sous menu 3.1" .OnAction = ""'entre les guillemets : nom de votre procédure End With End With '2e Bouton Saisie With .Controls.Add(msoControlPopup) .Caption = "Menu 2" With .Controls.Add(msoControlButton) .Caption = "Sous menu 2.1" .OnAction = ""'entre les guillemets : nom de votre procédure End With With .Controls.Add(msoControlButton) .Caption = "Sous menu 2.2" .OnAction = ""'entre les guillemets : nom de votre procédure End With End With '3e Boutton With .Controls.Add(msoControlButton) .Caption = "Menu 3" .OnAction = ""'entre les guillemets : nom de votre procédure End With End With MsgBox "Veuillez lancer les programmes dans la barre de Menu.", vbInformation, "Votre Menu Perso" End Function '****************************************************************** Function Effacer_Menu() Next_Z: For Z = 1 To CommandBars(1).Controls.Count If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then CommandBars(1).Controls("Mon Menu Perso").Delete GoTo Next_Z End If Next '**************************************************************** End Function
5 déc. 2008 à 09:56
Vive les forums!!
Bonne journée!
4 déc. 2008 à 21:50
tu crée une fonction
Function ColoriseParExemple()
ActiveCell.Interior.ColorIndex = 9 ' par exemple
End Function
Et tu applique la fonction, a OnAction du sous menu
A Plus
4 déc. 2008 à 12:26
Super et cela fonctionne bien!
Mais n'ayant que peut l'habitude en vba, comment tu associe une action (exemple colorier une cellule) suite au clic sur par exempel : Sous menu 1.1??
D'avance merci bàt
23 mai 2006 à 11:09
des info bulles dans la barre de menu... je ne crois pas . Mais cela ne coute rien d'essayer
Pour ce qui est du message dans la barre du stattu ... tout est possible !
tu peux la modifier à chaque fois que tu effectue une action avec une macro.
je n'ai plus le code sous les yeux, mais il me semble que c'est un truc dans ce genre :
Application.StatusBar = "Mon nouveau Statu ... Coucou ..." 'Changer le statu
Application.StatusBar = False ' réinitialiser le statu
Application.DisplayStatusBar = False 'Cache la barre de statu
Application.DisplayStatusBar = True 'affiche la barre de statu
Chapat'
23 mai 2006 à 10:52
Est-il possible d'ajouter des Info-Bulles ? .ControlTipText
ou encore un message dans la barre de tache ? .StatusBar
Merci
Greg
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.