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

Ilino

XLDnaute Barbatruc
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
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
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)
 

mécano41

XLDnaute Accro
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

Modeste geedee

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

Bonsour® Mecano41, le forum

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

Discussions similaires