Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel questions de calendrier

questions de calendrier

23 réponses
Avatar
Grégory DELBOE
Bonsoir,

Je cherche à créer un calendrier. L'année se trouve en B1. Mais une fois de
plus, j'ai besoin de votre aide:

- Comment avoir le premier jour de janvier en A2, le premier de février en
A3 ... etc. en fonction de l'année en B1?
- Comment éliminer tous les dimanches par exemple?
- Comment éliminer certaines dates que j'aurais spécifié dans une autre
feuille du classeur?

Merci pour votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Grégory DELBOE
Je viens de me rendre compte qu'il y a vait un travail d'effectuer sur les
jours fériés... mais je ne sais pas du tout comment ça fonctionne...

Décidément, je ne suis pas au bout de mes surprises avec vous!

à plus

Greg



"Fredo P." a écrit dans le message
de news:%
Oups ( petite coquille pas visible à 1ière vue sur le précédent posté)
http://cjoint.com/?hmuVVJTayV

"Grégory DELBOE" a écrit dans le message de news:

Merci à tous les deux! Je retoruve dans vos 2 propositions tout ce que
j'attends de ce fichier:
- Le fichier de Fredo propose un formulaire qui permet de rentrer une
date de début et de fin, ce qui rend très souple l'utilisation du fichier
et permettra à l'utilisateur une mise à jour facile tous les ans, ou une
personnalisation. Pour être complètement personnalisable, on pourrait
rêver d'un formulaire qui demanderait également "quels sont vos jours de
repos hebdomadaire?", ce qui permettrait de s'adapter à des
configurations d'école différentes (certains travaillent le mercredi,
d'autres non...). De plus, la macro permet d'éliminer toutes les cellules
vides pour chaque mois. Par contre, dans la dernière proposition de Fredo
du "calendrier auto", le mois ne commence pas forcément en première
colonne, des dates ont disparues, des cellules sont vides. Ce qui n'était
pas le cas dans la première proposition.
- Le code de Philippe permet de prendre les jours fériés. Il les élimine
automatiquement dans la cellule mais laisse une cellule vide.

Grace à vos géniales propositions, je pense pouvoir décrire très
précisément le fichier idéal. C'est une synthèse de vos travaux:
- Dès le démarrage, les petits formulaires permettent d'indiquer les
dates de début d'année, de fin d'année, la cellule dans laquelle démarre
le calendrier. La cerise sur le gâteau serait de cocher les jours de
congés hebdomadaires.
- Une feuille "congés et fériés" récapitulerait les dates non
travaillées, saisi manuellement par l'utilisateur.
- La feuille "calendrier" récapitulerait, une ligne par mois, les jours
travaillés. Dans la première colonne se trouverait le prmier jour
travaillé du mois, puis dans la deuxième le second...etc. en prenant en
compte l'ensemble des congés.

J'ai le sentiment que vous êtes très proche de cette attente... Me
trompe-je?

Merci pour tous vos efforts.

Greg

NB: Effectivement Philippe, j'avais mis le code sur la feuille. Je n'ai
toujours pas bien compris les cas dans lesquels il faut mettre les codes
dans des modules...Je rêve d'une formation payé par l'éducation
nationale!

"Fredo P." a écrit dans le
message de news:%
Voila, ce devrait être bon
http://cjoint.com/?hmofW8D5mq

"Grégory DELBOE" a écrit dans le message de news:

Merci Fredo et Philippe pour vos réponses. Effectivement, désormais,
j'ai le début de ce que je souhaite. Il resterait:
- Une démarche qui permettrait d'effacer également les merdredi, au
même titre que les samedi et dimanche.
- Comment éliminer certaines dates que j'aurais spécifié (jours fériés
ou non travaillés) dans une autre feuille du classeur, en colonne A par
exemple?

Merci pour votre soutien sans lequel je ne ferais rien...

Greg



"Fredo P." a écrit dans le
message de news:
Merci Philippe pour la relève, toutes mes réserves de réfs étaient
disparues d'OE.>remise en fonc. du vieux dd boiteux>un ptit coup de
liqueur de jouvence>quelques soudures>import des messages> j'ai tout
remis en place mais trop tard.

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %
Re,
Version bis :

Sub calend_dos()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5 _
Or Weekday(DateSerial([b1], i - 1, j), vbMonday) = 3
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub


--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonjour,

Merci Philippe pour ta réponse. Bizarrement, le mois de Février ne
s'affiche pas. Comment est-il possible de supprimer également les
mercredi? (éventuellement, car ce fichier se destine aux
aenseignants, et certains ne travaillent pas le mercredi...)

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:uP$
Bonjour,
Un exemple de code pour inscrire dans la même feuille toutes les
dates hors samedi et dimanche, une ligne par mois

Sub calendes()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
i = i + 1
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonsoir,

Je cherche à créer un calendrier. L'année se trouve en B1. Mais
une fois de plus, j'ai besoin de votre aide:

- Comment avoir le premier jour de janvier en A2, le premier de
février en A3 ... etc. en fonction de l'année en B1?
- Comment éliminer tous les dimanches par exemple?
- Comment éliminer certaines dates que j'aurais spécifié dans une
autre feuille du classeur?

Merci pour votre aide.





























Avatar
Fredo P.
Les Jours Fériés calculés avec la fonction "Function TYPEJOUR(D As Date)"
est l'apanage de Laurent Longre dit LL on "Chef à 4 Plumes".: son site:
http://xcell05.free.fr/
"Grégory DELBOE" a écrit dans le message de news:

Je viens de me rendre compte qu'il y a vait un travail d'effectuer sur les
jours fériés... mais je ne sais pas du tout comment ça fonctionne...

Décidément, je ne suis pas au bout de mes surprises avec vous!

à plus

Greg



"Fredo P." a écrit dans le
message de news:%
Oups ( petite coquille pas visible à 1ière vue sur le précédent posté)
http://cjoint.com/?hmuVVJTayV

"Grégory DELBOE" a écrit dans le message de news:

Merci à tous les deux! Je retoruve dans vos 2 propositions tout ce que
j'attends de ce fichier:
- Le fichier de Fredo propose un formulaire qui permet de rentrer une
date de début et de fin, ce qui rend très souple l'utilisation du
fichier et permettra à l'utilisateur une mise à jour facile tous les
ans, ou une personnalisation. Pour être complètement personnalisable, on
pourrait rêver d'un formulaire qui demanderait également "quels sont vos
jours de repos hebdomadaire?", ce qui permettrait de s'adapter à des
configurations d'école différentes (certains travaillent le mercredi,
d'autres non...). De plus, la macro permet d'éliminer toutes les
cellules vides pour chaque mois. Par contre, dans la dernière
proposition de Fredo du "calendrier auto", le mois ne commence pas
forcément en première colonne, des dates ont disparues, des cellules
sont vides. Ce qui n'était pas le cas dans la première proposition.
- Le code de Philippe permet de prendre les jours fériés. Il les élimine
automatiquement dans la cellule mais laisse une cellule vide.

Grace à vos géniales propositions, je pense pouvoir décrire très
précisément le fichier idéal. C'est une synthèse de vos travaux:
- Dès le démarrage, les petits formulaires permettent d'indiquer les
dates de début d'année, de fin d'année, la cellule dans laquelle démarre
le calendrier. La cerise sur le gâteau serait de cocher les jours de
congés hebdomadaires.
- Une feuille "congés et fériés" récapitulerait les dates non
travaillées, saisi manuellement par l'utilisateur.
- La feuille "calendrier" récapitulerait, une ligne par mois, les jours
travaillés. Dans la première colonne se trouverait le prmier jour
travaillé du mois, puis dans la deuxième le second...etc. en prenant en
compte l'ensemble des congés.

J'ai le sentiment que vous êtes très proche de cette attente... Me
trompe-je?

Merci pour tous vos efforts.

Greg

NB: Effectivement Philippe, j'avais mis le code sur la feuille. Je n'ai
toujours pas bien compris les cas dans lesquels il faut mettre les codes
dans des modules...Je rêve d'une formation payé par l'éducation
nationale!

"Fredo P." a écrit dans le
message de news:%
Voila, ce devrait être bon
http://cjoint.com/?hmofW8D5mq

"Grégory DELBOE" a écrit dans le message de news:

Merci Fredo et Philippe pour vos réponses. Effectivement, désormais,
j'ai le début de ce que je souhaite. Il resterait:
- Une démarche qui permettrait d'effacer également les merdredi, au
même titre que les samedi et dimanche.
- Comment éliminer certaines dates que j'aurais spécifié (jours fériés
ou non travaillés) dans une autre feuille du classeur, en colonne A
par exemple?

Merci pour votre soutien sans lequel je ne ferais rien...

Greg



"Fredo P." a écrit dans le
message de news:
Merci Philippe pour la relève, toutes mes réserves de réfs étaient
disparues d'OE.>remise en fonc. du vieux dd boiteux>un ptit coup de
liqueur de jouvence>quelques soudures>import des messages> j'ai tout
remis en place mais trop tard.

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %
Re,
Version bis :

Sub calend_dos()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5 _
Or Weekday(DateSerial([b1], i - 1, j), vbMonday) = 3
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub


--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonjour,

Merci Philippe pour ta réponse. Bizarrement, le mois de Février ne
s'affiche pas. Comment est-il possible de supprimer également les
mercredi? (éventuellement, car ce fichier se destine aux
aenseignants, et certains ne travaillent pas le mercredi...)

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de news:uP$
Bonjour,
Un exemple de code pour inscrire dans la même feuille toutes les
dates hors samedi et dimanche, une ligne par mois

Sub calendes()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
i = i + 1
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonsoir,

Je cherche à créer un calendrier. L'année se trouve en B1. Mais
une fois de plus, j'ai besoin de votre aide:

- Comment avoir le premier jour de janvier en A2, le premier de
février en A3 ... etc. en fonction de l'année en B1?
- Comment éliminer tous les dimanches par exemple?
- Comment éliminer certaines dates que j'aurais spécifié dans une
autre feuille du classeur?

Merci pour votre aide.
































Avatar
Greg
Merci pour tout!

à plus

Greg


"Fredo P." a écrit dans le message
de news:
Les Jours Fériés calculés avec la fonction "Function TYPEJOUR(D As Date)"
est l'apanage de Laurent Longre dit LL on "Chef à 4 Plumes".: son site:
http://xcell05.free.fr/
"Grégory DELBOE" a écrit dans le message de news:

Je viens de me rendre compte qu'il y a vait un travail d'effectuer sur
les jours fériés... mais je ne sais pas du tout comment ça fonctionne...

Décidément, je ne suis pas au bout de mes surprises avec vous!

à plus

Greg



"Fredo P." a écrit dans le
message de news:%
Oups ( petite coquille pas visible à 1ière vue sur le précédent posté)
http://cjoint.com/?hmuVVJTayV

"Grégory DELBOE" a écrit dans le message de news:

Merci à tous les deux! Je retoruve dans vos 2 propositions tout ce que
j'attends de ce fichier:
- Le fichier de Fredo propose un formulaire qui permet de rentrer une
date de début et de fin, ce qui rend très souple l'utilisation du
fichier et permettra à l'utilisateur une mise à jour facile tous les
ans, ou une personnalisation. Pour être complètement personnalisable,
on pourrait rêver d'un formulaire qui demanderait également "quels sont
vos jours de repos hebdomadaire?", ce qui permettrait de s'adapter à
des configurations d'école différentes (certains travaillent le
mercredi, d'autres non...). De plus, la macro permet d'éliminer toutes
les cellules vides pour chaque mois. Par contre, dans la dernière
proposition de Fredo du "calendrier auto", le mois ne commence pas
forcément en première colonne, des dates ont disparues, des cellules
sont vides. Ce qui n'était pas le cas dans la première proposition.
- Le code de Philippe permet de prendre les jours fériés. Il les
élimine automatiquement dans la cellule mais laisse une cellule vide.

Grace à vos géniales propositions, je pense pouvoir décrire très
précisément le fichier idéal. C'est une synthèse de vos travaux:
- Dès le démarrage, les petits formulaires permettent d'indiquer les
dates de début d'année, de fin d'année, la cellule dans laquelle
démarre le calendrier. La cerise sur le gâteau serait de cocher les
jours de congés hebdomadaires.
- Une feuille "congés et fériés" récapitulerait les dates non
travaillées, saisi manuellement par l'utilisateur.
- La feuille "calendrier" récapitulerait, une ligne par mois, les jours
travaillés. Dans la première colonne se trouverait le prmier jour
travaillé du mois, puis dans la deuxième le second...etc. en prenant en
compte l'ensemble des congés.

J'ai le sentiment que vous êtes très proche de cette attente... Me
trompe-je?

Merci pour tous vos efforts.

Greg

NB: Effectivement Philippe, j'avais mis le code sur la feuille. Je n'ai
toujours pas bien compris les cas dans lesquels il faut mettre les
codes dans des modules...Je rêve d'une formation payé par l'éducation
nationale!

"Fredo P." a écrit dans le
message de news:%
Voila, ce devrait être bon
http://cjoint.com/?hmofW8D5mq

"Grégory DELBOE" a écrit dans le message de news:

Merci Fredo et Philippe pour vos réponses. Effectivement, désormais,
j'ai le début de ce que je souhaite. Il resterait:
- Une démarche qui permettrait d'effacer également les merdredi, au
même titre que les samedi et dimanche.
- Comment éliminer certaines dates que j'aurais spécifié (jours
fériés ou non travaillés) dans une autre feuille du classeur, en
colonne A par exemple?

Merci pour votre soutien sans lequel je ne ferais rien...

Greg



"Fredo P." a écrit dans le
message de news:
Merci Philippe pour la relève, toutes mes réserves de réfs étaient
disparues d'OE.>remise en fonc. du vieux dd boiteux>un ptit coup de
liqueur de jouvence>quelques soudures>import des messages> j'ai tout
remis en place mais trop tard.

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %
Re,
Version bis :

Sub calend_dos()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5 _
Or Weekday(DateSerial([b1], i - 1, j), vbMonday) = 3
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub


--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonjour,

Merci Philippe pour ta réponse. Bizarrement, le mois de Février ne
s'affiche pas. Comment est-il possible de supprimer également les
mercredi? (éventuellement, car ce fichier se destine aux
aenseignants, et certains ne travaillent pas le mercredi...)

Greg


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message
de news:uP$
Bonjour,
Un exemple de code pour inscrire dans la même feuille toutes les
dates hors samedi et dimanche, une ligne par mois

Sub calendes()
'MPFE le 11/07/2009
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 2 To 13
For j = 1 To 33
Cells(i, j).ClearContents
If Weekday(DateSerial([b1], i - 1, j), vbMonday) > 5
Then
k = j + 1
ElseIf Month(DateSerial([b1], i - 1, j)) > i - 1 Then
i = i + 1
Exit For
Else
k = j
End If
Cells(i, k) = DateSerial([b1], i - 1, j)
Next j
Next i
Application.ScreenUpdating = True
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory DELBOE" a écrit dans le message de
news:
Bonsoir,

Je cherche à créer un calendrier. L'année se trouve en B1. Mais
une fois de plus, j'ai besoin de votre aide:

- Comment avoir le premier jour de janvier en A2, le premier de
février en A3 ... etc. en fonction de l'année en B1?
- Comment éliminer tous les dimanches par exemple?
- Comment éliminer certaines dates que j'aurais spécifié dans
une autre feuille du classeur?

Merci pour votre aide.




































1 2 3