Je souhaiterais faire une macro qui me cr=E9e un bouton sur =20
une feuille excel et lier une autre macro =E0 ce bouton.
J'ai d=E9marr=E9 comme ceci :
Sub cr=E9ation_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text =3D "Modification formulaire"
With Selection.Characters(Start:=3D1, Length:=3D23).Font
.Name =3D "Arial"
.FontStyle =3D "Normal"
.Size =3D 10
.Strikethrough =3D False
.Superscript =3D False
.Subscript =3D False
.OutlineFont =3D False
.Shadow =3D False
.Underline =3D xlUnderlineStyleNone
.ColorIndex =3D xlAutomatic
End With
Selection.OnAction =3D "test"
Range("A5").Select
End Sub
Je voudrais surtout pouvoir nommer le bouton !
Le probl=E8me, si je l'ex=E9cute plusieurs fois il y a=20
=E9videment une incr=E9mentation au niveau du bouton !
Merci d'avance
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
ru-th
Salut
Sub création_bouton() on error resume next ActiveSheet.Buttons("toto").delete With ActiveSheet.Buttons.Add(281.25, 6, 140.25, 15.75) .Characters.Text = "Modification formulaire" .OnAction = "test" .Name = "toto" End With Range("A5").Select ActiveSheet.Buttons("toto").Select End Sub
a+ rural thierry "boby" a écrit dans le message de news: 09c101c3dc43$8c4138b0$ Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
Boby
Salut
Sub création_bouton()
on error resume next
ActiveSheet.Buttons("toto").delete
With ActiveSheet.Buttons.Add(281.25, 6, 140.25, 15.75)
.Characters.Text = "Modification formulaire"
.OnAction = "test"
.Name = "toto"
End With
Range("A5").Select
ActiveSheet.Buttons("toto").Select
End Sub
a+
rural thierry
"boby" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 09c101c3dc43$8c4138b0$a601280a@phx.gbl...
Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = "Modification formulaire"
With Selection.Characters(Start:=1, Length:#).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "test"
Range("A5").Select
End Sub
Je voudrais surtout pouvoir nommer le bouton !
Le problème, si je l'exécute plusieurs fois il y a
évidement une incrémentation au niveau du bouton !
Merci d'avance
Sub création_bouton() on error resume next ActiveSheet.Buttons("toto").delete With ActiveSheet.Buttons.Add(281.25, 6, 140.25, 15.75) .Characters.Text = "Modification formulaire" .OnAction = "test" .Name = "toto" End With Range("A5").Select ActiveSheet.Buttons("toto").Select End Sub
a+ rural thierry "boby" a écrit dans le message de news: 09c101c3dc43$8c4138b0$ Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
Boby
Ellimac
Bonjour,
Retire seulement :
ActiveSheet.Shapes("Button 4").Select
Camille
-----Message d'origine----- Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
Boby .
Bonjour,
Retire seulement :
ActiveSheet.Shapes("Button 4").Select
Camille
-----Message d'origine-----
Bonjour,
Je souhaiterais faire une macro qui me crée un bouton
sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = "Modification formulaire"
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "test"
Range("A5").Select
End Sub
Je voudrais surtout pouvoir nommer le bouton !
Le problème, si je l'exécute plusieurs fois il y a
évidement une incrémentation au niveau du bouton !
Merci d'avance
Je souhaiterais faire une macro qui me crée un bouton sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
Boby .
boby
Merci Camille,
Effectivement il suffit de retirer la ligne ActiveSheet.Shapes("Button 4").Select
A+
-----Message d'origine----- Bonjour,
Retire seulement :
ActiveSheet.Shapes("Button 4").Select
Camille
-----Message d'origine----- Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
Boby .
.
Merci Camille,
Effectivement il suffit de retirer la ligne
ActiveSheet.Shapes("Button 4").Select
A+
-----Message d'origine-----
Bonjour,
Retire seulement :
ActiveSheet.Shapes("Button 4").Select
Camille
-----Message d'origine-----
Bonjour,
Je souhaiterais faire une macro qui me crée un bouton
sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select
ActiveSheet.Shapes("Button 4").Select
Selection.Characters.Text = "Modification formulaire"
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "test"
Range("A5").Select
End Sub
Je voudrais surtout pouvoir nommer le bouton !
Le problème, si je l'exécute plusieurs fois il y a
évidement une incrémentation au niveau du bouton !
Merci d'avance
Effectivement il suffit de retirer la ligne ActiveSheet.Shapes("Button 4").Select
A+
-----Message d'origine----- Bonjour,
Retire seulement :
ActiveSheet.Shapes("Button 4").Select
Camille
-----Message d'origine----- Bonjour,
Je souhaiterais faire une macro qui me crée un bouton sur
une feuille excel et lier une autre macro à ce bouton.
J'ai démarré comme ceci :
Sub création_bouton()
ActiveSheet.Buttons.Add(281.25, 6, 140.25,15.75).Select ActiveSheet.Shapes("Button 4").Select Selection.Characters.Text = "Modification formulaire" With Selection.Characters(Start:=1, Length:#).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.OnAction = "test" Range("A5").Select End Sub
Je voudrais surtout pouvoir nommer le bouton ! Le problème, si je l'exécute plusieurs fois il y a évidement une incrémentation au niveau du bouton ! Merci d'avance
