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
JB
Bonjour,
Barre de boutons avec passage de paramètre:
Sub auto_open() On Error Resume Next Application.CommandBars("BarreEdition").Delete CommandBars.Add ("BarreEdition") CommandBars("BarreEdition").Visible = True
p = 1 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition1"
p = 2 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition2"
p = 3 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition3" End Sub
Sub Edition(p) MsgBox p End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreEdition").Delete End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" wrote:
Bonjour,
Je vais essayé d'etre clair... comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1) et un autre bouton d'édition détaillée qui lancerait : sub éditio n(2)
Merci de votre aide.
-- .
Bonjour,
Barre de boutons avec passage de paramètre:
Sub auto_open()
On Error Resume Next
Application.CommandBars("BarreEdition").Delete
CommandBars.Add ("BarreEdition")
CommandBars("BarreEdition").Visible = True
p = 1
Set bouton =
CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition1"
p = 2
Set bouton =
CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition2"
p = 3
Set bouton =
CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition3"
End Sub
Sub Edition(p)
MsgBox p
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreEdition").Delete
End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" <a...@a49.com> wrote:
Bonjour,
Je vais essayé d'etre clair...
comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA
avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1)
et un autre bouton d'édition détaillée qui lancerait : sub éditio n(2)
Sub auto_open() On Error Resume Next Application.CommandBars("BarreEdition").Delete CommandBars.Add ("BarreEdition") CommandBars("BarreEdition").Visible = True
p = 1 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition1"
p = 2 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition2"
p = 3 Set bouton = CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition3" End Sub
Sub Edition(p) MsgBox p End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreEdition").Delete End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" wrote:
Bonjour,
Je vais essayé d'etre clair... comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1) et un autre bouton d'édition détaillée qui lancerait : sub éditio n(2)
Merci de votre aide.
-- .
PG49
Bonjour,
Merci pour ta réponse. Toutefois a priori cela ne me convient pas car il ne s'agit pas de bouton dans une barre d'outils mais de bouton directement sur la feuille excel.
"JB" a écrit dans le message de news:
Bonjour,
Barre de boutons avec passage de paramètre:
Sub auto_open() On Error Resume Next Application.CommandBars("BarreEdition").Delete CommandBars.Add ("BarreEdition") CommandBars("BarreEdition").Visible = True
p = 1 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition1"
p = 2 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition2"
p = 3 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition3" End Sub
Sub Edition(p) MsgBox p End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreEdition").Delete End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" wrote:
Bonjour,
Je vais essayé d'etre clair... comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1) et un autre bouton d'édition détaillée qui lancerait : sub édition(2)
Merci de votre aide.
-- .
Bonjour,
Merci pour ta réponse. Toutefois a priori cela ne me convient pas car il ne
s'agit pas de bouton dans une barre d'outils mais de bouton directement sur
la feuille excel.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1185378431.457781.289050@57g2000hsv.googlegroups.com...
Bonjour,
Barre de boutons avec passage de paramètre:
Sub auto_open()
On Error Resume Next
Application.CommandBars("BarreEdition").Delete
CommandBars.Add ("BarreEdition")
CommandBars("BarreEdition").Visible = True
p = 1
Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition1"
p = 2
Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition2"
p = 3
Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Edition """ & p & """'"
bouton.Caption = "Edition3"
End Sub
Sub Edition(p)
MsgBox p
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreEdition").Delete
End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" <a...@a49.com> wrote:
Bonjour,
Je vais essayé d'etre clair...
comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA
avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1)
et un autre bouton d'édition détaillée qui lancerait : sub édition(2)
Merci pour ta réponse. Toutefois a priori cela ne me convient pas car il ne s'agit pas de bouton dans une barre d'outils mais de bouton directement sur la feuille excel.
"JB" a écrit dans le message de news:
Bonjour,
Barre de boutons avec passage de paramètre:
Sub auto_open() On Error Resume Next Application.CommandBars("BarreEdition").Delete CommandBars.Add ("BarreEdition") CommandBars("BarreEdition").Visible = True
p = 1 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition1"
p = 2 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition2"
p = 3 Set bouton CommandBars("BarreEdition").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.OnAction = "'Edition """ & p & """'" bouton.Caption = "Edition3" End Sub
Sub Edition(p) MsgBox p End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreEdition").Delete End Sub
http://cjoint.com/?hzrVfgwO2S
JB
On 25 juil, 16:53, "PG49" wrote:
Bonjour,
Je vais essayé d'etre clair... comment lancer, à partir d'un bouton sur la feuille Excel, une macro VBA avec des paramètres.
Exemple j'ai un bouton d'édition simple qui lancerait : sub edition(1) et un autre bouton d'édition détaillée qui lancerait : sub édition(2)