Discussion :

[audreyportiere]

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.

[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é...

[jurassic pork]

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



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

Ami calmant, J.P

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub tglHide_UnHide_Click()
  Hide_UnHide
End Sub

Procédure qui masque ou affiche les colonnes A à D

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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).

[jurassic pork]

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

[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

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


Merci à tous. Et vive ce forum !

[Philippe Tulliez]

Bonjour J.P,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jurassic pork]

hello Philippe,

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



Ami calmant, J.P

[Reis71]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Reis71]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

tuto_boutons_avances.xlsm

Merci
@+