VBA date de semaine

Bonjour à tous,

J'aimerais afficher dans une cellule A5 les dates de la semaine passée. Par exemple, j'aimerais afficher dans A5 " Du 15/07 au 21/07" puis dans la colonne A4 "Du 08/07 au 14/07" etc. jusqu'à la cellule A1.

Autant en excel je pourrai éventuellement m'en sortir, autant en VBA je n'en ai aucune idée.

Il s'agirait également de considérer qu'au 10 janvier 2020, l'affichage reste correcte.

Merci d'avance pour votre temps,

Simon

bonjour

en excel je pourrai éventuellement m'en sortir,

pourquoi alors ne pas faire la formule ?

amitiés

Bonjour jmd,

C'est par pure curiosité je dois dire.

Est-ce possible tu penses ? Et si oui compliqué ?

Simon

re

avec VBA tout est possible, même de recréer Google (en moins rapide toutefois)

mais ce n'est pas toujours simple

sur ce forum, certains savent bien que je n'utilise jamais VBA. Depuis 20+ ans que je fais du tableur en milieu pro, je n'en ai pas eu l'utilité

c'est ma pratique

si tu veux vraiment de l'aide sur VBA, je passe la parole à nos VBAistes du forum, et il y en a des hyper-forts. Et je les salue amicalement au passage

bye !

Jmd,

Merci beaucoup.

Penses-tu que tu pourrais m'aider pour la formule sous excel ? J'ai vraiment pas mal regardé en VBA et ça m'a l'air trop compliqué je dois dire.

Merci d'avance,

Simon

Bonjour,

Je suis impatient de voir la formule de jmd la bricole !...

Avec un tuto pour expliquer la chose, bien entendu.

Cdlt.

Bonjour Jean-Eric,

Saurais-tu comment faire cela sous VBA ?

J'ai réussi à le faire sous excel avec comme formule :

="Du " & aujourdhui() - 7 - joursem(aujourd'hui();3) & " au " & aujourd'hui() - joursem(aujourdhui();3)

Cependant, le résultat se met sous la forme de nombre même quand je mets la cellule au format date...

Simon

Re,

Attendons la réponse de jmd, puisqu'il est intervenu.

Bon, tu as donné une idée de la réponse…

Cdlt.

Jean-Eric,

Oui ahah je me doute que tu sais le faire.

Je risque d'utiliser la technique de imd pour être honnête. Mais si tu pouvais me donner une bride de réponse pour que j'essaie de le faire moi même en via ça serait top

Simon

Re,

Bon, un exemple dans le fichier joint.

Avec la fonction AUJOURDHUI() et JOURSEM().

Cdlt.

Re,

Top un grand merci à toi Jean-Eric

Et en VBA ça donnerait quoi s'il-te-plait ?

Simon

Bonjour,

Un exemple dans le fichier joint.

Cdlt.

Public Sub CreateDates()
Dim dt As Date, arr(4, 1)
    dt = Date - Weekday(Date, 2) + 1
    arr(0, 0) = dt - 28: arr(0, 1) = dt - 22
    arr(1, 0) = dt - 21: arr(1, 1) = dt - 15
    arr(2, 0) = dt - 14: arr(2, 1) = dt - 8
    arr(3, 0) = dt - 7: arr(3, 1) = dt - 1
    arr(4, 0) = dt: arr(4, 1) = dt + 6
    With ActiveSheet
        With .Cells(1).Resize(5, 2)
            .Value = arr
            .NumberFormat = "ddd dd/mm/yyyy"
        End With
        .Cells(1).Resize(1, 2).EntireColumn.AutoFit
    End With
End Sub

Bonjour Jean-Eric,

Top c'est génial merci beaucoup. Exactement ce qu'il me fallait

Bonne journée,

Simon