remplissage cellule

M12

XLDnaute Accro

• 8 Novembre 2016

• #2

Bonjour,

Teste

Code:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 8 Novembre 2016

• #3

Bonjour, fleet21, M12, le Forum,

fleet21 à dit:

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

Cliquez pour agrandir...

Laquelle ?

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

VB:

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

A bientôt

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 9 Novembre 2016

• #4

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 ?

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 9 Novembre 2016

• #5

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 9 Novembre 2016

• #6

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 9 Novembre 2016

• #7

Bonjour, fleet21, M12, le Forum,

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

VB:

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

A bientôt

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 9 Novembre 2016

• #8

Bonjour à tous

Peut être ici voir pièce jointe

Slts

 

Pièces jointes

• Palette_Couleurs_V01.xls

  110.5 KB · Affichages: 69

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Novembre 2016

• #9

Salut

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

VB:

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 9 Novembre 2016

• #10

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 14 Novembre 2016

• #11

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 19 Novembre 2016

• #12

Personne ?

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 19 Novembre 2016

• #13

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Novembre 2016

• #14

Bonjour à toutes et à tous,

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 19 Novembre 2016

• #15

Quel est le but de cette intervention doublezero ??

 

Vote positif 0 Vote négatif