VBA Couleur police

Bonsoir à tous,

Je cherche à cacher le contenu de cellules en mettant la police de la même couleur

que le fond. (ici jaune)

En enregistrant, j'obtiens des codes "à la noix" (qui fonctionnent)

Range("C30:C37").Font.Color = -16711681 'jaune
Range("C30:C37").Font.Color = 65535 'jaune

J'ai essayé avec Font.Color = 6 , çà marche pas !

et ces N° de code sont-ils valables d'un ordi. à un autre ?

N'existe t-il pas un tableau avec des codes pour les couleurs de base, un peu dans

le style de celui-ci (pour couleurs de fond) ?

Bonne soirée

Claude.

Bonjour Claude,

tu devrais utiliser ColorIndex au lieu de Color. Je crois ( sous toutes réserves ) que Color peu varier selon ta configuration. Pour avoir un petit tableau des couleurs:

For i = 1 To 57
        ActiveCell = i
        ActiveCell.Font.ColorIndex = i
        ActiveCell.Offset(1, 0).Select
    Next i

Bonne journée

Merci Math,

avec:

Range("C30:C37").Font.ColorIndex = 6   'jaune

C'est nickel et je retrouve les codes du tableau de base.

à+....Claude.