remplissage cellule

[fleet21]

Bonjour,

Je souhaite mettre une couleur de remplissage dans une cellule par vba, avec l’enregistrement macro ça me donne une usine à gaz dont je ne veux pas :

Range("A8").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5296274

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Il y a certainement moyen de faire plus court et lisible.

 

[fleet21]

Bref une réponse utile à cette question sera la bienvenue :

Comment mettre aucun remplissage dans une colonne B par exemple car Range("B" & v).Interior.Color = RGB(255, 255, 255) enlève les bordures

 

[Shakki]

Bonjour,

Tu as essayé Interior.Color = xlNone ?

Pour info, la macro de 00 fonctionne très bien : elle récupère la couleur des cellules. Et la couleur visible d'une cellule sans format particulier est le blanc.

A+

 

[fleet21]

Bonjour à tous
petit rectificatif : la macro fonctionne mais elle ne convient pas dans mon cas.
Merci shakki ce code fonctionne