Discussion :

[bigounet]

Bonjour, j'utilise le calendrier ( http://www.developpez.net/forums/d76...z-base-access/) et je souhaiterais faire apparaître dans le code (Forms!F_Semainier("Jour" & I).Value = " ... Texte...") différente valeur pour "texte".
Je m'explique. Suivant la date, je voudrais que "texte" prenne soit "Férié", soit "congé extra", .......
Je pensais faire comme ceci:

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
If EstFerie(DateC) Then
      Forms!F_Semainier("Jour" & I).Value = "... Férié ..."
      Else
           If EstFerieMil(DateC) Then
           Forms!F_Semainier("Jour" & I).Value = "... congé extra..."
           Else
                If Not (EstWeek(DateC)) Then
                Forms!F_Semainier("Jour" & I).Value = "... WE ..."
                Else
                     If EstConge(DateC) Then
                     Forms!F_Semainier("Jour" & I).Value = "... Pas de médecin ..."
                     Else
                          Forms!F_Semainier("Jour" & I).BackColor = 14150655
                     End If
                End If
           End If
End If
 
Est-ce c'est correct ?
 
En résumé:
 
If (condition1) then vrai
    else
    if (condition2) then vrai
    else
    if .........

En vous remerciant

[bigounet]

en cherchant par moi-même, j'y suis arrivé avec ce code:

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
If EstFerie(DateC) Then
      Forms!F_Semainier("Agenda" & I).BackColor = 10079487
      Forms!F_Semainier("Jour" & I).Value = "             ... Férié ..."
      Else
        Forms!F_Semainier("Jour" & I).BackColor = 14150655
        Forms!F_Semainier("Agenda" & I).BackColor = -2147483624
        If EstFerieMil(DateC) Then
        Forms!F_Semainier("Agenda" & I).BackColor = 10288294
        Forms!F_Semainier("Jour" & I).Value = "             ... Férié Mil..."
        Else
          Forms!F_Semainier("Jour" & I).BackColor = 14150655
          Forms!F_Semainier("Agenda" & I).BackColor = -2147483624
          If Not (EstWeek(DateC)) Then
          Forms!F_Semainier("Jour" & I).BackColor = 10079487
          Forms!F_Semainier("Jour" & I).Value = "              ... WE ..."
          Else
            Forms!F_Semainier("Jour" & I).BackColor = 14150655
            Forms!F_Semainier("Agenda" & I).BackColor = -2147483624
            If EstConge(DateC) Then
            Forms!F_Semainier("Jour" & I).BackColor = 16764159
            Forms!F_Semainier("Jour" & I).Value = "     ... Pas de médecin ..."
            Else
              Forms!F_Semainier("Jour" & I).BackColor = 14150655
              Forms!F_Semainier("Agenda" & I).BackColor = -2147483624
            End If
          End If
       End If
    End If