si macro appliquee, alors tu deviens blanc

R

Raja

XLDnaute Accro

• 17 Février 2009

• #2

Re : si macro appliquee, alors tu deviens blanc

Bonjour,

Le code suivant met la police de la cellule A2 en blanc :

Code:

Range("A2").Font.ColorIndex = 2

A adapter.

PS : le contenu de la cellule sera masqué(sauf si le motif de la cellule a une couleur différente de blanc), mais celui-ci pourra être lu dans la barre de formule.

 

Dernière édition: 17 Février 2009

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 17 Février 2009

• #3

Re : si macro appliquee, alors tu deviens blanc

Re,

Merci pour le code,
Petite precison, le 2 c est pour le blanc
et pour le noir c est combien? 1?

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 17 Février 2009

• #4

Re : si macro appliquee, alors tu deviens blanc

Re

Personne pour me dire qu elle est le code pour le noir??
Faut il simplement remplacer le 2 par un autre chiffre pour noir?
Ou alors faut il un code totalement different?

Marci

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 17 Février 2009

• #5

Re : si macro appliquee, alors tu deviens blanc

Bonjour



Essayes d'utiliser l'enregistreur de macros

Ainsi tu pourras avoir ce que tu cherches.


A+

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 17 Février 2009

• #6

Re : si macro appliquee, alors tu deviens blanc

Re,

Ha oui, merci.
J oublie toujours d utiliser lenregistreur de macro. Ce matin meme je me suis deja fais la reflexion. Comme quoi faut que ca rentre....

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 17 Février 2009

• #7

Re : si macro appliquee, alors tu deviens blanc

Bonjour

Ici tu as les nos:

Voir ici

Pourt le fun:

Boucle met toutes les couleurs à partir de A1:

Code:

 For i = 1 To 56
    Cells(i, 1).Select
    Selection.Interior.ColorIndex = i
    Cells(i, 2) = i
  Next i

A+

Temjeh

 

Dernière édition: 17 Février 2009

Vote positif 0 Vote négatif