Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Colorer un bouton

Colorer un bouton

16 réponses
Avatar
Guy72
Bonjour,
Peut-on avoir un bouton de couleur quand il vient de la barre formulaires ?
--
Cordialement
Guy
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
MichDenis
non, seulement le texte peut être en couleur


"Guy72" a écrit dans le message de news:
Bonjour,
Peut-on avoir un bouton de couleur quand il vient de la barre formulaires ?
--
Cordialement
Guy
Avatar
Guy72
Ok merci MichDenis
--
Cordialement
Guy

"MichDenis" a écrit dans le message de news:
%
non, seulement le texte peut être en couleur


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

Bonjour,
Peut-on avoir un bouton de couleur quand il vient de la barre formulaires
?
--
Cordialement
Guy




Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Peut-on avoir un bouton de couleur quand il vient de la barre
formulaires ?


:-(
non !!!
;o)))
mais n'importe quel objet dessiné peut servir de bouton ....

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Line.ForeColor.SchemeColor = 42
Selection.ShapeRange.Line.Visible = msoTrue
Selection.OnAction = "uneMacro"
End Sub


--
--
@+
;o)))
Avatar
MichDenis
Tu pourrais quand même faire un effort pour la présentation du code... Que diantre !
;-))
'----------------------------------------------
Sub Macro1()
Dim Sh As Shape
With Worksheets("Feuil1")
With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75)
.Fill.ForeColor.SchemeColor = 57
.Fill.Visible = msoTrue
.Fill.Solid
.Line.ForeColor.SchemeColor = 42
.Line.Visible = msoTrue
'Préférable de mettre le nom du module
'ou est situé ta macro...
.OnAction = "Feuil1.uneMacro"
End With
End With
End Sub
'----------------------------------------------
Avatar
Guy72
Je vous remercie à tous les deux, mais avec ce que je fait,ça ne vas pas car
ce bouton, je voulais le mettre en rouge car il supprime toutes les shapes.
Donc, lui il se supprime tout seul.
--
Cordialement
Guy

"MichDenis" a écrit dans le message de news:
OD%
Tu pourrais quand même faire un effort pour la présentation du code... Que
diantre !
;-))
'----------------------------------------------
Sub Macro1()
Dim Sh As Shape
With Worksheets("Feuil1")
With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75)
.Fill.ForeColor.SchemeColor = 57
.Fill.Visible = msoTrue
.Fill.Solid
.Line.ForeColor.SchemeColor = 42
.Line.Visible = msoTrue
'Préférable de mettre le nom du module
'ou est situé ta macro...
.OnAction = "Feuil1.uneMacro"
End With
End With
End Sub
'----------------------------------------------





Avatar
JB
Bonsoir,

Pendre un bouton de la BO contrôles.

JB

On 22 juin, 17:32, "Guy72" wrote:
Je vous remercie à tous les deux, mais avec ce que je fait,ça ne vas p as car
ce bouton, je voulais le mettre en rouge car il supprime toutes les shapes .
Donc, lui il se supprime tout seul.
--
Cordialement
Guy

"MichDenis" a écrit dans le message de news:
OD%



> Tu pourrais quand même faire un effort pour la présentation du code. .. Que
> diantre !
> ;-))
> '----------------------------------------------
> Sub Macro1()
> Dim Sh As Shape
> With Worksheets("Feuil1")
>    With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75 )
>        .Fill.ForeColor.SchemeColor = 57
>        .Fill.Visible = msoTrue
>        .Fill.Solid
>        .Line.ForeColor.SchemeColor = 42
>        .Line.Visible = msoTrue
>        'Préférable de mettre le nom du module
>        'ou est situé ta macro...
>        .OnAction = "Feuil1.uneMacro"
>    End With
> End With
> End Sub
> '----------------------------------------------- Masquer le texte des me ssages précédents -

- Afficher le texte des messages précédents -


Avatar
Guy72
C'est ce que j'ai fais, mais je ne savais pas si on pouvait le faire avec
"formulaires"
--
Cordialement
Guy

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

Bonsoir,

Pendre un bouton de la BO contrôles.

JB

On 22 juin, 17:32, "Guy72" wrote:
Je vous remercie à tous les deux, mais avec ce que je fait,ça ne vas pas
car
ce bouton, je voulais le mettre en rouge car il supprime toutes les
shapes.
Donc, lui il se supprime tout seul.
--
Cordialement
Guy

"MichDenis" a écrit dans le message de news:
OD%



> Tu pourrais quand même faire un effort pour la présentation du code...
> Que
> diantre !
> ;-))
> '----------------------------------------------
> Sub Macro1()
> Dim Sh As Shape
> With Worksheets("Feuil1")
> With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75)
> .Fill.ForeColor.SchemeColor = 57
> .Fill.Visible = msoTrue
> .Fill.Solid
> .Line.ForeColor.SchemeColor = 42
> .Line.Visible = msoTrue
> 'Préférable de mettre le nom du module
> 'ou est situé ta macro...
> .OnAction = "Feuil1.uneMacro"
> End With
> End With
> End Sub
> '----------------------------------------------- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -


Avatar
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Je vous remercie à tous les deux, mais avec ce que je fait,ça ne vas
pas car ce bouton, je voulais le mettre en rouge car il supprime
toutes les shapes. Donc, lui il se supprime tout seul.



Sub Macro1()
Dim Sh As Shape
With Worksheets("Feuil1")
With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75)
.Fill.ForeColor.SchemeColor = 10
.Fill.BackColor.SchemeColor = 63
.Fill.TwoColorGradient msoGradientDiagonalUp, 4
.Fill.Visible = msoTrue
.Fill.Solid
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.OnAction = "supshapes"
End With
End With
End Sub

Sub SupShapes()
Dim c As Shape
For Each c In ActiveSheet.Shapes
If c.AutoShapeType <> msoShapeBevel Then c.Delete
'If c.Name <> "Bouton_Supp" Then c.Delete
Next c
End Sub

--
@+
;o)))
Avatar
Guy72
Pas mal modeste le bouton rouge.
Lui il reste .
Mais, tous les autres boutons disparaissent !
--
Cordialement
Guy

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

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Je vous remercie à tous les deux, mais avec ce que je fait,ça ne vas
pas car ce bouton, je voulais le mettre en rouge car il supprime
toutes les shapes. Donc, lui il se supprime tout seul.



Sub Macro1()
Dim Sh As Shape
With Worksheets("Feuil1")
With .Shapes.AddShape(msoShapeBevel, 240.75, 50.25, 119.25, 63.75)
.Fill.ForeColor.SchemeColor = 10
.Fill.BackColor.SchemeColor = 63
.Fill.TwoColorGradient msoGradientDiagonalUp, 4
.Fill.Visible = msoTrue
.Fill.Solid
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.OnAction = "supshapes"
End With
End With
End Sub

Sub SupShapes()
Dim c As Shape
For Each c In ActiveSheet.Shapes
If c.AutoShapeType <> msoShapeBevel Then c.Delete
'If c.Name <> "Bouton_Supp" Then c.Delete
Next c
End Sub

--
@+
;o)))
Avatar
MichDenis
'-----------------------------------
Sub SupShapes()
Dim c As Shape
For Each c In ActiveSheet.Shapes
If c.AutoShapeType <> msoShapeBevel Then c.Delete
'If c.Name <> "Bouton_Supp" Then c.Delete
Next c
End Sub
'-----------------------------------

Évidemment, M. Modeste n'a pas essayé cette procédure dans une feuille
où il y a des commentaires et des listes de validation... sinon il se serait
rendu compte que ces 2 éléments n'apprécient pas tellement le traitement.

Bon ce n'est pas tellement grave, il continue à apprendre !
;-))
1 2