Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille
baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok
pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb jours
de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille
baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok
pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb jours
de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille
baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok
pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb jours
de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
jours de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du
jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
jours de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du
jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille (re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
jours de l'année du nom de la feuille?
---------------------------------------------
Sub calend()
Worksheets(CStr(Year(Date))).Select ' Merci Denis
For Each C In Range("A2:L32")
C.Interior.ColorIndex = xlnonne ' enlève toutes les couleurs
If [C] <> "" Then
If Weekday(C) = 7 Or Weekday(C) = 1 Then C.Interior.ColorIndex = 44
End If ' colorie les WE
Select Case CLng(C.Value) 'Case C.Value + met en couleur
différentes dates
Case 41282, 41298, 41364, 41365, 41402, 41476, 41487, 41498,
41501, 41579, 41589, 41633
C.Interior.ColorIndex = 38
End Select
If [C] = Date Then C.Interior.ColorIndex = 42 ' colorie la date du
jour
Next
End Sub
---------------------------------------
http://cjoint.com/?CLvqm5ob7fG
------------------------------------------
Déjà merci
Bon WE à tous.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la
feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en
général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera
Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire
41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Salut Jacky
C'est vrai que la MEFC fait bien cela.
J'avais d'ailleurs commencé avec. Tu as pu t'en rendre compte à la ligne 32 où la formule se trouve écrite.
Les formules que tu emploies sont meilleures que les miennes, mais il faudrait y ajouter un
"si(estvide(a3)..." afin de contourner les fins de mois difficiles (29,30 et 31 FEV ainsi que les 31
avril,juin, sept et nov.....
Merci pour cette bonne approche. Je note tes formules.
Bonne fin de WE
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : 52b5f23a$0$2114$
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: l94bsl$i1u$Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Salut Jacky
C'est vrai que la MEFC fait bien cela.
J'avais d'ailleurs commencé avec. Tu as pu t'en rendre compte à la ligne 32 où la formule se trouve écrite.
Les formules que tu emploies sont meilleures que les miennes, mais il faudrait y ajouter un
"si(estvide(a3)..." afin de contourner les fins de mois difficiles (29,30 et 31 FEV ainsi que les 31
avril,juin, sept et nov.....
Merci pour cette bonne approche. Je note tes formules.
Bonne fin de WE
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : 52b5f23a$0$2114$426a74cc@news.free.fr...
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: l94bsl$i1u$1@speranza.aioe.org...
Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Salut Jacky
C'est vrai que la MEFC fait bien cela.
J'avais d'ailleurs commencé avec. Tu as pu t'en rendre compte à la ligne 32 où la formule se trouve écrite.
Les formules que tu emploies sont meilleures que les miennes, mais il faudrait y ajouter un
"si(estvide(a3)..." afin de contourner les fins de mois difficiles (29,30 et 31 FEV ainsi que les 31
avril,juin, sept et nov.....
Merci pour cette bonne approche. Je note tes formules.
Bonne fin de WE
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : 52b5f23a$0$2114$
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: l94bsl$i1u$Bonjour,
Dans ce filet de macro, appelé via une "private sub", le PC ouvre la feuille baptisée 2013 (merci Denis)
Ensuite, il me colorie d'abord les dates d'anniversaire et de congés en général (Pâques, Noël ....)
Puis, colorie la date du jour.
Problème: dans quelques jours, il y aura le changement d'année. Ce sera Ok pour le choix de la feuille
(re-merci Denis), mais les dates ...
Comment puis-je faire comprendre à ce gros nigaud (le PC) qu'il doit faire 41282+365 (et, mieux: 366 pour
les années bissextiles)?
N'y aurait-il pas moyen de faire un truc du genre : case 41282Êse +nb
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Hello Jacques
Pourquoi utiliser du VBA ?
La MFC fait très bien cela....
http://cjoint.com/?CLvu1pzKEcz
--
Bonsoir Albert
Le 3° Jacques fait bien les choses aussi.
Cependant, je trouve plus élégant de mettre un si(estvide(a3); ..... que
mettre le lettrage en blanc. Pour peu que l'on veuille colorer le fond du
calendrier et qu'on ne sache pas bricoler la MEFC .....
La formule de Jacky est plus mieux, AMHA.
Mais, merci pour cette approche.
Jacquouille
Bonsoir Albert
Le 3° Jacques fait bien les choses aussi.
Cependant, je trouve plus élégant de mettre un si(estvide(a3); ..... que
mettre le lettrage en blanc. Pour peu que l'on veuille colorer le fond du
calendrier et qu'on ne sache pas bricoler la MEFC .....
La formule de Jacky est plus mieux, AMHA.
Mais, merci pour cette approche.
Jacquouille
Bonsoir Albert
Le 3° Jacques fait bien les choses aussi.
Cependant, je trouve plus élégant de mettre un si(estvide(a3); ..... que
mettre le lettrage en blanc. Pour peu que l'on veuille colorer le fond du
calendrier et qu'on ne sache pas bricoler la MEFC .....
La formule de Jacky est plus mieux, AMHA.
Mais, merci pour cette approche.
Jacquouille