Excel 2019 VBA couleur

Bonsoir à tous,

Sous excel 2003 j'avais créer une petite macro qui marchait très bien en attribuant une couleur lorsqu'un case prenait une certaine valeur ci dessous la macro :

sub Couleur_maintien()
'
 Couleur_maintien Macro
' Macro enregistrée le 19/05/2008 par Francis

 [color=#000000][/color]
Range("P3:p1000").Select
 For Each cellule In Selection
If cellule.Value = "10+" Then
cellule.Interior.ColorIndex = 4
ElseIf cellule.Value = "15" Then
cellule.Interior.ColorIndex = 4
ElseIf cellule.Value = "10" Then
cellule.Interior.ColorIndex = 6
ElseIf cellule.Value = "5" Then
cellule.Interior.ColorIndex = 44
ElseIf cellule.Value = "2" Then
cellule.Interior.ColorIndex = 45
ElseIf cellule.Value = "3" Then
cellule.Interior.ColorIndex = 45
ElseIf cellule.Value = "0" Then
cellule.Interior.ColorIndex = 1

End If
Next[/color]
End Sub

Le problème c'est que depuis que je suis passé sous Excel 2019 les couleurs ne sont plus les mêmes:

Exemple pour la valeur 15 j'obtiens une case rouge sang alors qu'elle devrait être vert clair.

Quelqu'un a-t-il une explication? et pourrait me donner la palette correspondante avec les N°.

Je n'ai pas trouver sur internet hors mis la palette que j'avais employée à l'époque mais qui ne marche plus.

Merci de votre aide

Bien cordialement

Francis84

Bonsoir Francis84,

Faire dans une colonne libre d'une feuille. Exemple sur colonne A.

En face de chaque ligne tu as la couleur correspondante.

Sub TabColor()
For J=1 to 56  'ou plus selon version
Cells(J,1).Interior.ColorIndex=J
Next J

Bonsoir,

ci-dessous palette Excel 2019

Francis84 a écrit :

.... Sous excel 2003 j'avais créer une petite macro ...

Le problème c'est que depuis que je suis passé sous Excel 2019 les couleurs ne sont plus les mêmes:

Les 'ColorIndex' n'ont pas changé, le problème vient du fait que sous 2003 tu utilisais une palette modifiée et sous 2019 tu te retrouve avec la palette standard des colorindex, qui est restée la même:

Excel 2003 :

Tu peux (re)personnaliser la palette avec du code, par exemple :

 'Personaliser les couleurs
  ThisWorkbook.Colors(15) = RGB(221, 221, 221)  'Gris clair
  ThisWorkbook.Colors(22) = RGB(255, 171, 171)  'Rouge clair

Bonjour

Merci beaucoup, vos explications m'ont été très utiles.

Bon Week-end

Francis

Re Bonjour,

Au risque d'être casse pieds voilà ce que j'obtiens avec la manip de X Cellus

Je n'arrive pas à nuancer la palette comme l'indique Patrice

En fait je voudrais un vert 4 et un rouge 3 comme la palette ci-dessous

Je pinaille non?

Comment puis je faire?

Encore merci de vos lumières

Bon WE

Bonjour Francis,

au lieu d'utiliser .Interior.ColorIndex = 4

essai avec .Color = RGB(0,255,0)

pour connaitre les code RGB sur ta version fait ce test,

Bonjour et merci bcp ça fonctionne super!

Bien cordialement

Francis

Bonjour Francis,

Merci pour ce retour,