Recherche date

Bonjour,

Je recherche le code afin de pouvoir afficher une chaine de caractère ( date la plus ancienne - date la plus récente).

ex: 12.05.2019 - 21.05.2019

Les dates se trouves dans la feuille Data colonne C

Et j'aimerai insérer cette chainée, sur la feuilla analyse dans la colonne A, la ligne dépendra de la dernière ligne vide.

J'espère que vous pourriez m'aider.

P.S. je ne peux pas joindre de fichier car c'est dans le cadre professionnel

Bonjour Singele ,

P.S. je ne peux pas joindre de fichier car c'est dans le cadre professionnel

Dans ce cas prends le temps d'anonymiser ton fichier en gardant que les éléments nécessaire à ta demande et enlevant toutes les données confidentielles.

Voici le fichier,

Je reste à dispo si besoin

Voici un code a essayé:

Sub test()

    Dim complet As String
    Dim a As Variant, derlgn&

    a = Sheets("Data").Range("C2:C" & Sheets("Data").Range("C" & Rows.Count).End(xlUp).Row).Value2
    complet = Left(CDate(Application.Min(a)), 10) & "-" & Left(CDate(Application.Max(a)), 10)

    derlgn = Sheets("Analyse par semaine").Range("A" & Rows.Count).End(xlUp).Row + 11
    Sheets("Analyse par semaine").Range("A" & derlgn) = complet

End Sub

C'est exactement ça

Merci beaucoup