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.

 

[M12]

Bonjour,

Teste

Range("A8").Interior.Color = 5296274

 

[DoubleZero]

Bonjour, fleet21, M12, le Forum,

...mettre une couleur de remplissage dans une cellule par vba...

Laquelle ?

Le code ci-après applique la couleur souhaitée par clic double.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    c.Interior.Color = 5296274
End Sub

A bientôt

 

[fleet21]

Bonjour à tous,

M12 a donné le code pour le vert qu'il me fallait (5296274), je souhaiterais avoir celui du rouge et à terme comment trouver ces valeurs existe t-il un tableau de référence ou une formule ?

 

[M12]

Bonjour,

Dans ce cas, au lieu de mettre un chiffre
tu remplaces par
=RGB(255,0,0) 'pour le rouge
=RGB(0,255,0) ' pour le vert
=RGB(0,0,255) 'pour le bleu

 

[fleet21]

d'accord et pour mon info personnelle et celle de ceux que ça intéresse d’où vient 5296274 pour avoir du vert par exemple.

 

[DoubleZero]

Bonjour, fleet21, M12, le Forum,

Appliquer une couleur sur une cellule puis exécuter le code suivant :

Option Explicit
Sub Code_couleur()
    MsgBox Selection.Interior.Color & Chr(10) & Selection.Interior.ColorIndex
End Sub

A bientôt

 

[riton00]

Bonjour à tous

Peut être ici voir pièce jointe

Slts

 

[Si...]

Salut

Comme souvent ÕÖ*, je balance et pour un effet va et vient :

Dim Fond As Single
Private Sub Worksheet_SelectionChange(ByVal R As Range)
  Fond = R.Interior.ColorIndex 'couleur à récupérer
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  Cancel = 1 'puis effet bascule
  R.Interior.ColorIndex = IIf(R.Interior.ColorIndex = 3, Fond, 3)
End Sub

*mon bon souvenir et bise.ColorIndex

 

[M12]

Bonjour à tous,

Je suis resté "simplet",
CAR
il y aura des "peut-être" ou "surement" des recherches par la suite (comme on j'en voit souvent par "COULEUR")
au moins avec des couleurs de base c'est plus facile à faire son module

 

[fleet21]

Et pour mettre aucun remplissage dans une colonne car Range("B" & v).Interior.Color = RGB(255, 255, 255) enlève les traits

 

[fleet21]

Personne ?

 

[fleet21]

La macro de doublezero ne fonctionne pas dans ce cas là elle sort le code de la couleur blanche pour des cases sans remplissage

 

[DoubleZero]

Bonjour à toutes et à tous,

Merci, très agréable journée et bonne continuation...

 

[fleet21]

Quel est le but de cette intervention doublezero ??