Bouton sur barre d'outils (Word 2003)Résolu

Question

Salut tout le monde.
    J'aurais voulut cr&#233;e un bouton (sur une barre d'outils) qui
"s'ouvre" c'est &#224; dire qui me permet de s&#233;lectionner une option (dans
Word le bouton qui me permet de choisir la couleur de remplissage de l'objet s&#233;lectionner
par exemple). Et ce soit en code soit avec l&#146;interface (m&#234;me si &#231;a me semble
impossible avec l&#146;interface, tout du moins je ne trouve pas command)



Merci

 Faut pas s'enerver

mortalino · Accepted Answer

Resalut Polack,

Pour cr&#233;er un menu &#224; gauche du "?" (aide) :

Sub CreerMenu()
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    
' Cr&#233;er le Menu
Set NewMenu = Application.CommandBars("Document Menu Bar").Controls.Add(msoControlPopup, , , 10, False)
NewMenu.Caption = "Titre que tu veux"
NewMenu.Visible = True


' Cr&#233;er le Sous-Menu
Set MenuItem = NewMenu.Controls.Add(msoControlButton) 
                                                          
With MenuItem                                              
    .Caption = "Affiche l'&#233;l&#233;ment resortant le plus"        
    .OnAction = "Le nom de la proc&#233;dure"
End With                                                   
End Sub

Par contre, qu'est ce que tu veux faire avec les couleur de fond ?

  Mortalino

Polack77 · Answer

C'est pas pour les couleur de
font ce que je veut (je regarde ce que tu m'a donn&#233;e tout de suite apr&#232;s avoir
r&#233;pondu peut etre c ce que je veut  ). Ce que je veut c'est un bouton du m&#234;me "style" soit simplement faire un bouton
qui me permet de select une option (le couleur, le type de bordure par exemple)
ce qui me faut en final c'est pouvoir changer le format de la date select alors
changer la date &#231;a c'est bon "Format(...)" mais je veut l&#233;ser la
possibilit&#233; &#224; mon utilisateur le chois d'un format :
    - Texte ("12
d&#233;cembre 1981" par exemple)
    - Num&#233;rique
("14/12/1981")
    - Sans ou avec les ann&#233;es
    - ...



Et tout &#231;a dans un seul bouton
(il faut donc que je puisse mettre une option).



Merci pour ta r&#233;ponce en tout cas.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Ca resemble &#224; ce que je veut mais comment ins&#233;rer pluseur ligne dans ce bouton?

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Dans ce cas, cr&#233;e un Module que tu appelles "Procedures"

Sub TransformeDate1()
    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
End Sub

Sub TransformeDate2()
    Selection.NumberFormat = "dd/mm/yy;@"
End Sub

Sub TransformeDate3()
    Selection.NumberFormat = "d/m/yy h:mm;@"
End Sub


Le code de tout &#224; l'heure, tu le mets dans ThisDocument_Open()


Sub CreerMenu()
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    
' Cr&#233;er le Menu
Set NewMenu = Application.CommandBars("Document Menu Bar").Controls.Add(msoControlPopup, , , 10, False)
NewMenu.Caption = "Titre que tu veux"
NewMenu.Visible = True


' Cr&#233;er le Sous-Menu 1
Set MenuItem = NewMenu.Controls.Add(msoControlButton) 
                                                          
With MenuItem                                              
    .Caption = "mettre la date au format dddd, mmmm dd, yyyy"        
    .OnAction = "Procedures.TransformeDate1"
End With               
                                    
' Cr&#233;er le Sous-Menu 2
Set MenuItem = NewMenu.Controls.Add(msoControlButton) 
                                                          
With MenuItem                                              
    .Caption = "mettre la date au format dd/mm/yy;@"        
    .OnAction = "Procedures.TransformeDate2"
End With                                                   

' Cr&#233;er le Sous-Menu 3
Set MenuItem = NewMenu.Controls.Add(msoControlButton) 
                                                          
With MenuItem                                              
    .Caption = "mettre la date au format d/m/yy h:mm;@"        
    .OnAction = "Procedures.TransformeDate3"
End With                                                   
End Sub

et dans ThisDocument_BeforeClose()

On Error Resume Next
Application.CommandBars("Document Menu Bar").Controls("Titre que tu auras mis").Delete


Essaie un peu &#231;a et dis moi si y a bon ..

  Mortalino

Polack77 · Answer

Merci, c'est ca que je veut!

Merci encors tu viens de me faire gagner pas mal de temps!!!!

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

De rien 

Juste un truc en plus :

Set MenuItem = NewMenu.Controls.Add(msoControlButton)       
                                                            
With MenuItem                                               
    .Caption = "mettre la date au format dddd, mmmm dd, yyyy"        
    .OnAction = "Procedures.TransformeDate1"
    .BeginGroup = True         ' si tu rajoute &#231;a, t'auras un trait au dessus (si tu veux s&#233;parer tes sous menu)
End With                                                    

Bonne journ&#233;e & @ ++

  Mortalino

Polack77 · Answer

Bonne id&#233;e, merci encors.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Bouton sur barre d'outils (Word 2003)

7 réponses

Discussions similaires