Extraction donnés Data Picker

Voila je souhaiterais avoir les dates jours/mois et num de semaine à partir du data picker

Merci de l'attention portée à ma demande

11data-q.xlsx (12.11 Ko)

Bonjour,

Dans le module de la feuille :

Private Sub DTPicker1_Change()
    Dim d, dref, i%, s%
    d = CDate(DTPicker1.Value)
    d = d - Weekday(d) + 2
    For i = 1 To 7
        Me.Cells(5, i * 2 - 1) = d + i - 1
    Next i
    dref = DateSerial(Year(d), 1, 3)
    dref = dref - Weekday(dref) + 2
    If dref > d Then
        dref = DateSerial(Year(d) - 1, 1, 3)
        dref = dref - Weekday(dref) + 2
    End If
    s = Int((d - dref) / 7) + 1
    Me.Cells(2, 2) = s
End Sub

NB- Numéro de semaine calculé selon la norme européenne ISO 8601.

Cordialement

Ferrand

Rechercher des sujets similaires à "extraction donnes data picker"