Creer un menu tout simple pour ouvrir une userform

[ToniConti]

Bonsoir

J'ai pas mal chercher sans résultat !
Ca doit etre tellement bete que personne n'en parle...

J'aimerais créer un menu dans excel avec deux "trucs à cliquer" qui ouvrirait chacun une userform. Le menu de base en sorte.

J'ai bien une petite idée mais il est tard et je patauge

Quelqu'un aurait la bonne de voler à mon secourt ?
Merci d'avance et bonne soirée

 

[Skqgent]

Re : Creer un menu tout simple pour ouvrir une userform

Bonsoir,

tu souhaites avoir un userform avec 2 boutons ?
Et ces 2 boutons devraient ouvrir 2 nouveaux userform ?

 

[ToniConti]

Re : Creer un menu tout simple pour ouvrir une userform

Bonsoir

et bien en fait, je (mon prof) voudrait que je crée un menu (comme le menu insertion de exel pour donner un exemple) et dans ce menu il y aurait deux "sélections" possible (je ne connais pas le terme approprié) lesquelles ouvrirait 2 userform.

Donc pour résumer : un menu qui permet d'ouvrir deux userform

 

[Skqgent]

Re : Creer un menu tout simple pour ouvrir une userform

Je pense que tu pourra trouver sur ce site pas mal de choses sur la création de menus :
Formation Excel VBA JB
Onglet "Menus(vba)"

 

[kjin]

Re : Creer un menu tout simple pour ouvrir une userform

Bonsoir,
Brut de décoffrage
A+
kjin

 

[Skqgent]

Re : Creer un menu tout simple pour ouvrir une userform

Je pense que tu pourra trouver sur ce site pas mal de choses sur la création de menus :
Formation Excel VBA JB
Onglet "Menus(vba)"

En exemple freeload:
http://boisgontierjacques.free.fr/fichiers/Barre/Barre_boutons.xls
http://boisgontierjacques.free.fr/fichiers/Barre/BarreMacros.xls

semblent se rapprocher de ce que tu souhaite

 

[ToniConti]

Re : Creer un menu tout simple pour ouvrir une userform

Oui c'est bien ca !

Le prof nous a donné un code similaire
mais tu ne saurais pas où il faut que je le mette ?

Je ne pense pas que ce soit dans le code d'une userform ni dans celui d'une feuille si ?

 

[Skqgent]

Re : Creer un menu tout simple pour ouvrir une userform

Oui c'est bien ca !

Le prof nous a donné un code similaire
mais tu ne saurais pas où il faut que je le mette ?

Je ne pense pas que ce soit dans le code d'une userform ni dans celui d'une feuille si ?

A mettre dans un module il me semble

 

[ToniConti]

Re : Creer un menu tout simple pour ouvrir une userform

Oui c'est bien ca !

Donc pour tous ceux qui liront peut être ce sujet, j'ai fait :
alt+F11
ajouter module
et puis j'y ai mis ceci
Sub auto_open()
MenuBars(xlWorksheet).Menus.Add Caption:="&ConsomElec", Before:=6
With MenuBars(xlWorksheet).Menus("ConsomElec").MenuItems
.Add Caption:="Ajouter un relevé", OnAction:="Ajouter"
.Add Caption:="Comparer deux relevés", OnAction:="Comparer"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&ConsomElec" Then M.Delete
Next
End Sub

Sub Ajouter()
userform1.Show
End Sub

Sub Comparer()
userform2.Show
End Sub


Pour que le menu apparaisse, il faut sauver et relancer le classeur

En tout cas merci à tous et très bonne soirée