XL 2016 Vba couleur de cellule en fonction du contenu

[Magg]

Bonjour,

Je voudrais faire en sorte que les cellules contenant chaque jour de la semaine se colore d'une certaine façon :
Lundi = vert clair, Mardi = bleu clair, Mercredi = rose, Jeudi = bleu foncé, Vendredi = gris, Samedi = jaune, Dimanche = rouge
Le problème c'est que je ne sais pas comment faire pour l'appliquer à toute la feuille. (pas besoin de faire tous les jours mais au moins m'expliquer pour un ou deux, je l'appliquerai pour le reste)

De plus, comme je complète mon planning grâce à une macro qui mets dans la première colonne vide à droite les données, je me retrouve à avoir des événements par semaine pas par ordre chronologique (exemple : hier j'ai rentré un poste pour le Samedi mais aujourd'hui je dois rentrer un poste pour le Mercredi). Existe-t-il une macro pour trie les événements de la semaine par ordre chronologique ?

Merci d'avance pour vos pistes.
Magg.

 

[James007]

Bonjour,

A adapter à tes besoins ... et à tes couleurs ... 😉

Sub Couleurs()
Dim i As Long
Dim j As Long
i = 2
    'For i = 2 to 366 Step 7
        For j = 3 To 33 Step 3
            Select Case Application.WorksheetFunction.Weekday(Cells(i, j), 2)
                Case 1
                    ' Lundis
                    Cells(i, j).Interior.Color = RGB(255, 0, 0)
                Case 2
                    ' Mardis
                    Cells(i, j).Interior.Color = RGB(0, 255, 0)
                Case 3
                    ' Mercredis
                    Cells(i, j).Interior.Color = RGB(0, 0, 255)
                Case 4
                    ' Jeudis
                    Cells(i, j).Interior.Color = RGB(125, 125, 125)
                Case 5
                    ' Vendredis
                    Cells(i, j).Interior.Color = RGB(50, 50, 50)
                Case 6
                    ' Samedis
                    Cells(i, j).Interior.Color = RGB(120, 120, 120)
                Case 7
                    ' Dimanches
                    Cells(i, j).Interior.Color = RGB(255, 255, 255)
            End Select
        Next j
    ' Next i

End Sub

 

[Magg]

Bonjour James007,

Super c'est ce que j'attendais ! J'ai simplement rectifié les couleurs et enlevé les apostrophes devant "For i" et "Next i".
J'ai aussi essayé de bidouillé pour ne pas colorier les cellules vides parce qu'actuellement si je n'ai pas de date entrée, elles se colorent comme un samedi (case 6). Y-a-t-il une solution pour cela ? Je n'ai pas trouvé.

 

[James007]

Content que cela puisse t'aider ...

Ci-dessous la modification pour exclure les cellules vides ...

Sub Couleurs()
Dim i As Long
Dim j As Long
    For i = 2 to 366 Step 7
        For j = 3 To 33 Step 3
            Select Case Application.WorksheetFunction.Weekday(Cells(i, j), 2)
                If Cells(i, j).Value <> "" Then
                Case 1
                    ' Lundis
                    Cells(i, j).Interior.Color = RGB(255, 0, 0)
                Case 2
                    ' Mardis
                    Cells(i, j).Interior.Color = RGB(0, 255, 0)
                Case 3
                    ' Mercredis
                    Cells(i, j).Interior.Color = RGB(0, 0, 255)
                Case 4
                    ' Jeudis
                    Cells(i, j).Interior.Color = RGB(125, 125, 125)
                Case 5
                    ' Vendredis
                    Cells(i, j).Interior.Color = RGB(50, 50, 50)
                Case 6
                    ' Samedis
                    Cells(i, j).Interior.Color = RGB(120, 120, 120)
                Case 7
                    ' Dimanches
                    Cells(i, j).Interior.Color = RGB(255, 255, 255)
             End If           
            End Select
        Next j
     Next i
End Sub

En espèrant que cela t'aide

 

[raimon99]

une mise en forme conditionnelle serait encore mieux car travaillle en temps réel.
Formule: =A1="Lundi" etc.

 

[raimon99]

exemple

 

[raimon99]

exemple pour tri