questions de calendrier

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P.
Le #19738331
Bonjour Grégory-
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?

En A2: ÚTEVAL("1/1/"&B1)
Sélectionne toute la plage A2:A13 >Édition>Remplissage>Série>Unité de
Temps(Mois)>OK
En VBA:
Sub SérieMensuelle()
[A2].FormulaR1C1 = "ÚTEVALUE(""1/1/""&R[-1]C[1])"
[A2:A13].Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlMonth, Step:=1, Trend:úlse
End Sub
Grégory DELBOE
Le #19738351
Merci Frédo pour ta réponse, ton code fonctionne impecccable. La question 1
est solutionnée.
Est-il possible de compléter le code pour que chaque ligne aille jusqu'au
bout de son mois, sans le dépasser?


"Fredo P." de news:
Bonjour Grégory-
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?

En A2: ÚTEVAL("1/1/"&B1)
Sélectionne toute la plage A2:A13 >Édition>Remplissage>Série>Unité de
Temps(Mois)>OK
En VBA:
Sub SérieMensuelle()
[A2].FormulaR1C1 = "ÚTEVALUE(""1/1/""&R[-1]C[1])"
[A2:A13].Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlMonth, Step:=1, Trend:úlse
End Sub




Grégory DELBOE
Le #19738341
Chaque mois sera repris dans une feuille. L'idée est de supprimer les
colonnes dont les dates seraient les diamnches, samedis...etc...
Philippe.R
Le #19738581
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" 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.


Grégory DELBOE
Le #19738731
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" 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" 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.





Philippe.R
Le #19739671
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" 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" 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" 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.








Fredo P.
Le #19740691
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" %
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" 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" 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" 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.











Grégory DELBOE
Le #19741881
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." 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" %
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" 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" 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" 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.















Philippe.R
Le #19742881
Bonjour,
La dernière version du code fournie éliminait déjà les mercredi ; celle ci
élimine toutes les dates contenues dans une plage nommée feries

Sub calend_der()
'MPFE le 12/07/2009
Dim i As Integer, j As Integer, k As Integer, _
g As Range, h As Range
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
For Each g In Range(Cells(2, 1), ActiveCell.SpecialCells(xlLastCell))
For Each h In Range("feries")
If h.Value = g.Value Then g.Value = ""
Next h
Next g
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" 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." 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" 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" 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" 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" 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.


















Fredo P.
Le #19742971
Il reste encore un petit décalage à régler, si tu tiens absoluement à régler
se pb, il se peut que tu attendes la fin de notre rando_velo du week.

http://cjoint.com/?hmjzqiy856

"Grégory DELBOE"
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." 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" 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" 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" 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" 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.


















Publicité
Poster une réponse
Anonyme