Faire apparaitre sur plusieurs lignes les mercredi d'un mois

Fermé

loicoss - 12 juin 2013 à 12:37
via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 - 12 juin 2013 à 14:43

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.

A voir également:

Faire apparaitre sur plusieurs lignes les mercredi d'un mois
Apparaitre hors ligne instagram - Guide
Apparaitre hors ligne whatsapp - Guide
Ne pas apparaître en ligne sur messenger pour une personne - Guide
Comment aller à la ligne sur excel - Guide
Faire apparaitre le 0 sur excel - Guide

2 réponses

Réponse 1 / 2

redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
12 juin 2013 à 13:27

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?

Réponse 2 / 2

via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 2 703
12 juin 2013 à 14:43

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

Discussions similaires

Afficher toutes les lignes masquées excel

Bibliothèque

Formule Excel pour afficher les mois (chiffres) en lettre

Statut « en ligne » alors que non

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters