Taille de police

ascal44 · 26 Juin 2008

Bonsoir,
je voudrais que la taille de la police soit de 12 si la valeur est grise.

J'ai un début de code que je n'arrive pas à faire aboutir :

Code:

If Cel.Font.Color = 8421504 Then
       .Size = 12
     
           End If

Merci encore une fois pour votre aide

Kotov · 26 Juin 2008

Re : Taille de police

Bonsoir,

Je te propose le code suivant :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Font.Color = 8421504 Then .Font.Size = 12
End With
End Sub

Target étant la plage de cellules actives.
Pour l'adapter à ta macro :

Code:

Private Sub ...(je ne connais pas le nom de ta macro)
.....
    If Cel.Font.Color = 8421504 Then Cel.Font.Size = 12
.....
End Sub

Cela te convient-il ?

A +
Kotov

ascal44 · 26 Juin 2008

Re : Taille de police

merci j'ai réussi à adapter le code.
Bonne soirée

Privacy & Transparency