je voudrais cr=E9er dans une feuille cr=E9er un calandrier=20
mensuel, mais seul deux jours par semaine m'int=E9ressent=20
le mercredi et le samedi j'ai chercher des solutions mais=20
je n'en trouve pas.
exemple:
septembre 2003
mer 3[sam 6[mer 10[sam 13[mer 17[sam 20 etc.......
et ainsi de suite pour les autres mois
Merci par avance.
B.DAVID
dit: Bouchy
En A1 : ÚTE(2003;1;8)-JOURSEM(DATE(2003;1;4)) En A2 : ÚTE(2003;1;8)-JOURSEM(DATE(2003;1;1)) En A3 : ¡+7 En A4 : ¡+7
Sélection A3:A4 --> recopie --> Ax
AV
Marcel Narchi
il faut créer la proc suivante : ' Sub MercrediSamedi() année = Year(ActiveCell.Value) mois = Month(ActiveCell.Value) dernier = DateSerial(année, mois + 1, 1) - 1 j = 0 For i = 1 To Day(dernier) If WeekDay(DateSerial(année, mois, i)) = 4 Or WeekDay (DateSerial(année, mois, i)) = 7 Then j = j + 1 ActiveCell.Offset(1, j - 1).Value = DateSerial (année, mois, i) ActiveCell.Offset(1, j - 1).NumberFormat = "ddd-d" End If Next End Sub ' ensuite sélectionner la cellule contenant sept-2003(qui est une date), exécuter la proc MercrediSamedi, les dates recherchées s'inscrivent dans la ligne suivante.
il faut créer la proc suivante :
'
Sub MercrediSamedi()
année = Year(ActiveCell.Value)
mois = Month(ActiveCell.Value)
dernier = DateSerial(année, mois + 1, 1) - 1
j = 0
For i = 1 To Day(dernier)
If WeekDay(DateSerial(année, mois, i)) = 4 Or WeekDay
(DateSerial(année, mois, i)) = 7 Then
j = j + 1
ActiveCell.Offset(1, j - 1).Value = DateSerial
(année, mois, i)
ActiveCell.Offset(1, j - 1).NumberFormat = "ddd-d"
End If
Next
End Sub
'
ensuite sélectionner la cellule contenant sept-2003(qui
est une date), exécuter la proc MercrediSamedi, les dates
recherchées s'inscrivent dans la ligne suivante.
il faut créer la proc suivante : ' Sub MercrediSamedi() année = Year(ActiveCell.Value) mois = Month(ActiveCell.Value) dernier = DateSerial(année, mois + 1, 1) - 1 j = 0 For i = 1 To Day(dernier) If WeekDay(DateSerial(année, mois, i)) = 4 Or WeekDay (DateSerial(année, mois, i)) = 7 Then j = j + 1 ActiveCell.Offset(1, j - 1).Value = DateSerial (année, mois, i) ActiveCell.Offset(1, j - 1).NumberFormat = "ddd-d" End If Next End Sub ' ensuite sélectionner la cellule contenant sept-2003(qui est une date), exécuter la proc MercrediSamedi, les dates recherchées s'inscrivent dans la ligne suivante.
AV
Mais oui...mais oui.... Pffffff.......copier/coller cacateux
AV
Mais oui...mais oui.... Pffffff.......copier/coller cacateux
Mais oui...mais oui.... Pffffff.......copier/coller cacateux
AV
Frédéric Sigonneau
Bonjour,
Parmi d'autres possibilités, avec en A1 la date du premier mercredi (ou samedi) qui t'intéresse, en A2 (à recopier ensuite vers le bas) :
¡+SI(JOURSEM(A1)=4;3;4)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour,
je voudrais créer dans une feuille créer un calandrier mensuel, mais seul deux jours par semaine m'intéressent le mercredi et le samedi j'ai chercher des solutions mais je n'en trouve pas. exemple:
septembre 2003
mer 3[sam 6[mer 10[sam 13[mer 17[sam 20 etc....... et ainsi de suite pour les autres mois Merci par avance. B.DAVID dit: Bouchy
Bonjour,
Parmi d'autres possibilités, avec en A1 la date du premier mercredi (ou samedi)
qui t'intéresse, en A2 (à recopier ensuite vers le bas) :
¡+SI(JOURSEM(A1)=4;3;4)
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
bonjour,
je voudrais créer dans une feuille créer un calandrier
mensuel, mais seul deux jours par semaine m'intéressent
le mercredi et le samedi j'ai chercher des solutions mais
je n'en trouve pas.
exemple:
septembre 2003
mer 3[sam 6[mer 10[sam 13[mer 17[sam 20 etc.......
et ainsi de suite pour les autres mois
Merci par avance.
B.DAVID
dit: Bouchy
Parmi d'autres possibilités, avec en A1 la date du premier mercredi (ou samedi) qui t'intéresse, en A2 (à recopier ensuite vers le bas) :
¡+SI(JOURSEM(A1)=4;3;4)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour,
je voudrais créer dans une feuille créer un calandrier mensuel, mais seul deux jours par semaine m'intéressent le mercredi et le samedi j'ai chercher des solutions mais je n'en trouve pas. exemple:
septembre 2003
mer 3[sam 6[mer 10[sam 13[mer 17[sam 20 etc....... et ainsi de suite pour les autres mois Merci par avance. B.DAVID dit: Bouchy