Selection une colonne en foction de dates

Bonjour
Voilà le problème,

Je dois copier une colonne D en fonction dune autre colonne A qui se composent des dates de 1/01/2016 après la fin du mois 1 il passe vers le mois 2 et ainsi de suit Merci

esc que il y a quelqu'un qui peut m'aider

Bonjour omaryou et bienvenue,

Un fichier permettrait de mieux comprendre et de tester. On ne sait pas si les dates en colonne A sont uniques, s'il peut manquer certaines dates, si tu veux récupérer la T° Moyenne pour une seule date ou une période comprise entre 2 dates, ...

Je suppose que ces températures ne sont pas confidentielles Joins un exemple avec une centaine de lignes en expliquant où tu veux avoir le résultat, comment et à quel endroit tu indiques la date souhaitée. Fournis un ou deux exemples de résultats attendus ... Tu devrais obtenir un peu plus de propositions

Merci de votre réponse voila le résultat souhaité

voici le fichier

Bonjour le forum,

Une proposition par formule.

Cordialement.

je vous remercie pour vos repenses mais est ce que je pourrais réaliser avec un Marco ?

Un Marco? Vous voulez plutôt dire une macro?

OUI

Bonjour,
Tu voulais une Marco, voilà une Macro.
Cdlt.

Option Explicit

Public Sub CreateAverage()
Dim wb As Workbook
Dim wsData As Worksheet
Dim lo As ListObject
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim rngGroup As Range

    Application.ScreenUpdating = False

    Set wb = ThisWorkbook
    Set wsData = wb.Worksheets("Occitanie")
    Set lo = wsData.ListObjects("t_Occitanie")

    On Error Resume Next
    wsData.PivotTables("TCD_Occitanie").TableRange2.Clear
    On Error GoTo 0

    Set PTCache = wb.PivotCaches.Create(xlDatabase, lo.Range)
    Set PT = PTCache.CreatePivotTable(wsData.Cells(4, 8), "TCD_Occitanie")

    With PT
        .ManualUpdate = False
        .AddFields RowFields:="Date"
        With .PivotFields("TMoy (°C)")
            .Orientation = xlDataField
            .Function = xlAverage
            .NumberFormat = "#,##0.00_ ;[Red](#,##0.00) ;"
            .Caption = "Moyenne TMoy (°C) "
        End With
        .TableStyle2 = "PivotStyleLight1"
        .RowAxisLayout xlTabularRow
        .ColumnGrand = False
        .DisplayFieldCaptions = False
        .ShowDrillIndicators = False
        Set rngGroup = .PivotFields("Date").DataRange
        rngGroup.Cells(1).Group Periods:=Array(False, False, False, False, True, False, True)
        .PivotFields("Date").Caption = "Mois"
        With .PivotFields("Années")
            .Caption = "Année"
            .Subtotals(1) = False
            .RepeatLabels = True
        End With
        .ManualUpdate = True
    End With

End Sub

Bonjour, à tous,

Jean-Eric a écrit :

Tu voulais une Marco, voilà une macro.

Il y a du Brel dans ce propos... Quel génie....!