Recherche:

Bonjour,

Attention dmoluc

Petite modification pour l'emploi du 'select case
pour éviter les doublons (1er janvier et 11 janvier par exemple)
ferait "111" à chaque fois.


'...

Bonjour,

A Progelec

Exact , mais on peut faire alors...


Dim ferie As String

Ferie = Trim(Str(m)) & Trim(Str(j))

Bonsoir,

A voir ton code et à vérifier


For l = 1 To 39

MSFlexGrid1.Row = l
MSFlexGrid1.Col = B
MSFlexGrid1.CellBackColor =...

... et remplacer tes 'elseif par un 'select case beaucoup plus performant



Private Sub DTPicker1_Click()
Dim D As Date, W As String
Dim h As Integer, m As Integer, j As Integer, fJourFerie,...

Bonjour,

Une remarque apprend à coder en retrait pour rendre ton code plus lisible
Exemple ci-dessous



Private Sub DTPicker1_Click()
Dim D As Date, W As String
Dim h As Integer, m As...