Creer un menu tout simple pour ouvrir une userform

S

Skqgent

XLDnaute Junior

• 2 Septembre 2008

• #2

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 ?

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 2 Septembre 2008

• #3

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

 

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 2 Septembre 2008

• #4

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)"

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 2 Septembre 2008

• #5

Re : Creer un menu tout simple pour ouvrir une userform

Bonsoir,
Brut de décoffrage
A+
kjin

 

Pièces jointes

• Menu.zip

  11 KB · Affichages: 120
• Menu.zip

  11 KB · Affichages: 123
• Menu.zip

  11 KB · Affichages: 127

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 2 Septembre 2008

• #6

Re : Creer un menu tout simple pour ouvrir une userform

Skqgent à dit:

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)"

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 2 Septembre 2008

• #7

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 ?

 

Vote positif 0 Vote négatif

S

Skqgent

XLDnaute Junior

• 2 Septembre 2008

• #8

Re : Creer un menu tout simple pour ouvrir une userform

ToniConti à dit:

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 ?

Cliquez pour agrandir...

A mettre dans un module il me semble

 

Vote positif 0 Vote négatif

T

ToniConti

XLDnaute Junior

• 2 Septembre 2008

• #9

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 🙂

 

Vote positif 0 Vote négatif