une commandbar qui persiste

bonjour a tous

j'ai essayé en vain de pouvoir separer les groupe de boutons dans mon ruban
en me basant sur l'exemple pris dans l'aide
ca fonctionne
parcontre j'ai un souci la barre ne peut pas etre supprimée puisque qu'elle fait partie de l application si quelqu'un a une idé elle est la bien venue

Code:

---

1 2 3 4 5 6 7

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton) With newItem .BeginGroup = True .Caption = "Make Report" .FaceID = 0 .OnAction = "qtrReport" End With

---

peut etre une methode plus radicale y a t il une moyen de faire quelque chose comme ca "application.reset" qui me remettrait tout a l'origine

ou alors une boucle du genre(je presise que j'ai essayé)

Code:

---

1 2 3 4 5 6 7

for each button in cbar("tools") i=i+1   if commandbar.control(i).caption="Make Report" then control(i).delete   next end sub

---

merci d'avance

au plaisir

Bonsoir.

Tu parles de ruban, mais ton code parle de menu personnalisé.
Tu peux essayer

Code:

---

Commandbars("Tools").Reset

---

Cordialement,

PGZ

bonjour pgz

oui j'ai office 2007 mais la macroqui crée la bar est valable pour exel 97 et 2003

donc le resultat c'est que la commandbar ce place dans le ruban

je viens d'essayer ton bout de code et ca ne fonctionne pas


une autre idée peut etre

merci d'avance

au plaisir

Bonsoir.

C'est surprenant que le Reset ne marche pas.
Je te propose une correction de ton code pour effacer le contôle concerné:

Code:

---

1 2 3 4 5 6

Dim Button as CommandBarControl for each button in Application.Commandbars("Tools").Controls   if button.caption="Make Report" then Button.delete   next button

---

Je ne sais pas si ça marche, mais cela corrige plusieurs erreurs.
Il y a aussi la méthode FindControl de l'objet CommandBar.

Cordialement,

PGZ

bonjour a tous


Voilà après un peu de l'aide d' Excel et celle de DVP j'ai fini par comprendre la façon d'effacer une barre persistante ou réinitialiser une barre que j'aurais modifiée avant.

Donc, voici une macro super simple qui remet tout a zéro (restaure les barres d'origine et supprime les barres créées par utilisateur).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub reinit_toutes_les_barres()   delbars = 0 For Each bar In CommandBars If (bar.BuiltIn = False) Then bar.Delete: delbars = delbars + 1 If (bar.BuiltIn = True) Then bar.Reset: barreset = barreset + 1     Next bar MsgBox delbars & " barres efacés" & Chr(13) & barreset & " barre réinitialisée" End Sub

---

voila une petite chose a mettre dans les sources pour que ca serve au autres.

moi j'ai galéré pas mal avant de trouver
si javais su que ça pourrait être aussi simple j'aurais gardé mes cheveux
merci a jpz qui m'a pas mal aiguillé

au plaisir