Transparent ou incolore

[boulou]

Bonjour à tous.

Rendre visible ou non le contenu d'une cellule avec la formule suivante fonctionne toutefois que la cellule ne soit pas colorée. Quelle valeur accorder à ColorIndex pour être incolore, ou quelle autre solution ?



Private Sb CheckBox1_Click()
If CheckBox1 = True Then Range("a1").Font.ColorIndex = 1
If CheckBox1 = False Then Range("a1").Font.ColorIndex = 2
End Sub


Merci. Merci.
+ café et viennoiseries pour le premier à me répondre !!!!

 

[Hulk]

Re : Transparent ou incolore

Hello Uruguay 😀

Comme ceci peut-être.

Range("a1").Font.ColorIndex = xlNone

Ou

Range("a1").Font.ColorIndex = xlAutomatic

Pour me réveiller, moi ça sera une canette de café 😀

Bon week !

 

[Papou-net]

Re : Transparent ou incolore

Bonjour boulou, Hulk,

Moi, j'écrirais ceci :

Private Sb CheckBox1_Click()
If CheckBox1 = True Then Range("a1").Font.ColorIndex = Range("a1").Interior.ColorIndex
If CheckBox1 = False Then Range("a1").Font.ColorIndex = 2
End Sub

Espérant avoir répondu.

Cordialement.