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
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
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
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.
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.
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.
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.
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.
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.
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$jOSfAKHA.4016@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.
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.
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" <delboe@free.fr> a écrit dans le message de
news:OB6qAsfAKHA.5020@TK2MSFTNGP04.phx.gbl...
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$jOSfAKHA.4016@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.
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.
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:
%236sfqGhAKHA.3732@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:OB6qAsfAKHA.5020@TK2MSFTNGP04.phx.gbl...
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$jOSfAKHA.4016@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.
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.
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." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le
message de news:OCsrwtjAKHA.4168@TK2MSFTNGP05.phx.gbl...
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: %236sfqGhAKHA.3732@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:OB6qAsfAKHA.5020@TK2MSFTNGP04.phx.gbl...
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$jOSfAKHA.4016@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.
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.
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." <ponsinet.frederic363@otezcelaorange.fr> a écrit dans le
message de news:OCsrwtjAKHA.4168@TK2MSFTNGP05.phx.gbl...
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: %236sfqGhAKHA.3732@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:OB6qAsfAKHA.5020@TK2MSFTNGP04.phx.gbl...
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$jOSfAKHA.4016@TK2MSFTNGP02.phx.gbl...
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" <delboe@free.fr> a écrit dans le message de
news:E25FD3A1-A910-417E-9BCE-386EBF22F4DA@microsoft.com...
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.
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.