Créer un Menu en VBA

[Creepy]

Bonjour à tous,

Je souhaite créer une MENU (et non une bar de bouton) en VBA.

Quelqu'un pourrait-il m'expliquer ou me donner un lien expliquant la démarche.

J'ai deja pris le cours de Thierry concenant les barre de menu, mais il s'agit d'une barre d'icone.

Moi je voudrais placer un nouveau menu à coté du ? en haut

Merci d'avance

Creepy

 

[sousou]

Si tu recopie ce code dans un fichier. Il s'ouvrira une barre de menu appeler"photos"
Cette barre décline des actions ("wiever,uneimage...) qui sont autant de macro contenu dans le reste du projet.
-Cette barre est temporaire, c'est à dire quelle disparait à la fermeture d'excel et se réinstalle à chaque ouverture du fichier.
- Je n'utilise ici que des msocontrolpopup, mais il existe bien dautres possibilité.

Cette exemple peut peut-être d'aider à y voir plus clair.


Sub auto_open()

Set mabarre = CommandBars.Add(Name:="Photos", temporary:=True)
With mabarre
.Position = 4
.Left = 100
.Top = 100
.Visible = True
With .Controls.Add(Type:=msoControlPopup)
.Caption = "Photos"

With .Controls.Add(Type:=msoControlButton)
.Caption = "Charger des images"
.OnAction = "viewer"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Indexer une image sélectionnée"
.OnAction = "uneimage"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Effacer la page"
.OnAction = "détruit"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Agrandir une image"
.OnAction = "Agrandir"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Restaurer l'image"
.OnAction = "Revenir"
End With
With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Rechercher !"
.OnAction = "Exploration"
End With
With .Controls.Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Sauvegarder la base"
.OnAction = "sauvgarde"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Initialisation"
.OnAction = "init"
End With
End With

End With

End Sub

 

[Creepy]

Je viens de Telecharger la demo MenuMaker.

Ce petiot programme est super mega terrible.

Bien expliqué, bien détaillé, j'ai tout compris

Je le conseille vraiment à tout le monde !!

++

Creepy