Discussion :

[Heathcliff_1]

Bonjour,

J'ai trois boutons (sur feuille1) normaux (pas ActiveX) liés à la même macro ci-dessous:

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
Sub Bouton()
 
Nombouton = Application.Caller
 
If Nombouton = "Bouton 1" Then
ThisWorkbook.Sheets("feuille2").Range("G2").Value = "#VAL1#"
 
ElseIf Nombouton = "Bouton 3" Then
ThisWorkbook.Sheets("feuille2").Range("G2").Value = "#VAL2#"
 
ElseIf Nombouton = "Bouton 4" Then
ThisWorkbook.Sheets("feuille2").Range("G2").Value = "#VAL3#"
 
End If
 
End Sub

Comme vous l'avez compris, chaque bouton, une fois cliqué met une chaîne de caractère dans une cellule.
Ce que je cherche, c'est que le bouton cliqué change de couleur une fois cliqué pour qu'on puisse visuellement reconnaître le bouton cliqué. Bien entendu, quand un autre bouton est cliqué, le premier reprend sa couleur normale et c'est le deuxième qui est coloré.

J'espère que ma description est claire. En attendant vos retour je vous souhaite un agréable week-end.

Cdt;

[Heathcliff_1]

Personne pour l'aide? je pensais que c'était une tache facile.

[Menhir]

Personne pour l'aide? je pensais que c'était une tache facile.

A ma connaissance, non seulement ce n'est pas facile mais c'est impossible.
Pour une raison très simple : si je ne me trompe pas, il n'est pas possible de modifier la couleur d'un bouton de formulaire.
Tu pourrais, au mieux, modifier la couleur de police :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton()
Dim BT As Object
 
Set BT = ActiveSheet.Buttons(Application.Caller)
ActiveSheet.Buttons(Array("Bouton 1", "Bouton 3", "Bouton 4")).Font.ColorIndex = 4
BT.Font.ColorIndex = 3
ThisWorkbook.Sheets("feuille2").Range("G2").Value = "#VAL" & Right(BT.Name, 1) & "#"
 
End Sub

Mais, heureusement, il y a une solution pour que tu obtiennes l'effet que tu souhaites : remplacer ton bouton par une simple forme, par exemple un rectangle.

En fait, le bouton de formulaire a peu d'intérêt étant donné qu'on peut faire la même chose en mieux avec des formes.
L'avantage des formes c'est qu'on est totalement libre aussi bien pour la forme (bien sûr) mais aussi la couleur, l'aspect (bombé, creux, métallique, etc.).
Donc, tu peux faire un bouton qui aura exactement le même aspect de ton bouton gris de formulaire ou un rond rouge bombé, une étoile ombrée avec un dégradé d'orange-rouge, etc.

Bref, comme je le disais, le bouton de formulaire.... tu oublies.

[Heathcliff_1]

Bonjour Menhir,

Ton code me suffit largement merci beaucoup !
Pour les boutons de formulaire oui t'as raison ils ne servent pas à grande chose d'après ma courte expérience avec le VBA.

Bon week end et merci encore une fois.

Cdt;

[Pierre Fauconnier]

Salut.

Tu pourrais mettre une zone de texte et lui associer la macro. Tu aurais alors beaucoup plus de latitude sur la présentation de ton "bouton" (coins arrondis, couleur de fond et de police, taille du texte, ...)