Discussion :

[fabrice57100]

Bonjour ,

Je crée un planning en me basant sur le super tutoriel "Gestion d'un planning", j' essaye d' y intégrer les jours féries et les congés.
J ' ai crée un table T_JoursFeries avec un champ date DateFeriee comprennant les dates du 06/08/18 au 20/08/18 ainsi que le 1er novembre et un plage en décembre.
T_JoursFeries :



J' ai donc rajouté une condition au code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 varX = DLookup("[DateFeriee]", "[T_JoursFeries]", "[DateFeriee] =  " & Chr(35) & vardatetraitee & Chr(35))
 
    If vardatetraitee = varX Then
 
           Forms("F_Planning").Controls("lbljour" & intCompteur).BackColor = 12632256
                  '
    End If

Lorsque le planning génère les étiquettes de date il y a un bug: certaines dates sont "oubliées"et ne sont pas grisées. + le 1er novembre, par contre la plage décembre se grise nickel.



Quelqu’un voit-il ou j 'ai fait faux ?

je met le code ci dessous en un peu plus complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 For intCompteur = 1 To 31
 
        Forms("F_Planning").Controls("lbljour" & intCompteur).Caption = Format(vardatetraitee, "ddd dd mmm")
        ' Changement couleur de l'étiquette
 
        If Day(vardatetraitee) = 1 Then
            If lngCouleurfond = 10079487 Then
                lngCouleurfond = 8454016
            Else
 
                lngCouleurfond = 10079487
            End If
 
        End If
        'End If
     Forms("F_Planning").Controls("lbljour" & intCompteur).BackColor = lngCouleurfond
 
     If Weekday(vardatetraitee) = vbSaturday Or Weekday(vardatetraitee) = vbSunday Then
         Forms("F_Planning").Controls("lbljour" & intCompteur).BackColor = 8454143
       ' Colorise l'étiquette de date
     End If
 
   varX = DLookup("[DateFeriee]", "[T_JoursFeries]", "[DateFeriee] =  " & Chr(35) & vardatetraitee & Chr(35))
 
    If vardatetraitee = varX Then
 
           Forms("F_Planning").Controls("lbljour" & intCompteur).BackColor = 12632256
 
    End If
 
        vardatetraitee = DateAdd("d", 1, vardatetraitee)
 Next

[Jeannot45]

Il faudrait modifier ta ligne DLookup comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   varX = DLookup("[DateFeriee]", "[T_JoursFeries]", "[DateFeriee] =  #" & Format(varDateTraitee, "mm/dd/yy") & "#")

Bonne continuation

[fabrice57100]

MERCI
Jeannot d' avoir pris de ton temps pour corriger mon problème, cela fonctionne nickel j avais déjà essayé avec format mais cela ne fonctionnait pas vu que j' avais pas mis de # ....