Colorer et indiquer la semaine et le jour en cours en vert

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
anthoYS

anthoYS

XLDnaute Barbatruc
Bonsoir (ou bonjour),

Voila dans mon fichier une série de semaine à insérer, du lundi au dimanche (par exemple), en lignes, du 12 oct-18 oct 2009, puis dessous du 19 oct-25 oct 2009... en colonne les jour du lundi au dimanche.

Le but est d'insérer une MEFC, selon le jour en cours (AUJOURDHUI()).

Voir le fichier pour mieux comprendre mes souhaits correspondants à cela.

Merci par avance aux spécialistes d'Excel.
 

Pièces jointes

Trier par date Trier par votes
Re : Colorer et indiquer la semaine et le jour en cours en vert

Salut anthoys, j'aurais voulu te mettre en attachement un calendrier que j'ai modifier pour faire apparaitre le mois en cours et mettre le jour en cours en jaune. Prend le code suivant et adapte le à ton programme.


Code: 
Private Sub Workbook_Open()
Dim Month As Date
Month = Format(Now, "mm")
If Month = 1 Then Sheets("Jan").Select Else
If Month = 2 Then Sheets("Feb").Select Else
If Month = 3 Then Sheets("Mar").Select Else
If Month = 4 Then Sheets("Apr").Select Else
If Month = 5 Then Sheets("May").Select Else
If Month = 6 Then Sheets("Jun").Select Else
If Month = 7 Then Sheets("Jul").Select Else
If Month = 8 Then Sheets("Aug").Select Else
If Month = 9 Then Sheets("Sep").Select Else
If Month = 10 Then Sheets("Oct").Select Else
If Month = 11 Then Sheets("Nov").Select Else
If Month = 12 Then Sheets("Dec").Select Else

Call selectdate
End Sub

Sub selectdate()
Dim date1 As Date
Dim date2 As Date
date1 = Format(Now, "yyyy,mm,dd")
date2 = Format(Now, "dd")
For n = ActiveSheet.Range("D65536").End(xlUp).Row To 3 Step -1
 If ActiveSheet.Range("a" & n) <> date1 Then ActiveSheet.Range("a" & n & ":N" & n + 5).Interior.ColorIndex = 40
        If ActiveSheet.Range("c" & n) <> date1 Then ActiveSheet.Range("c" & n & ":N" & n + 5).Interior.ColorIndex = 0
        If ActiveSheet.Range("e" & n) <> date1 Then ActiveSheet.Range("e" & n & ":N" & n + 5).Interior.ColorIndex = 0
        If ActiveSheet.Range("g" & n) <> date1 Then ActiveSheet.Range("g" & n & ":N" & n + 5).Interior.ColorIndex = 0
        If ActiveSheet.Range("i" & n) <> date1 Then ActiveSheet.Range("i" & n & ":N" & n + 5).Interior.ColorIndex = 0
        If ActiveSheet.Range("k" & n) <> date1 Then ActiveSheet.Range("k" & n & ":N" & n + 5).Interior.ColorIndex = 0
        If ActiveSheet.Range("M" & n) <> date1 Then ActiveSheet.Range("M" & n & ":N" & n + 5).Interior.ColorIndex = 40
        Next n
Call Selectdate2
End Sub

Sub Selectdate2()
Dim date1 As Date
Dim date2 As Date
msg = [A100].Value
msg2 = [B101].Value
date1 = Format(Now, "yyyy,mm,dd")
date2 = Format(Now, "dd")
For n = ActiveSheet.Range("D65536").End(xlUp).Row To 3 Step -1
  If ActiveSheet.Range("a" & n) = date1 Then ActiveSheet.Range("A" & n & ":B" & n + 5).Interior.ColorIndex = 6
  Range("b" & n).Select
   If ActiveSheet.Range("C" & n) = date1 Then ActiveSheet.Range("c" & n & ":D" & n + 5).Interior.ColorIndex = 6
   Range("d" & n).Select
    If ActiveSheet.Range("E" & n) = date1 Then ActiveSheet.Range("E" & n & ":F" & n + 5).Interior.ColorIndex = 6
    Range("f" & n).Select
     If ActiveSheet.Range("G" & n) = date1 Then ActiveSheet.Range("G" & n & ":H" & n + 5).Interior.ColorIndex = 6
     Range("h" & n).Select
      If ActiveSheet.Range("I" & n) = date1 Then ActiveSheet.Range("I" & n & ":J" & n + 5).Interior.ColorIndex = 6
      Range("j" & n).Select
       If ActiveSheet.Range("K" & n) = date1 Then ActiveSheet.Range("K" & n & ":L" & n + 5).Interior.ColorIndex = 6
       Range("l" & n).Select
        If ActiveSheet.Range("M" & n) = date1 Then ActiveSheet.Range("M" & n & ":N" & n + 5).Interior.ColorIndex = 6 & Range("n" & n).Select

          Next n
  MsgBox (msg & " " & msg2)
  End Sub

Ce code est bien sûr adapté à mon format de calendrier et il se résume à 3 étapes, sélectionner le mois en cours, remettre toutes les cases à la couleur par défaut et puis mettre en jaune la journée en cours. Voilà, ça devrait te donner une bonne piste pour mettre à terme ton projet.

P.S. Je n'ai trouvé que la première ébauche car ma version finale est au bureau. J'ai testé, ça marche mais il se peut qu'il y ait besoin d'un nettoyage de la macro.
 
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Merci Kilmoon, mais en exemple comment compléter la première ligne en A2 pour que cela fonctionne et que dessous, en incrémentant vers la bas, les semaines suivantes apparaissent?

A+ j'espère.
 
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Re à ceux qui suivent ce post ;

Pour dire simplement, qu'en fait je n'ai toujours pas ce que je souhaite,
voir le fichier en exemple avec deux onglets l'onglet "basic" -à modifier- contenant le code de killmoon, puis un second onglet "exemple".

Merci par avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Bonjour,

KIImoon, BOISGONTIER, JHA, aux "autres lecteurs" ;

En fait il manque la coloration (JHA) ou elle est abondante (BOISGONTIER).

La coloration est manuelle et doit être réalisé comme suit (par double clic) :
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, [C2:I10110]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub

Merci encore à vous ;
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Re,

JHA, ce n'est pas exactement ce dont je voulais signifier. La coloration de toute la ligne non ; d'aucune case, seulement par double clic. Donc ton ancien fichier étais déjà plus approprié...

Merci malgré tout.
 
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Bonsoir (ou bonjour) à tous!

Voila, j'ai revu le fichier.
Des modifications ont étés apportés.
Or, un soucis demeurre.
J'ai une condition qui me met un 1, si la date en cours est entre deux borne, une supérieur à l'autre.
Donc quant une semaine est à cheval, ces bornes sont inversés, et le "1", n'apparaît plus, et ma MEFC n'est plus valide. Ceci est vrai pour cette nouvelle semaine qui se terminera en novembre.

Voir le fichier pour mieux comprendre.
En esperant qu'une personne arrivera à trouver l'idée et me la transmettra ou du moins me mettra sur la voie ;
Car j'ai chercher, mais je n'y parviens pas...

N'oubliez pas de jeter un oeil de M à R, c'est là, que les modifications ont étés rajoutés pour rendre possible la MEFC -qui au passage fonctionné bien la semaine drnière, et si en l'état on ne modifie rien marchera aussi la semaine prochaine-.

A plus tard, bonne fin de journée!
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Bonjour,
(je remonte un vieux fil)


je bute sur la MEFC, elle me colore la semaine en cours et la suivante en jaune au lieu et place de celle-ci.

aujourd'hui.



comment faire pour colorer la semaine en cours en jaune uniquement ?


merci
à+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Bonjour à tous,

Je ne vois pas le soucis de la MFC en colonne "A", par contre j'ai mis le comptage en formule pour éviter les multiples erreurs dans cette colonne.

JHA
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

re,



Merci beaucoup JHA pour cette technique qui permet de gagner du temps (du moins d'en perdre moins).

par contre c'est sur le fichier d'origine qu'il y aurai un problème, tout est coloré et les MEFC sont les mêmes.

(il me colore à partir de la semaine en cours jusqu'à l'année prochaine, la semaine du 25/05/2014 incluse, puis plus rien)



à+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

Bonjour à tous,

Il doit y avoir des erreurs sur tes formules de dates comme indiqué par JHA. Il t'a fait une proposition de formules dans son fichier.

A+ à tous
 
Vote positif 0 Vote négatif
Re : Colorer et indiquer la semaine et le jour en cours en vert

JCGL à dit:
Bonjour à tous,

Il doit y avoir des erreurs sur tes formules de dates comme indiqué par JHA. Il t'a fait une proposition de formules dans son fichier.

A+ à tous
Cliquez pour agrandir...


oui merci c'est exact, on partait du 13/05/2012 au 19/05/2013 donc manuellement ça m'a posé problème, j'ai repris sa jolie formule et j'ai tiré vers le bas, mais à chaque fois l'année précédente était incluse, pour la dernière on avait du 20/05/2013 au 25/05/2014, d'où l'arrêt de la coloration là. j'ai été étourdis, et n'ai pas bien fait attention donc.🙂


à+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Power Pivot Numéro de semaine ouvrable dans le calendrier dans le modèle de données
Réponses
1
Affichages
211
fanfan38
fanfan38
anthoYS
  • Résolu(e)
Microsoft 365 Colorer la tâche "A", "B" etc si et seulement si le jour correspond (récurrence) et la bonne semaine, sinon... Ne pas colorer
Réponses
12
Affichages
563
piga25
piga25
anthoYS
  • Résolu(e)
Microsoft 365 Organisation : comment colorer de jaune la lettre et le jour en cours... ?
Réponses
11
Affichages
385
djidji59430
djidji59430
anthoYS
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
954
crocrocro
C
A
  • Question Question
XL 2016 Colorer en vert le besoin effectif par rapport au stock
Réponses
2
Affichages
281
job75
job75
AIXELS
  • Résolu(e)
XL 2021 Colorer le mois en cours et le TextBox correspondant
Réponses
7
Affichages
450
AIXELS
AIXELS
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
597
Jacky67
Jacky67
patricktoulon
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
226
patricktoulon
patricktoulon
M
  • Question Question
XL 2021 ouvrir une feuille a la semaine en cours
2
Réponses
17
Affichages
1 K
chris
chris
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU)Afficher les Jours de la Semaine en Infobulle
2
Réponses
20
Affichages
2 K
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2021 Moyenne par jour de la semaine pour plusieurs années
Réponses
7
Affichages
896
flo10
F
O
  • Question Question
Microsoft 365 fonction HISTORIQUE.ACTIONS : dépend du jour de la semaine ?
Réponses
3
Affichages
763
OMX33
O
JoBar57
  • Résolu(e)
XL 2021 SI OU ET - rajouter une condition supplémentaire
2
Réponses
26
Affichages
2 K
JoBar57
JoBar57
looky62
  • Question Question
Microsoft 365 Compter nombre ligne en fonction du N° de la semaine et de l'équipe
Réponses
12
Affichages
883
looky62
looky62
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
536
clausen
C
U
  • Question Question
Autres [RÉSOLU] Je voudrais réduire le tableau à la semaine en cours
Réponses
13
Affichages
879
JHA
J
oguruma
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
412
oguruma
oguruma
T
  • Question Question
XL 2019 MFC Jour en fonction de la semaine
Réponses
10
Affichages
769
team18fr
T
L
  • Question Question
XL pour MAC Moyenne en fonction du jour de la semaine - Restaurant
Réponses
4
Affichages
747
loic33610
L
dindin
  • Question Question
XL 2016 Copier le tableau à la suite en gardant la mise en page et en modifiant la date
Réponses
7
Affichages
777
dindin
dindin
Retour