Discussion :

[L'AMI Yves]

Bonjour à tous.

J'ai (un peu) cherché sur le forum, mais je ne suis sans doute pas très fort en recherche : je n'ai pas trouvé.

Je croyais que ce que je voulais faire était très simple : je voudrais mémoriser une couleur, et l'applique à une cellule de feuille quand je double-clique dedans (ça, je sais le faire).

Maintenant, j'ai créé un formulaire avec six boutons "OK" de couleurs différentes, et c'est cette couleur que je voudrais mémoriser pour la fonction ci-dessus. Et je n'arrive à rien !

J'ai commencé naïvement par prendre la valeur "Me.BackColor" dans le code associé au bouton, pour le recopier dans le "Target.Interior.Color" dans le code du "BeforeDouleClick", mais ça n'est manifestement pas le bon truc.

Alors j'ai espéré décomposer le "Me.BackColor" en trois composantes et recomposer une couleur avec RGB, mais j'ai l'impression que la valeur (Long) que je récupère dans "Me.BackColor" n'a rien à voir avec celle affichée dans les propriétés du bouton, alors je suis perdu, et je m'adresse à vous.

En vous remerciant de m'avoir lu, et en espérant avoir été compris.

AMIcalement.

[Menhir]

Tu crées six formes (Insertion > Forme) de la forme et de la taille que tu veux (rectangle, rond, étoile) et qui seront tes "boutons".
Tu les remplis avec la couleur qui va bien.

Tu mets dans un module la macro suivante :

Code :

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

1
2
3
Sub couleur()
Selection.Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
End Sub

Tu associes cette macro à chacun de tes "boutons".

Pour faire un test, tu choisies n'importe quelle cellule et tu appuies sur n'importe lequel de tes boutons.
La cellule devrait prendre la couleur du bouton.

[OrDonc]

Bonsoir
Ton formulaire se nommant Usf, as-tu, dans la fenêtre de codes de l’onglet de travail :

Code :

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

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Usf.Show
End Sub

Tu dois avoir dans la fenêtre des codes du formulaire :

Code :

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

1
2
3
4
5
6
7
Private Sub C1_Click()   ‘CommandButton1
  ActiveCell.Interior.Color = C1.BackColor
End Sub
Private Sub C2_Click()   ‘CommandButton2
  ActiveCell.Interior.Color = C2.BackColor
End Sub
…

[L'AMI Yves]

@ OrDonc.

Ca n'est pas tout à fait comme ça :

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Or Target.Column = 10 Then
    Target.Interior.Color = CoulM
End If
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub OK1_Click()
CoulM = Me.BackColor
OK
End Sub
 
Private Sub OK2_Click()
CoulM = Me.BackColor
OK
End Sub
 
etc...

Avec les déclarations ici ou là qui vont bien.

Et c'est ça qui ne marche pas : le double clic me met le fond en noir.

Merci d'avoir essayé.

[L'AMI Yves]

@Menhir

Ta suggestion ne me convient pas, car mon formulaire (dans la colonne de gauche de la page VBA, ils appellent ça "Feuille") fait aussi autre chose : j'ai besoin que ce soit bel et bien un formulaire. Je pourrais sûrement y mettre autre chose que des boutons, avec détection du clic, mais ça ferait certainement la même chose.

En fait, pour poser mon problème en d'autres termes, "Quelle calculs faut-il faire sur la valeur "BackColor" d'un élément de formulaire pour obtenir la même couleur dans une cellule de feuille.

Je tombe tellement des nues que ce soit même une question ! C'est vraiment des malades, chez µ$ !

AMIcalement.

[eriiic]

Bonjour,

Me c'est l'UF, utiliser l'objet :

Code :

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

CoulM  = Ok1.BackColor

Et comment est déclaré CoulM ? En tête du module et hors procédure ?
eric

[Menhir]

En fait, pour poser mon problème en d'autres termes, "Quelle calculs faut-il faire sur la valeur "BackColor" d'un élément de formulaire pour obtenir la même couleur dans une cellule de feuille.

Aucun.
A ma connaissance, la codification RGB est la même pour tous les éléments d'Excel tant qu'on ne passe pas par des propriétés comme ColorIndex ou autre.

Cela dit, es-tu sûr que c'est BackColor qu'il faut utiliser et non pas ForeColor ?

Comme personne, dans notre discussion, ne parle de "feuilles", j'ai cru que je serai mieux compris si je parlais de "formulaire". Est-ce cela que toi, tu appelles "userform" ?

Lorsqu'on parle de "feuilles", il s'agit généralement d'onglets du classeur Excel, de Feuilles de calcul, "Sheets" ou "Worksheets" en anglais.