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
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
ou alors une boucle du genre(je presise que j'ai essayé)
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
au plaisir
Partager