Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel menu pop up

menu pop up

15 réponses
Avatar
Markos
bonjour,
j'ai emprunté ( sur le forum) la macro du menu pop up qui marche superbien,
mais j'ai un hic avec 3ème contrôle :

************************
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
****************************
le problème, c'est que je n'arrive pas à lancer la macro "Restaure" du 3ème
controle, alors qu'elle tourne si je la lance avec un bouton classic.
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row
If LigneSelec >= 2 Then Recuperation
Else ....

les deux macro se situe dans la même feuille

Qu'est passa ?

Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Youky
.OnAction = "Restaure"
la macro doit être Sub Restaure() et Then Restaure et non Then Restauration
Youky
"Markos" a écrit dans le message de news:
e1ugqo$a9b$
bonjour,
j'ai emprunté ( sur le forum) la macro du menu pop up qui marche
superbien, mais j'ai un hic avec 3ème contrôle :

************************
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
****************************
le problème, c'est que je n'arrive pas à lancer la macro "Restaure" du
3ème controle, alors qu'elle tourne si je la lance avec un bouton classic.
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row
If LigneSelec >= 2 Then Recuperation
Else ....

les deux macro se situe dans la même feuille

Qu'est passa ?

Merci



Avatar
jps
bien vu Youky, même s'il y avait en fait Récupération...mais peut être
s'agit-il d'une autre macro???
jps
"Youky" a écrit dans le message de news:

.OnAction = "Restaure"
la macro doit être Sub Restaure() et Then Restaure et non Then
Restauration
Youky
"Markos" a écrit dans le message de news:
e1ugqo$a9b$
bonjour,
j'ai emprunté ( sur le forum) la macro du menu pop up qui marche
superbien, mais j'ai un hic avec 3ème contrôle :

************************
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
****************************
le problème, c'est que je n'arrive pas à lancer la macro "Restaure" du
3ème controle, alors qu'elle tourne si je la lance avec un bouton
classic.
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row
If LigneSelec >= 2 Then Recuperation
Else ....

les deux macro se situe dans la même feuille

Qu'est passa ?

Merci







Avatar
MonOnc'
bonjour Jps, Youki et Markos,

je ne suis pas d'accord avec Youki et Jps,
onAction = "Restaure", la macro "Restaure" existe bel et bien donc pas
de pb.
Dans le code de Markos, il manque la macro "DelPopupMenu9".
Je me suis permis de l'écrire et de tester ainsi que de ré-écrire la
macro "Restaure" et ça marche.

'-----------------------------------------------------------------------
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
'On Error Resume Next
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
'-----------------------------------------------------------------------
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row

If LigneSelec >= 2 Then
MsgBox "ligne selectionnée : " & LigneSelec
End If

End Sub
'-----------------------------------------------------------------------
Sub DelPopupMenu9()
Application.CommandBars("ClicDroit").Delete
End Sub
'-----------------------------------------------------------------------

cordialement


jps a formulé ce lundi :
bien vu Youky, même s'il y avait en fait Récupération...mais peut être
s'agit-il d'une autre macro???
jps


Avatar
Youky
Tu as raison MonOnc'
la confusion est vite fait
......il reste plus que Restauration qui peut coincer
Youky
"MonOnc'" a écrit dans le message de news:

bonjour Jps, Youki et Markos,

je ne suis pas d'accord avec Youki et Jps,
onAction = "Restaure", la macro "Restaure" existe bel et bien donc pas de
pb.
Dans le code de Markos, il manque la macro "DelPopupMenu9".
Je me suis permis de l'écrire et de tester ainsi que de ré-écrire la macro
"Restaure" et ça marche.

'-----------------------------------------------------------------------
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
'On Error Resume Next
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
'-----------------------------------------------------------------------
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row

If LigneSelec >= 2 Then
MsgBox "ligne selectionnée : " & LigneSelec
End If

End Sub
'-----------------------------------------------------------------------
Sub DelPopupMenu9()
Application.CommandBars("ClicDroit").Delete
End Sub
'-----------------------------------------------------------------------

cordialement


jps a formulé ce lundi :
bien vu Youky, même s'il y avait en fait Récupération...mais peut être
s'agit-il d'une autre macro???
jps






Avatar
MonOnc'
Youki,

......il reste plus que Restauration qui peut coincer
tu veux dire ... Recuperation plutôt ?


Le plus vraisemblable est que Markos ait placé la macro "Restaure" dans
le module de feuille.

bon app. à tous

Youky a utilisé son clavier pour écrire :
Tu as raison MonOnc'
la confusion est vite fait
......il reste plus que Restauration qui peut coincer
Youky
"MonOnc'" a écrit dans le message de news:



Avatar
jps
ben, moi, j'avions pensé que Markos n'avait pas voulu la faire apparaître
cette macro DelPopupMenu9 mais qu'elle existait bel et bien dans son
progr...
jps (qui a perdu un peu pied)

"MonOnc'" a écrit dans le message de news:

bonjour Jps, Youki et Markos,

je ne suis pas d'accord avec Youki et Jps,
onAction = "Restaure", la macro "Restaure" existe bel et bien donc pas de
pb.
Dans le code de Markos, il manque la macro "DelPopupMenu9".
Je me suis permis de l'écrire et de tester ainsi que de ré-écrire la macro
"Restaure" et ça marche.

'-----------------------------------------------------------------------
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
'On Error Resume Next
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
'-----------------------------------------------------------------------
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row

If LigneSelec >= 2 Then
MsgBox "ligne selectionnée : " & LigneSelec
End If

End Sub
'-----------------------------------------------------------------------
Sub DelPopupMenu9()
Application.CommandBars("ClicDroit").Delete
End Sub
'-----------------------------------------------------------------------

cordialement


jps a formulé ce lundi :
bien vu Youky, même s'il y avait en fait Récupération...mais peut être
s'agit-il d'une autre macro???
jps






Avatar
Youky
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.

J'en sais quelque chose en étant moi même au pied du Beaujolais
Youky
"jps" a écrit dans le message de news:

ben, moi, j'avions pensé que Markos n'avait pas voulu la faire apparaître
cette macro DelPopupMenu9 mais qu'elle existait bel et bien dans son
progr...
jps (qui a perdu un peu pied)

"MonOnc'" a écrit dans le message de news:

bonjour Jps, Youki et Markos,

je ne suis pas d'accord avec Youki et Jps,
onAction = "Restaure", la macro "Restaure" existe bel et bien donc pas
de pb.
Dans le code de Markos, il manque la macro "DelPopupMenu9".
Je me suis permis de l'écrire et de tester ainsi que de ré-écrire la
macro "Restaure" et ça marche.

'-----------------------------------------------------------------------
Sub CreatePopupMenu9()
Dim MaBarre As CommandBar
'On Error Resume Next
DelPopupMenu9
Set MaBarre = Application.CommandBars _
.Add(Name:="ClicDroit", Position:=msoBarPopup)
With MaBarre
.Controls.Add Type:=msoControlButton

.Controls(1).Caption = "&Sommaire"
With .Controls(1)
.OnAction = "Sommaire"
.FaceId = 350
End With

.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "&Tri des données"
With .Controls(2)
.OnAction = "Tri"
.FaceId = 210
End With
.Controls.Add Type:=msoControlButton
.Controls(3).Caption = "&Restaure la ligne"
With .Controls(3)
.OnAction = "Restaure"
.FaceId = 536
End With

.Controls.Add Type:=msoControlButton
.Controls(4).Caption = "&Imprime la page"
With .Controls(4)
.OnAction = "PrintPage"
.FaceId = 4
End With
End With
MaBarre.ShowPopup
End Sub
'-----------------------------------------------------------------------
Sub Restaure()
Dim LigneSelec
LigneSelec = ActiveCell.Row

If LigneSelec >= 2 Then
MsgBox "ligne selectionnée : " & LigneSelec
End If

End Sub
'-----------------------------------------------------------------------
Sub DelPopupMenu9()
Application.CommandBars("ClicDroit").Delete
End Sub
'-----------------------------------------------------------------------

cordialement


jps a formulé ce lundi :
bien vu Youky, même s'il y avait en fait Récupération...mais peut être
s'agit-il d'une autre macro???
jps









Avatar
jps
et où ça donc, youky? c'est que le Beaujolais, il a tellement de pieds (de
vignes)
jps

"Youky" a écrit dans le message de news:
%23avg$
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.

J'en sais quelque chose en étant moi même au pied du Beaujolais
Youky




Avatar
Youky
entre Lyon et Villefranche,
J'évite de faire la tournée du Beaujolais à cause du ballon qui vire vite au
rouge, sinon.....
A bientôt
Youky

"jps" a écrit dans le message de news:
eQh%
et où ça donc, youky? c'est que le Beaujolais, il a tellement de pieds
(de vignes)
jps

"Youky" a écrit dans le message de news:
%23avg$
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.

J'en sais quelque chose en étant moi même au pied du Beaujolais
Youky








Avatar
jps
heu...ne me dis pas que tu habites chatillon d'azergues sinon je risque de
te voir depuis ma fenêtre...
jps

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

entre Lyon et Villefranche,
J'évite de faire la tournée du Beaujolais à cause du ballon qui vire vite
au rouge, sinon.....
A bientôt
Youky

"jps" a écrit dans le message de news:
eQh%
et où ça donc, youky? c'est que le Beaujolais, il a tellement de pieds
(de vignes)
jps

"Youky" a écrit dans le message de news:
%23avg$
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.

J'en sais quelque chose en étant moi même au pied du Beaujolais
Youky












1 2