Création bouton couleur

Version imprimable

09/09/2020, 09h03
audreyportiere

Création bouton couleur

Bonjour,

Je viens vers vous car j'ai besoin de votre aide.
Est-il possible de créer un bouton qui permet d'aller dans un autre onglet, j'ai essayé avec le mode création "controle de formulaire" mais je voudrais qu'il y ait un fond de couleur sur mon bouton mais c'est impossible, j'ai tout essayé, il est toujours gris. ça paraît simple mais c'est très compliqué pour moi qui suit une novice vbatienne.

Avez-vous réussi à mettre un bouton en couleur.

En vous remerciant pour votre aide.

Bonne journée.:D
09/09/2020, 09h28
Thautheme

Bonjour Audrey, bonjour le forum,

Comme toi je pensais pouvoir le faire mais en effet je n'y arrive pas non plus. Essaie avec la barre d'outil Contrôle ActiveX puis la propriété Backcolor du bouton inséré...
09/09/2020, 09h43
jurassic pork

1 pièce(s) jointe(s)

hello,
il faut utiliser un contrôle bouton activex et modifier la propriété backcolor :

Pièce jointe 578843

Edit : oops Thauthème nos messages se sont croisés mais même conclusion .

Ami calmant, J.P

Bonjour,

Citation:

Est-il possible de créer un bouton qui permet d'aller dans un autre onglet

Un bouton n'est qu'un objet parmi d'autres et si nous parlons de bouton à insérer sur une feuille il y en a de deux types. Le bouton "formulaire" et le bouton "ActiveX". A l'aide du premier nous pouvons associer une procédure (appelée Macro) alors qu'avec le deuxième nous pouvons intercepter un ou plusieurs événements comme le Clic et modifier un ou plusieurs de ces propriétés comme sa couleur, sa police, etc.

Donc pour répondre à votre question, oui, on peut modifier la couleur d'un bouton à condition que ce soit un bouton ActiveX et pour les boutons formulaire sauf erreur de ma part, on ne peut modifier que la police (couleur, type, taille, etc.)

Petit exemple avec un ActiveX ToglleButton, bouton qui a deux valeurs TRUE ou FALSE
Dans cet exemple on cache les colonnes A à D ou on les affiche et la couleur passe de vert à rouge
Les événements sont interceptés dans le module de la feuille

Procédure événementielle
Code:

1 2 3 Private Sub tglHide_UnHide_Click() Hide_UnHide End Sub
Procédure qui masque ou affiche les colonnes A à D
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Hide_UnHide() Dim msg() msg = Array("Masquer", "Afficher") With Me.tglHide_UnHide Columns("A:D").EntireColumn.Hidden = .Value .Caption = msg(Abs(.Value)) .BackColor = vbGreen / ((Abs(Not .Value) * 255) + 1) .ForeColor = vbWhite * (Abs(Not .Value)) .Font.Bold = True End With End Sub
Pour en savoir plus sur Les évènements dans la feuille de calcul Excel

09/09/2020, 09h50
Menhir

Je te conseille une solution beaucoup plus simple : utiliser une forme comme bouton (Ruban Insertion > Formes).

Il est possible d'affecter une macro à une forme, elle peut donc servir de bouton.

Et tu auras BEAUCOUP plus de possibilités d'un point de vu esthétique.
Non seulement tu pourras changer la couleur mais tu pourras aussi changer la forme : bouton rond, triangle avec coins arrondis (mon préféré), étoile, soleil, smiley et même forme libre.
Pour ce qui est de la couleur du fond, tu pourras faire des dégradés, jouer sur la transparence, faire des effets de relief, de texture, de halo, etc.

Bref, faire un vrai beau bouton plus présentable que les boutons standards qui semble tout droit sortis des années 80 (ce qui est d'ailleurs le cas). :D
09/09/2020, 10h20
jurassic pork

hello Menhir,
avec une forme comment fais-tu de façon simple l'animation du bouton appuyé relaché ?
Ami calmant, J.P
09/09/2020, 10h28
audreyportiere

Hello à tous,

Ouaw, merci à tous pour votre réactivité, je viens à peine de terminer mon petit déjeuner et je vois toutes vos réponses. Ca fait plaisir :D

Je vais tester vos différentes explications et je suis sûre que je trouverai mon bonheur.

Merci à tous. Et vive ce forum !
09/09/2020, 10h35
Philippe Tulliez
Bonjour J.P,

Citation:

avec une forme comment fais-tu de façon simple l'animation du bouton appuyé relaché ?

Rien de plus simple
Petit exemple
On associe la forme à la procédure ToggleButton
Code:

1 2 3 4 5 Sub ToggleButton() Static Value As Boolean Value = Not Value ActiveSheet.Columns("G:K").EntireColumn.Hidden = Value End Sub
On peut bien entendu sauver la dernière valeur de la variable Value dans une cellule ou référencer un nom ou même travailler directement avec cette référence
09/09/2020, 12h29
jurassic pork

hello Philippe,

:aie: je me suis peut-être mal exprimé mais ma question concernée l'aspect de la forme quand on clique dessus : donner du "relief" au bouton pour avoir l'impression d'avoir appuyé dessus. Par exemple comme solution simple sans relief, inverser les couleurs.

Ami calmant, J.P

Bonjour JP
J'avais bien compris que tu cherchais l'effet du bouton enfoncé mais je ne l'avais jamais fait

Voici un exemple qui n'est pas du plus bel effet, il faut chercher la bonne forme. C'est ma première expérience VBA avec ces formes, il y a certainement mieux à faire.

Il suffit de dessiner une forme et l'associer à la procédure ToggleButton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub ToggleButton()
  Static Value As Boolean
  Dim sh As Shape
  Dim msg()
  Set sh = ActiveSheet.Shapes(Application.Caller)
  msg = Array("Masquer", "Afficher")
  Value = Not Value
  With sh
    ' Effet 3 D
    With .ThreeD
    .BevelTopType = msoBevelCircle + Abs(Value)
    End With
    ' Alignement du texte
    With .TextFrame2
    .VerticalAnchor = msoAnchorMiddle                     ' Alignement vertical
    .TextRange.ParagraphFormat.Alignment = msoAlignCenter ' Alignement horizontal
     ' Traitement du texte
     With .TextRange
     .Characters.Text = msg(Abs(Value))
     .Font.Fill.ForeColor.RGB = vbWhite * (Abs(Not Value))
     End With
    End With
  .Fill.ForeColor.RGB = vbGreen / ((Abs(Not Value) * 255) + 1)
  End With
  ' Affiche ou masque les colonnes
  ' ActiveSheet.Columns("G:K").EntireColumn.Hidden = Value
End Sub

09/09/2020, 14h19
Menhir

Citation:

Envoyé par jurassic pork

avec une forme comment fais-tu de façon simple l'animation du bouton appuyé relaché ?

Etant donné que le bouton produit un effet de front (changement d'état) et non d'état (appuyé ou non) et donc ne peut pas avoir d'effet supplémentaire par son maintien, je ne vois pas trop l'intérêt de cette demande.

Il est possible de récupérer l'information du "clic" lorsque l'utilisateur le déclenche, mais je doute qu'il soit possible de récupérer quelque par l'information "arrêt du clic" ou "relâche du bouton".
Je ne pense donc qu'il n'est pas possible de faire ce que tu indiques, si tant est que ça puisse avoir un intérêt.

1 pièce(s) jointe(s)

hello,

en suivant l'idée à Philippe, j'ai trouvé un moyen d'animer un bouton créé à partir d'une forme :

On décale la forme de quelques pixels vers la droite et vers le bas.
On change la luminosité de la couleur de fond.
On fait une tempo de 400 millisecondes.
On remet la forme dans son état initial.

voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #If VBA7 Then ' Excel 2010 or later Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr) #Else ' Excel 2007 or earlier Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) #End If Private Sub AnimBoutonForme() Dim sh As Shape Dim lumin As Double Set sh = ActiveSheet.Shapes(Application.Caller) With sh lumin = .Fill.ForeColor.Brightness .Top = .Top + 2 .Left = .Left + 2 .Fill.ForeColor.Brightness = lumin - 0.2 DoEvents Sleep 400 .Top = .Top - 2 .Left = .Left - 2 .Fill.ForeColor.Brightness = lumin End With DoEvents End Sub
voici un exemple d'utilisation :
Code:

1 2 3 4 5 6 7 8 Sub btn_GO_Cliquer() AnimBoutonForme ActiveSheet.Range("A1").Value = "Bouton GO cliqué !" End Sub Sub btn_OK_Cliquer() AnimBoutonForme ActiveSheet.Range("A1").Value = "Bouton OK cliqué !" End Sub
et voici le résultat :

Pièce jointe 578919

Ami calmant, J.P

Citation:
Envoyé par jurassic pork
hello,

en suivant l'idée à Philippe, j'ai trouvé un moyen d'animer un bouton créé à partir d'une forme :

On décale la forme de quelques pixels vers la droite et vers le bas.
On change la luminosité de la couleur de fond.
On fait une tempo de 400 millisecondes.
On remet la forme dans son état initial.

voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #If VBA7 Then ' Excel 2010 or later Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr) #Else ' Excel 2007 or earlier Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) #End If Private Sub AnimBoutonForme() Dim sh As Shape Dim lumin As Double Set sh = ActiveSheet.Shapes(Application.Caller) With sh lumin = .Fill.ForeColor.Brightness .Top = .Top + 2 .Left = .Left + 2 .Fill.ForeColor.Brightness = lumin - 0.2 DoEvents Sleep 400 .Top = .Top - 2 .Left = .Left - 2 .Fill.ForeColor.Brightness = lumin End With DoEvents End Sub
voici un exemple d'utilisation :
Code:

1 2 3 4 5 6 7 8 Sub btn_GO_Cliquer() AnimBoutonForme ActiveSheet.Range("A1").Value = "Bouton GO cliqué !" End Sub Sub btn_OK_Cliquer() AnimBoutonForme ActiveSheet.Range("A1").Value = "Bouton OK cliqué !" End Sub
et voici le résultat :

Pièce jointe 578919

Ami calmant, J.P
Bonjour à tous,

Bonsoir JP, Bonsoir Phillipe,

@JP : Mois ce qui m'intéresse c'est de pouvoir créer un bouton commandboutton (ActiveX) modifiable, je pense bien qu'avec insertions>Formes on pourra faire des beaux boutons à condition que la page soit protégée pour qu'on ne les modifie pas (déplacer, agrandir etc..) ce qui n'est pas mon cas. D'où ma question est-il possible de fixer le bouton(formes) sur la page là on souhaite sans verrouiller et sans protection de la feuille.

Merci d'avance

Hello,
on peut très bien protéger que certaines choses sur une feuille protégée.
Exemple pour qu'à l'ouverture du classeur sur la feuille qui s'ouvre, on verrouille les formes mais qu'on autorise la modification de cellules :
Code:

1 2 3 4 5 6 7 Private Sub Workbook_Open() ActiveSheet.Protect Password:="test", contents:=False, userinterfaceonly:=True Dim shape As shape For Each shape In ActiveSheet.Shapes shape.Locked = True Next End Sub
Ami calmant, J.P

1 pièce(s) jointe(s)

Citation:
Envoyé par jurassic pork
Hello,
on peut très bien protéger que certaines choses sur une feuille protégée.
Exemple pour qu'à l'ouverture du classeur sur la feuille qui s'ouvre, on verrouille les formes mais qu'on autorise la modification de cellules :
Code:

1 2 3 4 5 6 7 Private Sub Workbook_Open() ActiveSheet.Protect Password:="test", contents:=False, userinterfaceonly:=True Dim shape As shape For Each shape In ActiveSheet.Shapes shape.Locked = True Next End Sub
Ami calmant, J.P
Bonjour JP,

Merci pour ta réponse mais j'ai trouvé un fichier et vu le dernier bouton (ActiveX)
Comment en créer ?

Pièce jointe 629904

Merci
@+