Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Edition avec paramètre

Edition avec paramètre

2 réponses
Avatar
PG49
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.

--
.
Signaler un problème avec ce contenu

2 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
Avatar
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.

--
.


Avatar
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.

--
.