comment afficher un mot dans une celule excel grace à un icone

Question

Bonjour
Voila je voudrais faire un icone ou un sous menu qui contiendrait un mot et lorsque je cliquerai dessus ce mot s'afficherai dans une cellule excel .
Un peut comme l'icone Somme d'excel
merci &#224; vous

jpleroisse · Answer

Bonjour,

Tu es sous VBA Excel ou VB 6 ??



jpleroisse

cboulas · Answer

Excel c'est du VBA


Chris...
Web : Firstruner

jpleroisse · Answer

Bonsoir,

Ce code ajoute un &#233;l&#233;ment dans le menu Affichage et porte le nom de Mon menu.



Sub AjouterElementMenu()

Dim ViewMenu As CommandBarPopup

Dim NewMenuItem As CommandBarButton



'Supprimer le menu s'il existe d&#233;j&#224;

Call DeleteMenuItem



'Trouver le Menu Affichage

Set ViewMenu = CommandBars(1).Controls("Affichage")

If ViewMenu Is Nothing Then

    MsgBox "Impossible d'ajouter l'&#233;l&#233;ment de menu !"

    Exit Sub

Else

    Set NewMenuItem = ViewMenu.Controls.Add _

    (Type:=msoControlButton)

With NewMenuItem

    .Caption = "&Mon menu"

    .OnAction = "Test"

End With

End If

End Sub



Sub DeleteMenuItem()

On Error Resume Next

CommandBars(1).Controls("Affichage").Controls("Mon menu").Delete

End Sub



'un Click sur Mon menu lance la macro Test et &#233;crit Bonjour dans la cellule A2.



Sub Test()

Dim str1 As String

str1 = "Bonjour"

Range("A2").Value = str1

End Sub



'Si tu veux que l'&#233;l&#233;ment de menu soit cr&#233;&#233; au d&#233;marage du classeur, tu mets dans:



Private Sub Workbook_Open()

Call AjouterElementMenu

End Sub



'Et pour le retirer en quittant:



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call DeleMenuItem

End Sub





jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Comment afficher un mot dans une celule excel grace à un icone

3 réponses

Discussions similaires