Colorisé cellules suivant liste de choix

Bonsoir,

Dans mon calendrier perpétuel je cherche à automatiser (coloriser) en partant de la colonne i4 en fonction du choix que je sélectionne dans ma liste déroulante (Ca15). Jaune pour le matin et bleu pour l’après-midi. Dans cette exemple j’ai colorisé manuellement pour un roulement « 2matin3apresmidi »

je joint un fichier exemple pour être plus explicite.

Merci de votre aide.

Salut Killsa,

Possibilité de joindre ton fichier via le Forum ?

Restant à dispo

Bonsoir,

merci de me répondre, je joint le fichier

Salut Killsa,

"2matin/3après-midi" : tu parles en semaines, j'imagine?

A quoi servent les 4 colonnes blanches disponibles par jour (si c'est pertinent à savoir pour ta demande, évidemment) ?

Si 1ère question = OUI, une prochaine sélection en [CA15] doit débuter à la 1e semaine blanche suivant les colorées, j'imagine (encore...) !

A+

Bonjour

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Salut killsa, gmb,

pas de réponse, allons-y à l'inspiration...

• oublie [CA15] ;
• un clic-gauche directement sur la cellule (correspondant au lundi) dans la colonne à colorer active une liste de validation dans la cellule-même ;
• choisis ton horaire ;
• les couleurs suivent.

Petit + : un clic-droit sur une cellule "Lun(di)" inverse la couleur de cette semaine.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iIdx%, iRow%, iTRow%, iCol%, iTCol%, iAM%, iPM%
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
If Target.Column Mod 6 = 3 And Target <> "" Then
    iAM = CInt(Left(Target.Value, 1))
    iPM = CInt(Mid(Target.Value, 6, 1))
    Target = ""
    iRow = Target.Row - 1
    iCol = Target.Column
    Target.Validation.Delete
    Do
        iIdx = iIdx + 1
        iRow = IIf(Cells(iRow + 1, iCol - 1) = "", 4, iRow + 1)
        iCol = IIf(iRow = 4, iCol + 6, iCol)
        Cells(iRow, iCol).Interior.Color = IIf(iIdx <= (iAM * 7), RGB(255, 255, 0), RGB(0, 175, 240))
    Loop Until iIdx = (iAM + iPM) * 7 Or (iRow = 34 And iCol = 74)
End If
'
Target.Offset(0, -2).Select
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub

Joyeuses Fêtes!

A+

Bonjour,

Merci à vous de me répondre, les deux solutions me conviennent.

Petite question: est-il possible d’obtenir le même résultat sans passer par une macro ?

Salut killsa,

bonne question... à poser à jmd!

A+

curulis57 a écrit :

Salut killsa,

bonne question... à poser à jmd!

A+

Et est-il possible de ne pas surligner les samedi et dimanche ?

Surligner ???

Bonjour toutes et tous

Coucou Curulis57 et Gmb

@Curulis57, j'pense que, c'est en rapport aux remplissages des cellules par la mise en forme conditionnelle (mfc) de sam et dim (Samedi et Dimanche)

image:

puis, gérer et modifier la règle

curulis57 a écrit :

Surligner ???

Désolé je voulais dire ne pas colorisé les samedi / dimanche

Encore merci a vous j’ai résolu mon problème.