sebastien176
XLDnaute Junior
Bonjour à tous,
Dans le fichier si joint, je voudrais pouvoir colorer les cellules du tableau (F5:AD17) en cliquant dessus
Petite particularité , l'idéale serait que les cellule se colorent selon le N° de semaine en cours :
Si le N° de semaine (correspondant à la date du jour est compris entre B5 et B17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en JAUNE
Si le N° de semaine (correspondant à la date du jour est compris entre C5 et C17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en VERT
Si le N° de semaine (correspondant à la date du jour est compris entre D5 et D17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en BLEU
Si le N° de semaine (correspondant à la date du jour est compris entre E5 et E17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en ROUGE
Je vous remercie par avance pour votre aide
Seb
PS : J'ai déjà ce code pour colorer les cellules du tableau à chaque sélection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F5:AD17")) Is Nothing Then
Dim couleurs()
couleurs = Array(RGB(255, 255, 0), RGB(0, 176, 80), RGB(0, 176, 240), RGB(255, 0, 0))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 4)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End If
End Sub
Dans le fichier si joint, je voudrais pouvoir colorer les cellules du tableau (F5:AD17) en cliquant dessus
Petite particularité , l'idéale serait que les cellule se colorent selon le N° de semaine en cours :
Si le N° de semaine (correspondant à la date du jour est compris entre B5 et B17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en JAUNE
Si le N° de semaine (correspondant à la date du jour est compris entre C5 et C17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en VERT
Si le N° de semaine (correspondant à la date du jour est compris entre D5 et D17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en BLEU
Si le N° de semaine (correspondant à la date du jour est compris entre E5 et E17 alors les cellules sélectionnées dans mon tableau (F5:AD17) se colorient en ROUGE
Je vous remercie par avance pour votre aide
Seb
PS : J'ai déjà ce code pour colorer les cellules du tableau à chaque sélection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F5:AD17")) Is Nothing Then
Dim couleurs()
couleurs = Array(RGB(255, 255, 0), RGB(0, 176, 80), RGB(0, 176, 240), RGB(255, 0, 0))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 4)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End If
End Sub