Bonjour,
J'ai réalisé un planning dont voici, en partie, le code :
Je voudrais que si la taille du planning (entre Deb1 et Fin1 qui sont des valeurs récupérées pas un request.form) dépasse la taille de l'écran, qu'un ascenseur permette de scroller l'intérieur du tableau uniquement.
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47 ...... rs.open txtSQL, DsnODBC %> <table border="4" width="100%"> <tr> <td nowrap rowspan="2" bgcolor="white"> <font face="arial" color="black" size="2"> <strong> Noms </strong> </font> </td> </tr> <tr> <% ' Entête des colonnes (dates) Deb1 = Str_Debut Fin1 = Str_Fin set rs1 = Server.CreateObject("ADODB.Recordset") Do while DateDiff("d", Deb1, Fin1) >= 0 %> <td nowrap align="center" bgcolor="<%=NewColor%>"> <font face="arial" color="black" size="2"> <strong> <%=Day(Deb1) & "-" & Month(Deb1)%> </strong> </font> </td> <% Deb1 = DateAdd("d", 1, Deb1) Loop set rs1 = Nothing %> </tr> <% do while not rstemp.EOF %> <td align="left" bgcolor="white" nowrap> <font face="arial" color="black" size="2"> <strong> <%=rs("Nom")%> </strong> </font> </td> Affichage des <td> avec des couleurs différents si congé, maladie, présent, ...
En bref, je voudrais pouvoir scroller las cases de couleur en conservant les noms et las dates (c'est à dire les titres en ligne et en colonne) fixes.
J'ai vu la notion de overflow, mais comme la taille de mon tableau est dynamique, je ne sais pas faire.
Quelqu'un pour m'aider ?
Merci
Partager