[Excel VBA]Probleme de creation de barres

Résolu/Fermé
ks13 Messages postés 191 Date d'inscription lundi 12 juillet 2004 Statut Membre Dernière intervention 1 août 2011 - 17 août 2006 à 17:30
ks13 Messages postés 191 Date d'inscription lundi 12 juillet 2004 Statut Membre Dernière intervention 1 août 2011 - 21 août 2006 à 14:52
Salut, je voudrais creer une fonction qui au chargement va creer une barre avec des boutons, et chacun de ces boutons lance une macro. j'ai deja essaye plusieurs facons de faire, trouvees sur le net, mais a chaque fois c'est la ligne contenant la commande de la creation de la barre qui bloque le processus. voila ou j'en suis au moment actuel :

Sub NewBar_Open()
CommandBars.Add(Name:="BarPerso", Position:=msoBarFloating)
cbar1.Visible = True
cbar1.Controls.Add Type:=msoControlButton, Before:=1

With CommandBars("BarPerso")
.Left = 620
.Top = 450
.Width = 120
End With
End Sub

Private Sub exec_Click()
End Sub

le 1er sub contient le _Open (d'apres le fichier help de l'editeur vb) pour s'executer a l'ouverture du classeur. le 2eme sub est la macro a executer et exec est le nom du bouton (fictif) et _Click (toujours d'apre le fichier d'aide) est l'evenement quand on clique sur le bouton.

il n'y a qu'une seule ligne pour un seul bouton car j'ai deja du mal a faire une barre avec un seul bouton, alors une creation dynamique de boutons.....

bref, si quelq'un pourrait m'aider ce serait vraiment sympa, et merci d'avance.

23 réponses

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 527
21 août 2006 à 13:33
Ça plante parce qu'il manque Application.CommandBars(Barre).Visible = False (j'ai oublié Application dans mon item précédent).
Et tu ne vois pas le plantage, à cause du On Error Résume Next, qui n'est pas nécessaire ici.
Donc ajoute Application, et vire les On Error...
0
ks13 Messages postés 191 Date d'inscription lundi 12 juillet 2004 Statut Membre Dernière intervention 1 août 2011 23
21 août 2006 à 14:52
okie, avec Application ca marche....bon, j'espere que ca ne va pas creer une foulee de barres dans excel quand ils se mettront a ajouter des macros et a remplir la feuille listeMacros ^^;....pour le moment cela devrait suffire....enfin, encore une fois merci Armojax ^^
0
balou311 Messages postés 765 Date d'inscription mardi 1 février 2005 Statut Membre Dernière intervention 21 septembre 2006 87
17 août 2006 à 17:33
salut,

Un formulaire ça ne t'irai pas???
-1