faire varier la luminosité des lignes

[Philippe]

Bonsoir à tous,

j'ai un gros tableau, type agenda professionnel dans lequel, pour des raisons de lisibilité les LIGNES paires sont en gris clair et les LIGNES impaires en blanc, les choses se compliquent car je fais varier la couleur des COLONNES en fonction de divers paramètres (praticien d'astreinte, remplacé, jour chomé, etc...) et je désire conserver la lisibilité des LIGNES par des couleurs de teintes voisines mais facilement identifiables par les secrétaires. Alors bien sûr, je peux utiliser le codage RGB avec deux variantes de teintes pour chaque colonne mais c'est assez pénible à programmer (bien qu'assez aisé, mais bon...) étant un peu fainéant de nature (les PC sont là pour bosser pour nous...), une petite fonction du genre 'brightness' mais utilisable sur les lignes (et non les objets) serait la bienvenue...

Merci aux' barbatruqueurs' et autres illusionnistes du forum pour leurs idées géniales...

 

[Visiteur]

Est-ce que ceci peut t(aider ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 35 'Vert Clair
End With
End Sub

A moins que :

Comment faire pour mettre une ligne en couleur, pendant la saisie.
Avec une macro évenementielle.
Cliquer bouton droit sur l'onglet de la feuille en question, selectionner 'visualiser le code', dans la fenêtre de droite coller le script ci-dessous.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 35
End Sub

Public Lig As Integer
Dim Coul(256) As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PremLig! = 6 'ici on declare a partir de quel ligne on commence le coloriage
MaxCol! = 10 'la on declare le nombre de colonnes a colorier -(cells(lig,2)

If Target.Row <> Lig And Target.Rows.Count = 1 Then
If Target.Row >= PremLig Then
If Lig > 0 Then
For Col = 1 To MaxCol
Cells(Lig, Col).Interior.ColorIndex = Coul(Col)
Next Col
End If
Lig = Target.Row
For Col = 1 To MaxCol
Coul(Col) = Cells(Lig, Col).Interior.ColorIndex
Next Col
'ici on declare a partir de quel colonne on commence le coloriage
Range(Cells(Lig, 2), Cells(Lig, MaxCol)).Interior.ColorIndex = 3
Else
For Col = 1 To MaxCol
Cells(Lig, Col).Interior.ColorIndex = Coul(Col)
Next Col
End If
End If
End Sub

A placer dans ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells.Interior.ColorIndex = xlNone
End Sub

En te souhaitant une bonne soirée

 

[Philippe]

merci de ton aide et du temps que tu y as visiblement consacré,
mais en fait, ce que je cherche c'est sur une colonne donnée, faire varier la luminosite entre les lignes paire et impaires (et ceci quelque soit la couleur d'origine) CAD si la colonne est bleue: lignes paire bleu clair, lignes impaire bleu plus foncé, si la colonne est verte, lignes paires vert clair, lignes impaires vert foné, etc...

 

[Tibo]

Salut Philippe,

Tu peux essayer ceci :

Colorier ta colonne avec une couleur de base (bleu foncé par ex.)

Ensuite, sur la même colonne, tu appliques une Mise En Forme Conditionnelle (MEFC)

Menu Format / Mise en forme conditionnelle / La formule est :

= MOD(LIGNE();2)

et tu précises ensuite dans Format / Motifs la couleur Bleu Pâle.

Ainsi, tu auras une ligne sur deux en Bleu Foncé et une sur 2 en Bleu Clair.

A répéter sur chaque colonne si tu veux des couleurs différentes par colonne.

Voilou