[Excel VBA]Probleme de creation de barres
Résolu
ks13
Messages postés
191
Date d'inscription
Statut
Membre
Dernière intervention
-
ks13 Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
ks13 Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
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.
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
Ç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...
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...