Discussion :

[patricktoulon]

Bonjour
je me casse la tète depuis tout a l'heure afin de trouver une solution

je créé une barre popup perso dans la quel j'intègre le control de la list des polices en le copiant tout simplement

cependant j'aimerais au click de celui ci diriger le .onction vers une de mes macro perso

hors il ne semble pas gérer cet evenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Set MaBarre = Application.CommandBars.Add(Name:="Menu", Position:=msoBarPopup)
Set Police = Application.CommandBars.FindControl(ID:=1728)
Police.Copy bar:=MaBarre, before:=1 '<-- si l'argument before n'est pas spécifié, le bouton se placera par défaut en dernière position
With Police
.OnAction = "toto"
End With

quelqu'un aurait une idée

[gnain]

Bonjour Patrick,
j'ai pas tester, peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Police
    .OnAction = ThisWorkbook.Name & "!toto"
End With

[patricktoulon]

hé hé!!!

sacré gnain
c'est l'évènement qui fonctionne pas: pas le reste
".onction" n'est pas géré
Pièce jointe 174534

c'est de ma faute je pose toujours des questions tordues espèces de toulonnais que je suis

[Docmarti]

Bonjour Patrick, gnain

En effet OnAction n'appartient pas à l'objet Police.
Il faut créer un nouveau controle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Application.CommandBars(strMaBarre).Controls.Add(Type:=msoControlButton)
        .Caption = "toto3"
        .OnAction = "'toto3 '"
       '.OnAction = "'toto3 ""A"",""B"",2'" 'Si parametres
    End With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Police
    .OnAction = ThisWorkbook.Name & "!toto"
End With

[patricktoulon]

Merci docmarti

seul soucis je veut ce contrôle
on peut bien le copier dans une autre barre ,on doit bien pouvoir intercepter son evenement
Pièce jointe 174538

[Docmarti]

@Patrick

Le code suivant semble fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AssignerPolice()
 
    Const strMaBarre As String = "NouveauPopupMenu"
    Dim MaBarre As CommandBar
 
    On Error Resume Next
 
    Application.CommandBars(strMaBarre).Delete
    On Error GoTo 0
 
    Set MaBarre = Application.CommandBars.Add(Name:=strMaBarre, Position:=msoBarPopup)
 
    Set police = Application.CommandBars.FindControl(ID:=1728)
    police.Reset
    police.Copy bar:=MaBarre, before:=1
 
    Application.CommandBars(strMaBarre).ShowPopup
 
    On Error Resume Next
    Application.CommandBars(strMaBarre).Delete
 
End Sub

[gnain]

@Patrick

Le code suivant semble fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AssignerPolice()
 
    Const strMaBarre As String = "NouveauPopupMenu"
    Dim MaBarre As CommandBar
 
    On Error Resume Next
 
    Application.CommandBars(strMaBarre).Delete
    On Error GoTo 0
 
    Set MaBarre = Application.CommandBars.Add(Name:=strMaBarre, Position:=msoBarPopup)
 
    Set police = Application.CommandBars.FindControl(ID:=1728)
    police.Reset
    police.Copy bar:=MaBarre, before:=1
 
    Application.CommandBars(strMaBarre).ShowPopup
 
    On Error Resume Next
    Application.CommandBars(strMaBarre).Delete
 
End Sub

Pour la cellule active ce code change bien la police.
mais ce qu'il demande c'est de démarrer une macro avec le click de la police choisi