[RESOLUTO)Changer la couleur de la police d'une cellule par un clic sur un bouton

[Ilino]

Bonsoir Forum
je souhaite de modifier la couleur de police dans une palge de (O14:T18)
dans la feuille1 j'ai deux boutons
si je clic sur le Bouton1 changer la couleur de la poloce de la palge de NOIR vers GRISE
si je clic sur le bouton2 changer la couleur de la poloce de GRISE vers NOIR
GRAZIE

 

[mapomme]

Re : Changer la couleur de la police d'une cellule par un clic sur un bouton

Bonsoir Ilino,

Pour gris

Range("O14:T18").Font.Color = RGB(125, 125, 125)

Pour un gris plus foncé, changer la valeur 125 par une valeur inférieure
Pour un gris plus clair, changer la valeur 125 par une valeur supérieure (mais inférieure à 255)



Pour noir:

Range("O14:T18").Font.Color = RGB(0, 0, 0)

 

[Ilino]

Re : Changer la couleur de la police d'une cellule par un clic sur un bouton

Bonsoir MAPOMME
merci pour la réponse c'est exactement ce que je cherchais
Pour gris , j'ai utilisé

Range("O14:T18").Font.Color = RGB(215, 215, 215)

GRAZIE

 

[mécano41]

Re : Changer la couleur de la police d'une cellule par un clic sur un bouton

Bonjour à tous,

Juste pour le cas où tu n'y aurais pas pensé : il y a également une solution sans bouton. Il suffit de faire un double clic sur l'une des cellules de la zone considérée.

Cordialement

 

[Modeste geedee]

Re : Changer la couleur de la police d'une cellule par un clic sur un bouton

Bonsour® Mecano41, le forum

🙄 le même avec code épuré et élagué :

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
With Range("O14:T18")
If Not Application.Intersect(target, .Cells) Is Nothing Then
    .Cells.Font.Color = IIf(.Cells.Font.Color = vbBlack, RGB(128, 128, 128), vbBlack)
    cancel = True
End If
End With
End Sub

 

[mécano41]

Re : Changer la couleur de la police d'une cellule par un clic sur un bouton

Merci Modeste pour ton coup de balai rageur 😀 ...c'est vrai que ça fait plus pro! (...et je ne pense jamais au IIF...!). A bientôt.

Cordialement

 

[job75]

Re : [RESOLUTO)Changer la couleur de la police d'une cellule par un clic sur un bouto

Bonjour à tous,

@ Modeste, puisque tu simplifies, note que les .Cells devant les 2 .Font sont inutiles 🙄

A+

 

[Modeste geedee]

Re : [RESOLUTO)Changer la couleur de la police d'une cellule par un clic sur un bouto

😉Bonsour®

@ Modeste, puisque tu simplifies, note que les .Cells devant les 2 .Font sont inutiles 🙄

😉 judicieuse remarque ...

Merci, Modeste pour ton coup de balai rageur

😉 non pas rageur, simplement empreint de malice 🙂
rageur c'et ça :😡