Réccupérer les dates d'un tableu en fonction du mois

Bonjour,

Je souhaite récupérer les "Date de début" de la feuille liste "Liste" ci-joint en fonction du mois pour ensuite les renseigner dans la feuille "Calendrier" avec la "Date de fin" et "Jours" de cette même ligne

Je pense que utiliser "DateVal" est une solution possible...

J'ai essayé ce code mais il n'est pas du tout fonctionnel.

Sub date_tri()
For Each c In Worksheets("Liste").Range("B:B")
        'Exemple pour Janvier :
    If 44562 < DateVal(c.Value) < 44592 Then
        'ligne = Worksheets("Calendrier").Range("A3").End(xlDown).Row + 1
        '.Range("A" & ligne).Value = Worksheets("Liste").c.Value
        '.Range("B" & ligne).Value = Worksheets("Liste").c.Offset(, +1).Value
        '.Range("C" & ligne).Value = Worksheets("Liste").c.Offset(, +2).Value
    End If
Next c

End Sub

J'espère avoir été assez clair et que quelqu'un saura m'aider,

Merci d'avance !

Bonjour,

Voici une proposition:

Sub test()
Dim tabSource As Variant, tabNbLignes As Variant, tabMois As Variant

'initialisations
tabSource = Feuil1.Range("A1").CurrentRegion.Value
ReDim tabNbLignes(1 To 12)

'compte le nombre de lignes par mois
For j = 1 To 12
    For i = LBound(tabSource, 1) + 1 To UBound(tabSource, 1)
        If Month(tabSource(i, 2)) = j Then
            tabNbLignes(j) = tabNbLignes(j) + 1
        End If
    Next i
Next j

For j = 1 To 12
    If Not tabNbLignes(j) = 0 Then
        lig = 0
        ReDim tabMois(1 To tabNbLignes(j), 1 To 3)

        For i = LBound(tabSource, 1) + 1 To UBound(tabSource, 1)
            If Month(tabSource(i, 2)) = j Then
                lig = lig + 1
                tabMois(lig, 1) = tabSource(i, 2)
                tabMois(lig, 2) = tabSource(i, 3)
                tabMois(lig, 3) = tabSource(i, 4)
            End If
        Next i

        With Feuil2
            .Cells(3, 1 + 4 * (j - 1)).Resize(UBound(tabMois, 1), UBound(tabMois, 2)).Value = tabMois
        End With
    End If
Next j
End Sub

Bonjour,

Pour être sûr de bien comprendre, vous voulez que la macro :

1. Récupère dans la feuille liste la date de début (par exemple 06/01/2022)
2. Le reporte dans la feuille calendrier dans la colonne du mois correspondant (colonne A dans l'exemple)
3. Reporte également la date de fin associée (ici 06/01/2022 également)
4. Reporte enfin le nombre de jours séparant ces deux dates

?

Dans l'attente de vous lire,

Cordialement,

Killian

Bonjour,

Un test

Bonjour,
Merci à vous tous, la réponse de Ausecour fonctionne parfaitement, Je vais aussi essayé la tienne M12

Killian Giard vous aviez bien compris mon besoin ;)

Super mais je n'ai pas été assez rapide.... En tout cas tant mieux si vous avez solutionné votre problème Bonne journée