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 ....
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone mais c'est tout de même trés proche Youky "jps" a écrit dans le message de news:
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
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone mais
c'est tout de même trés proche
Youky
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OoVWbfjYGHA.4060@TK2MSFTNGP02.phx.gbl...
heu...ne me dis pas que tu habites chatillon d'azergues sinon je risque de
te voir depuis ma fenêtre...
jps
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eTS5SLjYGHA.3448@TK2MSFTNGP04.phx.gbl...
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" <jps@wannadoodoo.fr> a écrit dans le message de news:
eQh%23EFjYGHA.5012@TK2MSFTNGP05.phx.gbl...
et où ça donc, youky? c'est que le Beaujolais, il a tellement de pieds
(de vignes)
jps
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23avg$JiYGHA.4144@TK2MSFTNGP04.phx.gbl...
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
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone mais c'est tout de même trés proche Youky "jps" a écrit dans le message de news:
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
Clément Marcotte
Bonjour,
jps (qui a perdu un peu pied) Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de footbal d'une certaine équipe... (Mais c'est vrai que le Beaujolais lui donne des ailes...)
Bonjour,
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de
footbal d'une certaine équipe...
(Mais c'est vrai que le Beaujolais lui donne des ailes...)
jps (qui a perdu un peu pied) Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de footbal d'une certaine équipe... (Mais c'est vrai que le Beaujolais lui donne des ailes...)
Youky
Ben, ça alors.!!! Au Quebec vous suivez le foot d'ici. eureka ! Ca y est j'ai compris !!...c'est le Beaujolais que vous suivez surtout Youky "Clément Marcotte" a écrit dans le message de news: %
Bonjour,
jps (qui a perdu un peu pied) Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de footbal d'une certaine équipe... (Mais c'est vrai que le Beaujolais lui donne des ailes...)
Ben, ça alors.!!!
Au Quebec vous suivez le foot d'ici.
eureka !
Ca y est j'ai compris !!...c'est le Beaujolais que vous suivez surtout
Youky
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: %238U5YQkYGHA.508@TK2MSFTNGP02.phx.gbl...
Bonjour,
jps (qui a perdu un peu pied)
Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de
footbal d'une certaine équipe...
(Mais c'est vrai que le Beaujolais lui donne des ailes...)
Ben, ça alors.!!! Au Quebec vous suivez le foot d'ici. eureka ! Ca y est j'ai compris !!...c'est le Beaujolais que vous suivez surtout Youky "Clément Marcotte" a écrit dans le message de news: %
Bonjour,
jps (qui a perdu un peu pied) Avec la chaleur et le Beaujolais........Normal.
Moi qui pensait qu'il avait sauté trop haut après la dernière partie de footbal d'une certaine équipe... (Mais c'est vrai que le Beaujolais lui donne des ailes...)
jps
pas loin en effet youky faudra qu'on mette sur pieds (toujours de beaujolais) une mini-rencontre... à suivre jps
"Youky" a écrit dans le message de news:
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone mais c'est tout de même trés proche Youky "jps" a écrit dans le message de news:
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
pas loin en effet youky
faudra qu'on mette sur pieds (toujours de beaujolais) une mini-rencontre...
à suivre
jps
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eR80KqjYGHA.2376@TK2MSFTNGP03.phx.gbl...
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone
mais c'est tout de même trés proche
Youky
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OoVWbfjYGHA.4060@TK2MSFTNGP02.phx.gbl...
heu...ne me dis pas que tu habites chatillon d'azergues sinon je risque
de te voir depuis ma fenêtre...
jps
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eTS5SLjYGHA.3448@TK2MSFTNGP04.phx.gbl...
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" <jps@wannadoodoo.fr> a écrit dans le message de news:
eQh%23EFjYGHA.5012@TK2MSFTNGP05.phx.gbl...
et où ça donc, youky? c'est que le Beaujolais, il a tellement de pieds
(de vignes)
jps
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23avg$JiYGHA.4144@TK2MSFTNGP04.phx.gbl...
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
pas loin en effet youky faudra qu'on mette sur pieds (toujours de beaujolais) une mini-rencontre... à suivre jps
"Youky" a écrit dans le message de news:
Non , par la fenêtre c'est pas possible, je suis de Neuville sur Saone mais c'est tout de même trés proche Youky "jps" a écrit dans le message de news:
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
Youky
re, en debut de la macro Restaure tu mets MsgBox "en macro Restaure,ligne selectionnée=" & ActiveCell.Row code sous ton bouton tu mets Restaure comme ceci Private Sub CommandButton1_Click() Restaure End Sub si tu as la boite de message avec le bon N° de ligne faut voir plus loin dans ta macro sinon tout parait OK Youky
"mark Desnoyer" a écrit dans le message de news: e23hss$avf$ Bonjour et merci à tous, Le beaujolais c'est super, Chez nous ancien grand pays viticole francais, la qualité est aujourd'hui au rendez-vous chez quelques producteurs. Ce ne sont pas de grands crus, mais il y à gouter...
bref je reviens de tester la macro, que neni, toutes les option courent sauf la macro "restaure". un clic sur Restaure la ligne ds le pop up n'a aucun effet. D'ailleur si j'insiste un peu, l'erreur 400 arrive à grand pas.
Je parlait de l'Auvergne, avec ces Boudes, Madargues, cotes de chanturgue... petit mais goulayant, frais et bien typés... "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
re,
en debut de la macro Restaure tu mets
MsgBox "en macro Restaure,ligne selectionnée=" & ActiveCell.Row
code sous ton bouton tu mets Restaure
comme ceci
Private Sub CommandButton1_Click()
Restaure
End Sub
si tu as la boite de message avec le bon N° de ligne
faut voir plus loin dans ta macro
sinon tout parait OK
Youky
"mark Desnoyer" <aaamarkaaadesnoyeraaa@tiscali.fr> a écrit dans le message
de news: e23hss$avf$1@news.tiscali.fr...
Bonjour et merci à tous,
Le beaujolais c'est super,
Chez nous ancien grand pays viticole francais, la qualité est aujourd'hui au
rendez-vous chez quelques producteurs. Ce ne sont pas de grands crus, mais
il y à gouter...
bref je reviens de tester la macro, que neni, toutes les option courent sauf
la macro "restaure".
un clic sur Restaure la ligne ds le pop up n'a aucun effet. D'ailleur si
j'insiste un peu, l'erreur 400 arrive à grand pas.
Je parlait de l'Auvergne, avec ces Boudes, Madargues, cotes de chanturgue...
petit mais goulayant, frais et bien typés...
"Markos" <markos.psb@tiscali.fr> a écrit dans le message de news:
e1ugqo$a9b$1@news.tiscali.fr...
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 ....
re, en debut de la macro Restaure tu mets MsgBox "en macro Restaure,ligne selectionnée=" & ActiveCell.Row code sous ton bouton tu mets Restaure comme ceci Private Sub CommandButton1_Click() Restaure End Sub si tu as la boite de message avec le bon N° de ligne faut voir plus loin dans ta macro sinon tout parait OK Youky
"mark Desnoyer" a écrit dans le message de news: e23hss$avf$ Bonjour et merci à tous, Le beaujolais c'est super, Chez nous ancien grand pays viticole francais, la qualité est aujourd'hui au rendez-vous chez quelques producteurs. Ce ne sont pas de grands crus, mais il y à gouter...
bref je reviens de tester la macro, que neni, toutes les option courent sauf la macro "restaure". un clic sur Restaure la ligne ds le pop up n'a aucun effet. D'ailleur si j'insiste un peu, l'erreur 400 arrive à grand pas.
Je parlait de l'Auvergne, avec ces Boudes, Madargues, cotes de chanturgue... petit mais goulayant, frais et bien typés... "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 ....
