Zone de texte dans la barre d'outils personnalisée

Question

Est-il possible de placer le contrôle de zone de texte dans la barre d'outils personnalisée dans Excel. J'ai créé un Add-in qui montre cette barre d'outils. Ce que je veux faire, c'est quand l'utilisateur tape dans le textbox Add-in devrait appeler une procédure ou une fonction en fonction de ce que l'utilisateur a tapé.

Je voudrais le faire en VBA dans MS Excel.

Merci.

Answer 1

j'ai découvert:

Sub test() 
    Set myControl = CommandBars("Test").Controls.Add(Type:=msoControlEdit, Before:=1) 
    With myControl 
     .Caption = "Search" 
     .OnAction = "Tester" 
    End With 
End Sub 


Sub Tester() 
    MsgBox "I am gonna search for: " & CommandBars("Test").Controls(1).Text 
    CommandBars("Test").Controls(1).Text = "" 
End Sub 

Answer 2

Si vous utilisez Excel 2007 et ont mis en œuvre IRibbonExtensibility :: GetCustomUI alors vous pouvez utiliser le code XML suivant pour définir une zone d'édition dans votre GUI Addin:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
    <ribbon startFromScratch="false"> 
     <tabs> 
      <tab id="MyTab" label="My Tab"> 
       <group id="MyGroup" label="My Group"> 
        <editBox id="MyEditBox" getText="MyEditBoxCallbackgetText" label="Editbox Label" onChange="MyEditBoxCallbackOnChange"/> 
       </group> 
      </tab> 
     </tabs> 
    </ribbon> 
</customUI>