Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Menu contextuel et internet

5 réponses
Avatar
Leonello
Bonsoir

J'ai un soucis avec un menu contextuel. !!

Celui-ci fonctionne correctement dans Excel sur mon PC.

Par contre, ce fichier est mis à disposition sur internet.
Lorsqu'on l'ouvre avec Internet explorer, le fichier Excel s'ouvre
correctement dans Internet Explorer. Une grande partie des fonctions sont
parfaitement actives.

Seulement le menu contextuel, que j'ai ajouté sur une plage des cellules,
refuse de s'ouvrir en générant une erreur. De plus, en dehors de cette
plage, le menu contextuel d'Excel d'origine fonctionne.

L'erreur est la suivante :
Erreur d'exécution
"La méthode ShowPopup" de l'objet "Commandbar" a échoué.

Pourquoi ce problème ?

D'avance merci,


--

Amicalement,
Leo

5 réponses

Avatar
LSteph
Bonsoir Leonello,

Un navigateur , ses menus.
Un tableur, les siens.

Pourquoi ce problème ?
n'aurais-tu pas une petite idée?


Cordialement.

lSteph



Bonsoir

J'ai un soucis avec un menu contextuel. !!

Celui-ci fonctionne correctement dans Excel sur mon PC.

Par contre, ce fichier est mis à disposition sur internet.
Lorsqu'on l'ouvre avec Internet explorer, le fichier Excel s'ouvre
correctement dans Internet Explorer. Une grande partie des fonctions sont
parfaitement actives.

Seulement le menu contextuel, que j'ai ajouté sur une plage des cellules,
refuse de s'ouvrir en générant une erreur. De plus, en dehors de cette
plage, le menu contextuel d'Excel d'origine fonctionne.

L'erreur est la suivante :
Erreur d'exécution
"La méthode ShowPopup" de l'objet "Commandbar" a échoué.

Pourquoi ce problème ?

D'avance merci,




Avatar
Leonello
Bonsoir,

Oui, mais comment lui dire ?
Mon code ci-dessous.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
On Error Resume Next
If Union(Target.Range("A1"), Range(Plage_Carte)).Address Range(Plage_Carte).Address Then
CommandBars("MonMenu").ShowPopup
Cancel = True
End If
End Sub

D'avance Merci,

Amicalement,
Leo

--

Amicalement,
Leo

"LSteph" a écrit dans le message de news:

Bonsoir Leonello,

Un navigateur , ses menus.
Un tableur, les siens.

Pourquoi ce problème ?
n'aurais-tu pas une petite idée?


Cordialement.

lSteph



Bonsoir

J'ai un soucis avec un menu contextuel. !!

Celui-ci fonctionne correctement dans Excel sur mon PC.

Par contre, ce fichier est mis à disposition sur internet.
Lorsqu'on l'ouvre avec Internet explorer, le fichier Excel s'ouvre
correctement dans Internet Explorer. Une grande partie des fonctions sont
parfaitement actives.

Seulement le menu contextuel, que j'ai ajouté sur une plage des cellules,
refuse de s'ouvrir en générant une erreur. De plus, en dehors de cette
plage, le menu contextuel d'Excel d'origine fonctionne.

L'erreur est la suivante :
Erreur d'exécution
"La méthode ShowPopup" de l'objet "Commandbar" a échoué.

Pourquoi ce problème ?

D'avance merci,





Avatar
lSteph
Bonjour,

Compris.
Testé avec un truc analogue.
Différence (peut-être un paramétrage du navigateur, question à
poser sur le forum adéquat)
avec IE , s'ouvre dans IE et le popup du menu contextuel n'est pas
accessible.
avec FF, s'ouvre dans Excel et là pas de souci.

Pour en revenir à ce qui me semble logique mais reste une humble
supposition
il faut être dans l'application concernée pour agir dans ses
commandes (Outils,Menus)
avec un évennement.

@+

lSteph

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
Dim mybar
On Error Resume Next
CommandBars("Personnalisé.1").Delete

Set mybar = CommandBars _
.Add(Name:="Personnalisé.1", Position:=msoBarPopup,
Temporary:úlse)
With mybar
.Controls.Add Type:=msoControlButton, Id:=3
.Controls.Add Type:=msoControlComboBox
End With
mybar.ShowPopup
Set mybar = Nothing
End Sub

On 26 jan, 00:02, "Leonello" wrote:
Bonsoir,

Oui, mais comment lui dire ?
Mon code ci-dessous.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
On Error Resume Next
If Union(Target.Range("A1"), Range(Plage_Carte)).Address =
Range(Plage_Carte).Address Then
CommandBars("MonMenu").ShowPopup
Cancel = True
End If
End Sub

D'avance Merci,

Amicalement,
Leo

--

Amicalement,
Leo

"LSteph" a écrit dans le message de news:


Bonsoir Leonello,

Un navigateur , ses menus.
Un tableur, les siens.

Pourquoi ce problème ?
n'aurais-tu pas une petite idée?


Cordialement.

lSteph

Bonsoir

J'ai un soucis avec un menu contextuel. !!

Celui-ci fonctionne correctement dans Excel sur mon PC.

Par contre, ce fichier est mis à disposition sur internet.
Lorsqu'on l'ouvre avec Internet explorer, le fichier Excel s'ouvre
correctement dans Internet Explorer. Une grande partie des fonctions s ont
parfaitement actives.

Seulement le menu contextuel, que j'ai ajouté sur une plage des cell ules,
refuse de s'ouvrir en générant une erreur. De plus, en dehors de c ette
plage, le menu contextuel d'Excel d'origine fonctionne.

L'erreur est la suivante :
Erreur d'exécution
"La méthode ShowPopup" de l'objet "Commandbar" a échoué.

Pourquoi ce problème ?

D'avance merci,






Avatar
Leonello
Bonsoir,

Et merci pour cette contribution.

Dois je en conclure qu'il n'est donc pas possible d'ouvrir ce menu
contextuel ?


--

Amicalement,
Leo

"lSteph" a écrit dans le message de news:

Bonjour,

Compris.
Testé avec un truc analogue.
Différence (peut-être un paramétrage du navigateur, question à
poser sur le forum adéquat)
avec IE , s'ouvre dans IE et le popup du menu contextuel n'est pas
accessible.
avec FF, s'ouvre dans Excel et là pas de souci.

Pour en revenir à ce qui me semble logique mais reste une humble
supposition
il faut être dans l'application concernée pour agir dans ses
commandes (Outils,Menus)
avec un évennement.

@+

lSteph

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
Dim mybar
On Error Resume Next
CommandBars("Personnalisé.1").Delete

Set mybar = CommandBars _
.Add(Name:="Personnalisé.1", Position:=msoBarPopup,
Temporary:úlse)
With mybar
.Controls.Add Type:=msoControlButton, Id:=3
.Controls.Add Type:=msoControlComboBox
End With
mybar.ShowPopup
Set mybar = Nothing
End Sub

On 26 jan, 00:02, "Leonello" wrote:
Bonsoir,

Oui, mais comment lui dire ?
Mon code ci-dessous.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
On Error Resume Next
If Union(Target.Range("A1"), Range(Plage_Carte)).Address > Range(Plage_Carte).Address Then
CommandBars("MonMenu").ShowPopup
Cancel = True
End If
End Sub

D'avance Merci,

Amicalement,
Leo

--

Amicalement,
Leo

"LSteph" a écrit dans le message de news:


Bonsoir Leonello,

Un navigateur , ses menus.
Un tableur, les siens.

Pourquoi ce problème ?
n'aurais-tu pas une petite idée?


Cordialement.

lSteph

Bonsoir

J'ai un soucis avec un menu contextuel. !!

Celui-ci fonctionne correctement dans Excel sur mon PC.

Par contre, ce fichier est mis à disposition sur internet.
Lorsqu'on l'ouvre avec Internet explorer, le fichier Excel s'ouvre
correctement dans Internet Explorer. Une grande partie des fonctions
sont
parfaitement actives.

Seulement le menu contextuel, que j'ai ajouté sur une plage des
cellules,
refuse de s'ouvrir en générant une erreur. De plus, en dehors de cette
plage, le menu contextuel d'Excel d'origine fonctionne.

L'erreur est la suivante :
Erreur d'exécution
"La méthode ShowPopup" de l'objet "Commandbar" a échoué.

Pourquoi ce problème ?

D'avance merci,






Avatar
LSteph
Si si
bon j'ai pas de pub à faire
relis mon message.


Cordialement.

Stéphane.

Bonsoir,

Et merci pour cette contribution.

Dois je en conclure qu'il n'est donc pas possible d'ouvrir ce menu
contextuel ?