colriage auto des cellules selon les mois...

[dame et roi]

🙂 Bonsoir à tous,

Je souhaite pouvoir colorier les lignes (colonnes c à f) si et seulement si une date est saisie dans la cellule c (correspondant à la ligne) et d'une certaine couleur pour chaque mois.
Par exemple, pour le mois de janvier, les lignes où lesquelles figures des dates saisies dans la colonne c du mois de janvier seront en bleus. Pour février, en vert pâle, etc....
Le fichier ci joint est en partie la solution du problème. Il ne reste plus qu'à "colorier les lignes" selon les mois...

Pouvez vous svp, modifier le fichier ci joint et écrire le code complètement, et me donner le code des couleurs (bleu pale = 37, rose=38, etc...)

A bientôt,

Amicalement, jerome

 

[nat54]

Re : colriage auto des cellules selon les mois...

Bonjour,

Se positionner en B5
Format / mise en forme conditionnelle
'la formule est' : =NB(C5=1)

par contre faut rechercher le post MFC multiple
car là tu es limité à 3 conditions donc 3 couleurs, 3 mois

 

[Gorfael]

Re : colriage auto des cellules selon les mois...

🙂 Bonsoir à tous,

Je souhaite pouvoir colorier les lignes (colonnes c à f) si et seulement si une date est saisie dans la cellule c (correspondant à la ligne) et d'une certaine couleur pour chaque mois.
Par exemple, pour le mois de janvier, les lignes où lesquelles figures des dates saisies dans la colonne c du mois de janvier seront en bleus. Pour février, en vert pâle, etc....
Le fichier ci joint est en partie la solution du problème. Il ne reste plus qu'à "colorier les lignes" selon les mois...

Pouvez vous svp, modifier le fichier ci joint et écrire le code complètement, et me donner le code des couleurs (bleu pale = 37, rose=38, etc...)

A bientôt,

Amicalement, jerome

Salut

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage_T As String
Dim Cel As Range
If Intersect(Columns(3), Target) Is Nothing Then Exit Sub
'si la modif ne touche pas la colonne C, on sort
Plage_T = Intersect(Columns(3), Target).Address(0, 0)
'cellules modifiées de la colonne C
For Each Cel In Range(Plage_T)
    If IsDate(Cel) Then
        Select Case Month(Cel)
            Case 1
                Range(Cel.Offset(0, -1), Cel.Offset(0, 3)).Interior.ColorIndex = 3
            Case 2
            
            Case 3
            
            Case 4
            
            Case 5
            
            Case 6
            
            Case 7
            
            Case 8
            
            Case 9
            
            Case 10
            
            Case 11
            
            Case 12
            
        End Select
    Else
        Range(Cel.Offset(0, -1), Cel.Offset(0, 3)).Interior.ColorIndex = xlNone
    End If
Next Cel
End Sub
Sub test()
selection.value = Selection.Interior.ColorIndex
End Sub

la première, tu la connaît, elle te permet de modifier la couleur de ta ligne en fonction du mois de la cellule C
Il te reste à répéter la ligne de colorisation pour chaque mois.
la macro test te sert à déterminer la couleur que tu veux :
tu colories une cellule, tu la laisse sélectionnée
tu lances la macro test, et tu as l'index de la couleur qui s'inscrit dans la sélection
A+

 

[wilfried_42]

Re : colriage auto des cellules selon les mois...

salut gorfael, nat54, dame et roi

c'est MyDearFriend qui à fait la procedur, c'est genial et simple d'utilisation, je l'ai piquée, je la mets en fichier joint

 

[dame et roi]

Re : colriage auto des cellules selon les mois...

🙂 Bonjour Nat54, Gorfael, Wilfried,

Je vous remercie pour vos réponses. C'est sympas. Je vais les mettre en pratique quand j'aurai un moment de libre.
Concernant le fichier de MyDearFriend, il est extraordinaire, étonnant. Chappeau!!
Pour moi, j'ai commencé a le déchiffré, mais je n'y comprend vraiment pas grand chose pour l'instant. Je compte bien m'y mettre et peut etre "exceller" un jour dans un autre domaine que les échecs 🙄 .

A+

Amicalement, jerome