Colorier calendrier 2020

Fermé
quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024 Ambassadeur - Modifié le 31 déc. 2019 à 13:25
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 - 1 janv. 2020 à 16:27
Bonjour,

Je souhaiterais colorier la semaine01 en bleu et la semaine02 en bleu, ainsi de suite sur tout le calendrier. J'ai commencé une macro :
Sub color02()

Range("B8:B14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B15:B21").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'etc...

End Sub

Si vous pouviez me suggérer la suite, merci !

A voir également:

8 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
31 déc. 2019 à 13:38
Bonjour,

Je souhaiterais colorier la semaine01 en bleu et la semaine02 en bleu, ainsi de suite sur tout le calendrier.


De premier abord, si c'est pour colorier de la même couleur, autant le faire dés le départ
0
quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024 1 249
31 déc. 2019 à 13:44
C'est pour faire un repère pour mon travail, semaine impair en bleu, pair en rouge, ainsi de suite sur la totalité !
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284 > quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024
31 déc. 2019 à 14:59
Et le calendrier, il est où ??
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
31 déc. 2019 à 16:44
Re,

A tester
https://mon-partage.fr/f/tyJCylZW/
0
quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024 Ambassadeur 1 249
Modifié le 31 déc. 2019 à 17:52
merci bien, tu as fais comment ?
c'est adaptable avec les mois à l'horizontal ?

https://mon-partage.fr/f/qzhVh1Fn/
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
31 déc. 2019 à 18:36
Re,
Je regarde pour te le faire plus dynamique
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
31 déc. 2019 à 20:55
Re,

Voilà
Le calendrier est dynamique
Sur changement de l'année en ligne 1, il se met à jour
Sam, Dim, Sem. paire et impair, Jours fériés
https://mon-partage.fr/f/CHnvui89/
0
quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024 Ambassadeur 1 249
1 janv. 2020 à 12:36
Bonjour et bonne année ,

Super, tu as réussis, merci beaucoup !
Je voudrais savoir ta formule pour mon information ! merci en attendant !
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
1 janv. 2020 à 13:42
Re,

La formule (plutôt les formules)
Il faut être curieux dans la vie, et pour que tu progresses, il te suffit d'inspecter
toi-même les formules, dans des colonnes qui sont peut-être masquées, dans les mises en forme, etc
C'est comme cela que l'on devient autonome
0
quentin2121 Messages postés 8930 Date d'inscription lundi 24 mai 2010 Statut Membre Dernière intervention 15 novembre 2024 1 249
1 janv. 2020 à 13:48
Ok c'est ce que je m'étais dis après coup, il est question de "sierreur" comme fonction, je vais creuser cela !
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
1 janv. 2020 à 16:27
Re,
A savoir qu'Excel est bien fait, si tu sélectionnes la fonction, la touche F1 de ton clavier t'amène à son aide
0