[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