Discussion :

[ericdev67]

Bonjour,

J'ai des boutons créés en "bouton formulaire". J'ai longtemps galéré, avant de m'aperçevoir dans le forum que la couleur de fond du bouton ne peut pas être changée....
Bon, bref, de toutes façons, il pleut....
En fait, j'arrive à changer la couleur du texte du bouton, ce que je cherche, c'est que lorsque je clique sur mon bouton, il "prend" la couleur du texte et la colle dans une cellule.

Un peu comme un copié-collé de la couleur.....

Des idées ???

Merci,
A+

[LeForestier]

Bonjour,
Des.. non, mais une.. oui

Code :

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

1
2
3
4
Sub Bouton1_QuanClick()
    ActiveSheet.Shapes("Button 1").Select
    Range("I6").Interior.ColorIndex = Selection.Font.ColorIndex
End Sub

A+

[ericdev67]

Merci LeForestier,

Je te joins le code que j'utilise :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("c18:af63")) Is Nothing Then Exit Sub
 
 
If  x = "" Then
 
    Exit Sub
Else
    Target.Value = x
 
   x = ""
 
End If
 
End Sub
 
 
Sub Test_nom()
Range("A41").Select
    x = Application.Caller
 
End Sub

A partir d'une idée de Fring (rendons à César,....)

Le principe : je clique sur l'objet (la macro Test_nom), je "prends" son nom et je clique sur une cellule et miracle de la macro, le nom est inséré dans la cellule.
En fait, j'aimerais faire la même chose avec la couleur de l'objet (l'écriture, pas le motif car impossible apparement).

J'ai essayé d'utiliser ton code, enfin les instructions ("interiorcolor, colorindex,..."), combinés avec "target, application", j'ai essayé plusieurs combinaisons, sans succès....



Merci
A+

[LeForestier]

Un "bouton formulaire" n'active aucun événement de feuille, tu doit mettre cela directement dans la macro du bouton.
Target est un Range, autrement dit.. une cellule ou plage de cellule.
Précise.. c'est bien un bouton de la barre d'outils "Formulaire" ?
Mais il est possible que tu veuille "montrer" d'abord la cellule que tu veux modifier !! dans ce cas là..

Code :

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

1
2
3
4
5
Dim AncAdd As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    AncAdd = Target.Address
End Sub

Et dans la mocros liée au bouton...

Code :

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

1
2
3
4
Sub Bouton1_QuanClick()
    ActiveSheet.Shapes("Button 1").Select
    Range(AncAdd).Interior.ColorIndex = Selection.Font.ColorIndex
End

Tu dis.

[ericdev67]

Merci LeForestier,

oui, je me sers bien des boutons de formulaire auquel j'affecte ma macro "test_nom", le 'nom' du bouton est récupéré et lorsque je clique dans une cellule, le texte du 'nom' est mis.

Par contre, j'ai essayé ton code, il me répond : "la méthode 'Range' de l'objet '_Global' a échoué".

J'ai essayé avec mon code de récupérer la valeur de la couleur du texte pour pouvoir la récupérer lorsque je clique sur ma cellule :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("c18:af63")) Is Nothing Then Exit Sub
If x = "" Then
       Exit Sub
Else
    Target.Value = x
    Selection.Interior.ColorIndex = y
    x = ""
End If
End Sub
 
 
Public x, y As String
Sub Test_nom()
Range("A41").Select
    x = Application.Caller
    y = Selection.Font.ColorIndex
 
End Sub

Et même là, ça ne fonctionne pas....il me donne -4142 en valeur de y.....

Merci,
A+

(juste, dans mon code, le "Range("A41") est de trop....)

skuz

[LeForestier]

Ok,j'ai compris, tu fais l'inverse, tu clic d'abord sur le bouton et ensuite sur la cellule que tu veux colorier.
Si ça fonctionne oublie pas
A+