Faire apparaitre sur plusieurs lignes les mercredi d'un mois Fermé

Question

Bonjour, 

Dans Excel, je souhaite faire apparaitre dans une colonne et sur plusieurs lignes tous les mercredi d'un mois par rapport à la date du premier jour du mois.
Je suis donc à la recherche d'une fonction pouvant me donner ce résultat.

exemple :

en A1 = Date du premier jour du mois (01/06/2013)

en B1 = mercredi 5 juin 2013
en B2 = mercredi 12 juin 2013
en B3 = mercredi 19 juin 2013
en B4 = mercredi 26 juin 2013

Les cellules B1 à B4 se rempliraient automatiquement grace à la fonction.

Je vous remercie par avance pour vos réponses

Cordialement.

Configuration: Windows 7 / Chrome Indeterminable

redaiwa · Answer

Salam loicoss.

Je ne sais pas si c'est faisable directement par fonction mais si tu connais un peu VBA, je te propose ce code suivant à coller dans ton éditeur VBA (Alt+F11) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
  If Target.Address = "$A$1" Then
    l = 2
    For jour = 1 To 31
      d = CDate(jour & "/" & Month(Target) & "/" & Year(Target))
      If Weekday(d) = 4 Then
        Cells(l, 1) = d
        l = l + 1
      End If
    Next jour
  End If
End Sub


Ensuite quand tu saisis une date dans la cellule A1, tous les mercredis du mois s'affichent en dessous. 

C'est OK?

via55 · Answer

Bonjour

En B1  =DATE(ANNEE(A1);MOIS(A1);1)-MOD(DATE(ANNEE(A1);MOIS(A1);1)-3;7)+8
En B2 =B1+7
Etire la formule en B2 jusqu'en B4

Cdlmnt

Faire apparaitre sur plusieurs lignes les mercredi d'un mois

2 réponses

Discussions similaires