Ouvrir Userform par menu contextuel clic droit

[degap05]

Bonjour,

Après création d'un bouton dans le menu contextuel clic droit, je sais lancer l'exécution d'une macro.
Maintenant, je voudrais savoir s'il est possible d'ouvrir un(e?) Userform ?
J'ai essayé plusieurs possibilités, mais sans succès:

Dim BtnC As CommandBarButton
On Error Resume Next
Set BtnC = Application.CommandBars("Cell").Controls("EnregistrementHoraires")
On Error GoTo 0
If BtnC Is Nothing Then
With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
.Caption = "EnregistrementHoraires"
.BeginGroup = True
.FaceId = 4 ' n° de l'icone
.Style = msoButtonIconAndCaption
----------------
.OnAction = "EnregistrementHoraires.show"
----------------
End With
End If

Avec votre aide, merci.

 

[degap05]

Re : Ouvrir Userform par menu contextuel clic droit

Re-bonjour,

Faute de savoir ouvrir directement l'USF, je passe par une macro pour l'ouvrir.

A+

 

[sousou]

Re : Ouvrir Userform par menu contextuel clic droit

Bonjour
Si tu fais comme cela??
Sub deb()


Dim BtnC As CommandBarButton
On Error Resume Next
Set BtnC = Application.CommandBars("Cell").Controls("Enregist rementHoraires")
On Error GoTo 0
If BtnC Is Nothing Then
With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
.Caption = "EnregistrementHoraires"
.BeginGroup = True
.FaceId = 4 ' n° de l'icone
.Style = msoButtonIconAndCaption
'----------------
.OnAction = "m1"
'----------------
End With
End If

End Sub

Sub m1()
EnregistrementHoraires.Show
End Sub

 

[degap05]

Re : Ouvrir Userform par menu contextuel clic droit

Bonjour et merci Sousou,
C'est la solution que j'ai mis en place.
Merci.