Mise en forme conditionnelle

Question

C'est une suite à mon précédent post. Je cherche à faire un calendrier automatique. L'idée c'est que quand je change une date, les cellules de mon tableau excel se colorent en fonction de la formation que j'ai sélectionnée. tout se passe donc très bien jusque là. Mon problème est que pour une date, il peut-y avoir plusieurs formations et donc plusieurs couleurs (2 max). J'ai donc eu l'idée de créer une deuxième ligne qui devrait se colorer, mais je n'arrive pas à trouver la formule et surtout comment la faire appliquer. Je ne suis peut-être pas très claire mais la pièce jointe devrait vous aider.. Help!!! ;-) Je vous remercie d'avance!.....

curulis57 · Accepted Answer

Premier jet avant peaufinage. Un double-clic en &#91;F5:AJ28&#93; démarre la macro. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Dim dDate As Date ' If Not Intersect(Target, Range("F5:AJ28")) Is Nothing Then Cancel = True Application.ScreenUpdating = False ' Range("F5:AJ28").Interior.Color = RGB(0, 0, 0) For x = 7 To Range("B" & Rows.Count).End(xlUp).Row For y = 0 To DateDiff("d", Cells(x, 2), Cells(x, 3)) dDate = DateAdd("d", y, Cells(x, 2)) Range("E3").Offset(Month(dDate) * 2 + _ IIf(Range("E3").Offset(Month(dDate) * 2, Day(dDate)).Interior.Color = RGB(0, 0, 0), 0, 1), Day(dDate)).Interior.Color = _ Cells(x, 4).Interior.Color Next Next ' Application.ScreenUpdating = True End If ' End Sub A+...

curulis57 · Accepted Answer

Petites améliorations... - Tu avais sans doute remarqué en colonne &#91;BB&#93; la liste des formations . Tu peux maintenant la compléter (pas encore modifier les intitulés et couleurs existants) en choisissant la couleur de fond puis l'intitulé lequel provoque le tri alphabétique de la-dite liste. - Tu peux maintenant créer directement dans ton tableau &#91;F5:AJ28&#93; les nouvelles périodes de formation. . la sélection doit se faire sur la ligne contenant les dates voire englober les lignes contenant ces dates (voir ci-dessous) ; . d'un clic DROIT pour une seule journée ; . en sélectionnant du bouton gauche plusieurs cellules sur une même ligne pour une période plus longue dans le même mois ; If Not Intersect(Target, Range("F5:AJ28")) Is Nothing And Target.Count &gt; 1 And Target.Row Mod 2 = 1 Then If Target.Rows.Count &gt; 1 And Target.Rows.Count Mod 2 &lt;&gt; 1 Then iOK = 1 If iOK = 0 Then dDate1 = IIf(Target.Rows.Count = 1, CDate(Selection.Cells(1, 1)), CDate(Selection.Cells(1, Selection.Columns.Count))) dDate2 = IIf(Target.Rows.Count = 1, CDate(Selection.Cells(1, Selection.Columns.Count)), CDate(Selection.Cells(Selection.Rows.Count, 1))) iRow = Range("B" & Rows.Count).End(xlUp).Row + 1 Range("B" & iRow).Resize(1, 2).Value = Array(dDate1, dDate2) Range("B" & iRow).Resize(1, 2).Interior.Color = Range("B7").Interior.Color Range("D" & iRow).Select End If End If . en sélectionnant du bouton gauche plusieurs cellules sur 3 lignes (donc sur deux mois) pour une période plus longue encore. La période de formation peut chevaucher deux mois si elle ne dépasse pas un mois plein : pour ce faire et ne pas t'y perdre, sélectionne d'abord la date de FIN puis la date de DÉBUT en prenant soin d'étendre la sélection sur les 3 lignes qui contiennent les dates des deux mois concernés. La date de début sera calculée sur la cellule en haut à droite de la sélection, la date de fin sur la cellule en bas à gauche de la sélection : tu comprends mieux pourquoi la période doit rester inférieure à un mois plein. Dans le cas où la formation dure plus d'un mois plein, et si tu veux créer cette période avec la souris, il faudra alors créer cette période de formation en deux fois, une par mois ou... tu peux toujours le faire en tapant les dates à la main. La sélection crée les dates de début et de fin, crée une nouvelle ligne de dates en &#91;B:C&#93; et une liste de validation en &#91;C:C&#93; pour choisir la formation correspondante If Not Intersect(Target, Range("D7:D" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then _ Rows(Target.Row).RowHeight = 30: _ Rows(Target.Row).HorizontalAlignment = xlHAlignCenter: _ Rows(Target.Row).VerticalAlignment = xlVAlignCenter: Range("B" & Target.Row).Resize(1, 2).NumberFormat = Range("B7").NumberFormat: _ Cells.Validation.Delete: _ Range("D" & Target.Row).Validation.Add Type:=xlValidateList, Formula1:="=BB1:BB" & Range("BB" & Rows.Count).End(xlUp).Row La sélection d'une formation en colonne &#91;D:D&#93; provoque le tri alphabétique du tableau des colonnes &#91;B:D&#93; selon la formation et les dates. La sélection d'une formation en colonne &#91;D:D&#93; ou un double-clic en &#91;F5:AJ28&#93; provoque d'office le recalcul du tableau. If Not Intersect(Target, Range("D7:D" & Range("D" & Rows.Count).End(xlUp).Row)) Is Nothing Then _ Target.Interior.Color = Range("BB:BB").Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues).Interior.Color: _ Range("B7:D" & Range("D" & Rows.Count).End(xlUp).Row).Sort _ key1:=Range("D7"), order1:=xlAscending, key2:=Range("B7"), order2:=xlAscending, Orientation:=xlTopToBottom: _ Call Scanner Il y a sans doute encore des choses à faire mais teste déjà tout ça! A+...

curulis57 · Accepted Answer

Dernières améliorations en date... Modifications de formations existantes En sélectionnant les cellules-dates &#91;B:C&#93; d'une formation, la macro repère (CASE 2 dans le code ci-dessous) la période correspondante dans le tableau &#91;F5/AJ28&#93;. Il te suffit de redessiner la correction là où c'est nécessaire. - un clic droit pour un jour ; - une multi-sélection avec le bouton gauche. ! ATTENTION de ne pas utiliser le carret de redimensionnement ni de vouloir déplacer la sélection ! Les nouvelles dates se renseigneront à la place des anciennes. If Not Intersect(Target, Range("B7:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then Select Case Selection.Columns.Count Case 2 If Selection.Rows.Count = 1 Then _ &#91;BA1&#93; = Selection.Row: _ iMonth1 = Month(Selection.Cells(Selection.Rows.Count, 1)): _ iMonth2 = Month(Selection.Cells(1, Selection.Columns.Count)): _ iDay1 = Day(Selection.Cells(Selection.Rows.Count, 1)): _ iDay2 = Day(Selection.Cells(1, Selection.Columns.Count)): _ Range("E3").Offset(iMonth1 * 2, WorksheetFunction.Min(iDay1, iDay2)).Resize(IIf(iMonth2 - iMonth1 = 0, 1, 3), Abs(iDay1 - iDay2) + 1).Select Case 3 If MsgBox("Confirmez-vous la suppression de " & IIf(Selection.Rows.Count = 1, "cette formation ?", "ces formations ?"), vbCritical + vbYesNo + vbDefaultButton2, "FORMATIONS") = 6 Then _ Selection.Delete shift:=xlUp: _ Call Scanner(1): _ &#91;B1&#93;.Select: _ Application.EnableEvents = True: _ Exit Sub End Select End If Effacement d'une formation Cette fonction est activée en sélectionnant les trois cellules-dates et intitulé en &#91;B-C-D&#93; de la formation ciblée. Un message te demande une confirmation avant l'effacement (CASE 3 dans le code ci-dessus). Repérage précis d'un type de formation Dans la palette de couleurs, difficile parfois de repérer les différentes formations d'un même type! Pour n'afficher qu'un type de formation, il suffit d'un double-clic sur son intitulé dans la colonne &#91;D:D&#93;. If Not Intersect(Target, Range("D7:D" & Range("D" & Rows.Count).End(xlUp).Row)) Is Nothing Then _ Cancel = True: _ Call Scanner(Target.Row): _ &#91;E5&#93;.Select L'affichage global est récupéré, comme d'hab' via un double-clic dans le tableau &#91;F5:AJ28&#93;. Modification d'un intitulé ou des couleurs d'une formation J'ai choisi une méthode simplissime demandant un rien de logique de ta part. Tu peux modifier l'intitulé ou les couleurs (INTERIOR et/ou FONT)... séparément! En effet, la macro doit retrouver un élément commun entre l'ancienne et la nouvelle version d'une étiquette-formation. Tu exécutes tes changements dans la liste en colonne &#91;BB:BB&#93; et tu les valides de deux manières. - un double-clic sur l'étiquette opère la transformation mais reste sur la colonne &#91;BB:BB&#93;, prêt pour une nouvelle modification ; - un clic-droit opère le changement mais bascule l'affichage sur le tableau de travail. If Not Intersect(Target, Range("BB1:BB" & Range("BB" & Rows.Count).End(xlUp).Row)) Is Nothing Then Cancel = True For x = 7 To Range("D" & Rows.Count).End(xlUp).Row If Cells(x, 4).Interior.Color = Target.Interior.Color Or Cells(x, 4) = Target.Value Then Target.Copy Destination:=Cells(x, 4) Next Call Scanner(1) ActiveWindow.ScrollColumn = 1 End If Changement d'année Pour faciliter une nouvelle année de formation, - D'ABORD enregistrer le fichier en cours sous un nom correspondant à cette nouvelle année ; - ENSUITE seulement, dans ce fichier rebaptisé, encoder l'année en &#91;B1&#93; et tout le calendrier se nettoie dans anciennes données et se met à jour. If Not Intersect(Target, Range("B1")) Is Nothing Then Range("F5:AJ28").Interior.Color = RGB(0, 0, 0) With Range("B7:D" & WorksheetFunction.Max(7, Range("B" & Rows.Count).End(xlUp).Row)) .Font.Color = RGB(0, 0, 0) .Interior.Color = xlNone .Value = "" End With End If Petit plus, j'ai créé une MFC pour signaler les samedis et dimanches en BLANC GRAS. Á côté de cela, j'ai éliminé une ribambelle de MFC dont je ne voyais pas l'utilité ainsi que les formules en colonne &#91;A:A&#93; !! Euh, fallait pas ? Voilà, si tu as d'autres idées, besoins ou demandes, ne te gêne pas! Bon travail! A+ Génial! Je n'arrive pas à joindre le fichier.....

curulis57 · Accepted Answer

Voilà le fichier... A+...

Dan · Answer

Pourriez-vous donner un exemple concret à reproduire sur le fichier posté ? Cordialement...

curulis57 · Answer

Tu veux dire pouvoir appliquer des skin à ton tableau ? Pas exigeante, toi, hein, non ? Je te prépare quelque chose, sans doute pas pour tout de suite... A+...

curulis57 · Answer

L'affaire des skins avance bien. Je tâtonne surtout sur des procédés d'exécution pour conserver une cohérence d'action avec le calendrier. Pour le reste, j'ai pensé à un autre truc. J'imagine que tu as une BDD annexe où tu répertories des noms de prof, de lieux de formations (implantations, locaux) et autres précisions en rapport avec le type de formation, d'époque de l'année, et que sais-je d'autre encore, dont les infos te sont utiles à connaître et consulter pendant ton travail sur le calendrier. Donc, SI ET SEULEMENT SI tu trouves cette démarche aussi utile et pertinente que mes délires précédents, dresse un audit complet et précis de tes besoins d'action, création, modification, consultation ou affichage des infos de cette BDD annexe en combinaison automatique avec ton travail sur le calendrier. D'ici là, je termine les skins et je reviens dès que possible. A+...

curulis57 · Answer

Le projet Skin est quasi terminé : je me donne encore ce WE pour tester tout ça voire ajouter l'une ou l'autre fonctionnalité annexe qui me trotte en tête. De ton côté, as-tu réfléchi à l'étape suivante... s'il y en a une, bien sûr ? A+...

curulis57 · Answer

A force de chercher à améliorer et fouiller toutes sortes de choses, je n'ai pas terminé mes tests et essais divers. Voici un survol des nouveautés: - les périodes se dessinent à plat, sans escalier ; - un clic sur une date en &#91;B:B&#93; repère la période sur le Calendrier ; - un clic sur une cellule-période sur le Calendrier repère la période dans l'Agenda &#91;B:C&#93; ; - en ligne 6, certaines options permettront : * d'ajouter une période directement dans une formation prédéfinie ; * de changer une date de formation avec ou sans confirmation ; * de supprimer une date de formation avec ou sans confirmation. Côté SKIN, tu pourras créer, modifier autant de skins que tu souhaites avec quelques diktats (actuellement) de ma part que je t'expliquerai plus tard. Je cherche encore le meilleur moyen de combiner tout ça. Bref, je ne t'oublie pas mais je commence à me prendre très (trop ?) à mon propre jeu... Je m'amuse comme un gamin! De ton côté, ton devoir avance-t-il aussi ? A+...

curulis57 · Answer

Désolé du temps qui passe... Je peux maintenant m'autoriser à te fournir un fichier, je crois, fiable. Je vais te faire ça en deux posts : un pour les fonctions opérationnelles et l'autre pour les skins. Nomenclature pour parler de la même chose - l'Agenda est l'ensemble des colonnes &#91;B-C-D&#93; contenant la liste triée des différentes formations encodées ; - le Calendrier est le tableau &#91;G7:AK30&#93; Fonctions opérationnelles Amélioration notable : les périodes de formation sont maintenant dessinées de façon linéaire dans le Calendrier : plus d'escalier ! Si plusieurs dates se chevauchent, les formations correspondantes se partagent alors les deux lignes d'affichage sans s'emberlificoter les pinceaux ! Autre petite chose : tu peux identifier une formation en cliquant sur UNE cellule colorée de cette période dans le Calendrier. Les dates et son intitulé s'affichent en info juste au-dessus du Calendrier et un petit marqueur coloré se place en regard dans la colonne &#91;A:A&#93; de l'Agenda. Rien de vraiment nouveau sur le fond : encodage, modification et suppression. C'est surtout l'enrobage qui est amélioré avec ce petit ruban qui ne demande qu'à grandir, ces boutons étant simplement cliquables gauche ou droit, selon le cas. - Á droite, les boutons d'accès aux fonctions (clic gauche) * le triangle rouge = fonctions de travail accessibles ; * un cercle rouge : accès interdit. Là, j'ai un peu déliré car pour réactiver les fonctions, il te faudra, avant de cliquer sur ce bouton, "dessiner" le mot de passe en double-cliquant, dans l'ordre, &#91;B4-D4-D5-B5&#93;. Petite blague à supprimer, sûrement ! * La loupe attend encore tes indications pour tout travail de recherche d'infos à partir du Calendrier. Un clic sur ce bouton désactive les fonctions d'encodage, à gauche ; * un clic sur le crayon active les fonctions d'encodage , les seules codées pour l'instant. ENCODAGE des formations 1. Tout à gauche, la fonction " Nouvelle Formation " avec son petit bouton de commande : La sélection d'une nouvelle période de Formation se fait de 2 manières : a) d'un clic DROIT pour UN jour ; b) une sélection multiple pour une Formation de plusieurs jours, soit dans le même mois, soit à cheval sur deux mois. Attention : cette sélection doit, pour être acceptée, être ciblée sur des jours libres et non plus, comme dans la première version, sur les lignes de dates. Ne pas oublier, pour une période chevauchant deux mois, de cibler le premier et le dernier jour dans une même sélection sur 3 lignes ! Une macro vérifiera quand même la validité de ta sélection. : grisé = pas d'encodage autorisé ; : vert = encodage autorisé sur autorisation : une confirmation est exigée ; : rouge = encodage immédiat (en règle générale, le rouge est synonyme de "Danger ! Attention à ce que tu fais !" ; Les modes Vert et Rouge passeront par l'étape du choix du type de formation via une liste de validation dans l'Agenda en colonne &#91;D:D&#93; Détail : si la ligne d'encodage de cette nouvelle formation, tout en bas de l'Agenda, est hors-écran, la macro scrolle automatiquement jusque là pour toi. Mode d'encodage automatique En cliquant le petit bouton, tu ouvres une liste de validation comprenant l'ensemble des formations : fais ton choix. Le symbole devient plein, prend la couleur de cette formation et le bouton se colore de rouge. La sélection de cellules libres dans le Calendrier provoquera dès lors l'encodage immédiat de cette période sous la couleur de la formation ciblée. Tu peux changer cette programmation en cliquant autant de fois que nécessaire sur le bouton de commande. Pour annuler cette programmation automatique, un clic DROIT suffit à revenir aux modes VERT et ROUGE avec un symbole creux. Pour annuler même ce dernier mode, un autre clic DROIT grise le symbole : aucun encodage ne sera plus possible avant une réactivation par un clic sur le symbole. 2. Modification des dates d'une formation Tu as deux modes : Vert et Rouge. Même principe que ci-dessus : le mode Vert te demandera une confirmation tandis que le rouge exécutera le changement directement. Un clic DROIT grise le symbole et empêchera toute modification ultérieure sauf réactivation d'un autre clic GAUCHE. D'abord, il faut identifier la période à modifier que tu peux sélectionner de 2 façons : * soit en sélectionnant les 2 cellules-dates correspondantes dans l'Agenda en colonnes &#91;B:C&#93; ; * soit en cliquant sur UNE cellule colorée de cette période dans le Calendrier Si la fonction "Modification" est bien activée, un signe " &lt; " s'affichera en regard de la ligne du Calendrier en colonne &#91;E:E&#93; Ensuite : * soit tu peux annuler la procédure en cliquant hors du Calendrier ou sur une cellule libre du Calendrier ; * soit cibler la nouvelle période en sélectionnant celle-ci sur des cellules libres (clic DROIT pour UN jour ou une multi-sélection classique). 3. Effacement d'une période de formation Tu as deux modes : Vert et Rouge. Même principe que ci-dessus : le mode Vert te demandera une confirmation tandis que le rouge effacera la ligne de l'Agenda directement. Un clic DROIT grise le symbole et empêchera tout effacement avant réactivation. Pour ce faire, il faut sélectionner les 3 cellules correspondantes dans l'Agenda en colonnes &#91;B-C-D&#93;. Voilà pour cette première partie que j'espère sans défaut, les tests ayant apporté leur lot de petits bugs idiots, corrigés dans le fichier joint. Mais, nul n'étant parfait... Á digérer avant de continuer! A+...