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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2014

• #2

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

Bonsoir Ilino,

Pour gris

Code:

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:

Code:

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Octobre 2014

• #3

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)

Cliquez pour agrandir...

GRAZIE

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 1 Octobre 2014

• #4

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

 

Pièces jointes

• Change couleur par double-clic.xlsm

  15.1 KB · Affichages: 54

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Octobre 2014

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 1 Octobre 2014

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Octobre 2014

• #7

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+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Octobre 2014

• #8

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

😉Bonsour®

job75 à dit:

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

Cliquez pour agrandir...

😉 judicieuse remarque ...

mécano41 à dit:

Merci, Modeste pour ton coup de balai rageur

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif