Alterner mercredi et dimanche

[sonskriverez]

Bonjour le forum,

Dans une feuille je voudrais en A1 le premier mercredi du mois puis en A2 le premier dimanche puis en A3 le second mercredi puis en A4 le second dimanche...

Je suis parti sur cette formule qui me donne les mercredi en tirant vers le bas
="30/1/13"-WEEKDAY("30/1/13"-4)+7*ROW()
comment insérer les dimanche 1 fois sur 2

merci de votre aide

 

[tototiti2008]

Re : Alterner mercredi et dimanche

Bonjour sonskriverez,

Et si le premier dimanche du mois est avant le premier mercredi du mois, ç'est grave ? 😱

 

[MichD]

Re : Alterner mercredi et dimanche

Bonjour,

Ceci retourne le premier dimanche suivant une date donnée en A1

Si tu veux avoir le premier dimanche du mois,
inscrit en A1, le dernier jour du mois précédent.

=A1-JOURSEM(A1-1)+7

 

[Jocelyn]

Re : Alterner mercredi et dimanche

Bonjour le Forum,
Bonjour sonskriverez, tototiti2008🙂,

un essai en fichier par formule matricielle

voir fichier joint

Cordialement

 

[sonskriverez]

Re : Alterner mercredi et dimanche

Bojour a tous,

merci pour vos réponse, la formule matricielle de Jocelyn me conviens parfaitement même si j'y comprends rien ;-(

comment je peux faire si je veux l'année entière

 

[Jocelyn]

Re : Alterner mercredi et dimanche

re,

pour avoir l'année entière tu remplaces INDIRECT(DATE(2013;3;1)&":"&DATE(2013;3;31)) par INDIRECT(DATE(2013;1;1)&":"&DATE(2013;12;31)) partout ou ce morceau de formule apparait

Cordialement

 

[sonskriverez]

Re : Alterner mercredi et dimanche

Ca ne fonctionne pas cela me renvoie samedi 00/01/1900 et impossible de recopier vers bas

merci de ton aide

 

[Jocelyn]

Re : Alterner mercredi et dimanche

re,

Hum hum chez moi ca fonctionne je ne l'ai fait qu'au format avant excel 2007 car d'ici je suis sous excel 2000

regardes le fichier et dit nous

 

[sonskriverez]

Re : Alterner mercredi et dimanche

C'est bizarre, lorsque je veux copier la formule pour la mettre dans une autre feuille, le signe { en début de formule et } en fin de formule disparait !!
si je veux les rajouters la formule devient du texte.
A moins que je me trompe, jefais AltGr 4pour { et AltGr + pour }

j'ai esayé en excel 2007 et 2010 c'est pareil

 

[Jocelyn]

Re : Alterner mercredi et dimanche

re,

pour valider correctement une formule matricielle et donc faire apparaitre les {}

1) tu copies la formule dans la première cellule ou elle doit se trouver
2) tu positionnes le curseur en fin de formule dans la barre de formule
3) tu appuies simultanément sur CTRL, Maj (au dessus de CTRL, et entrée

a ce moment la excel va mettre de lui même les acolades devant la formule et en fin de formule

ensuite tu peux tranquilement l'étirer vers le bas

 

[sonskriverez]

Re : Alterner mercredi et dimanche

Eh ben c'était juste ça, désolé je ne connaisais pas cette manip

Super ça marche très bien

Merci Jocelyn, merci a tous

 

[Claude38]

Re : Alterner mercredi et dimanche

Bonjour à tous,

Salut Jocelyn,

Une autre façon sans matricielle,

Bon après-midi

 

[sonskriverez]

Re : Alterner mercredi et dimanche

merci Claude

 

[klin89]

Re : Alterner mercredi et dimanche

Bonjour à tous,

Une version estampillée VBA :

Sub Lister_Mercredis_Dimanches()
Dim i As Byte, j As Byte, rg As Range
Range("A1").Value = 2013
'Dimanches
For i = 1 To 12
  For j = 1 To 31
    If Weekday(DateSerial(2013, i, j)) = 1 Then
      Set rg = Range("A65536").End(xlUp).Offset(1, 0)
      With rg
        .Value = DateSerial(2013, i, j)
        .NumberFormat = "dddd dd mmmm yyyy"
      End With
    End If
  Next j
Next i
'Mercredis
For i = 1 To 12
  For j = 1 To 31
    If Weekday(DateSerial(2013, i, j)) = 4 Then
      Set rg = Range("A65536").End(xlUp).Offset(1, 0)
      With rg
        .Value = DateSerial(2013, i, j)
        .NumberFormat = "dddd dd mmmm yyyy"
      End With
    End If
  Next j
Next i
'trier sous excel 2003
Range("A1:A" & Range("A65536").End(xlUp).Row).Sort key1:=Range("A1"), order1:=xlAscending
End Sub

Klin89

 

[ROGER2327]

Re : Alterner mercredi et dimanche

Bonjour à tous.

Faisons simple...​

ROGER2327
#6436

Samedi 14 Gueules 140 (Nativité de J. Verne, globetrotter en chambre - fête Suprême Quarte)
20 Pluviôse An CCXXI, 1,5310h - serpette
2013-W06-5T03:40:28Z

P. s. : Pièce jointe supprimée : voir le message #16.