Table créée dynamiquement

**Vanessa48** · 06/03/2012, 17h25

Dans une appli web je créé une table dynamiquement (pour faire des plannings)
Est-il possible de cliquez sur une cellule pour changer la couleur ?
Merci pour votre aide

**Er3van** · 06/03/2012, 18h02

Avec aussi peu d'éléments ça va être difficile de t'aider.
En partant du postulat où tu utilises une DataGridView, tu peux utiliser l'évènement OnClick de ta DataGridViewCell.

**Vanessa48** · 07/03/2012, 17h38

Je n'utilise pas de DataGridView, j'utilise Table d'asp et dynamiquement je créé une table de 8 lignes et 16 colonnes.
Voici mon 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
Sub creeLundi()
        Using connexion As OleDbConnection = Me.DBConn
            Dim DBCommand As OleDbCommand
            'Objet Dataset
            Dim DSPageData As New DataSet
            'connection a la base de données
            DBCommand = New OleDbCommand("Select * From Couleur_emp", connexion)
            'objet DataAdapter
            Dim myOleDbDataAdapter As New OleDbDataAdapter(DBCommand)
            myOleDbDataAdapter.Fill(DSPageData, "ListEmploye")
            Dim NBEmp As Integer = DSPageData.Tables("ListEmploye").Rows.Count
            Session("NbEmp") = DSPageData.Tables("ListEmploye").Rows.Count
            ' Total number of rows.
            Dim rowCnt As Integer
            ' Current row count
            Dim rowCtr As Integer
            ' Total number of cells (columns).
            Dim cellCtr As Integer
            ' Current cell counter.
            Dim cellCnt As Integer
            rowCnt = Session("NbEmp") + 2
            cellCnt = 18
            For rowCtr = 1 To rowCnt
                Dim tRow As New TableRow()
                Session("LeNum") = rowCtr
                For cellCtr = 1 To cellCnt
                    Dim tCell As New TableCell()
                    'tCell.Text = "Row " & rowCtr & ", Cell " & cellCtr
                    'Add new TableCell object to row.
                    tCell.BackColor = Drawing.Color.AliceBlue
                    If rowCtr > 1 And rowCtr < Session("NbEmp") + 2 Then
                        Dim ImbG As New Button()
                        If cellCtr = 1 Then
                            tCell.Width = 100
                            Dim voir As Integer = rowCtr
                            'VoirEmploye()
                            'tCell.Text = Session("LePrenom")
                            'tCell.Text = "employé " & rowCtr - 1
                            ImbG.ID = "ImbG" & rowCtr - 1
                            ImbG.Text = "employé " & rowCtr - 1
                            AddHandler ImbG.Command, AddressOf Button_Command
                            tCell.Controls.Add(ImbG)
                        Else
                            'cellules heures du planning
                            tCell.Width = 40
                            'VoirParaf()
                            tCell.ID = Session("LeParaf")
                            Select Case rowCtr
                                Case 2
                                    Select Case cellCtr
                                        Case 2
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H8"
                                        Case 3
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H9"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "9h30"
                                        Case 4
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H10"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 5
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H11"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 6
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H12"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 7
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H13"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 8
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H14"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "14h"
                                        Case 9
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H15"
                                        Case 10
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H16"
                                        Case 11
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H17"
                                        Case 12
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H18"
                                        Case 13
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H19"
                                        Case 14
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H20"
                                        Case 15
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H21"
                                        Case 16
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H22"
                                        Case 17
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H23"
                                        Case 18
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "TOT"
                                    End Select
                                Case 3
                                    Select Case cellCtr
                                        Case 2
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H8"
                                        Case 3
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H9"
                                        Case 4
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H10"
                                        Case 5
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H11"
                                        Case 6
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H12"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "12h"
                                        Case 7
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H13"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 8
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H14"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "14h"
                                        Case 9
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H15"
                                        Case 10
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H16"
                                        Case 11
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H17"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "17h"
                                        Case 12
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H18"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 13
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H19"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 14
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H20"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 15
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H21"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 16
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H22"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "22h"
                                        Case 17
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H23"
                                        Case 18
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "TOT"
                                    End Select
                                Case 4
                                    Select Case cellCtr
                                        Case 2
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H8"
                                        Case 3
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H9"
                                        Case 4
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H10"
                                        Case 5
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H11"
                                        Case 6
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H12"
                                        Case 7
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H13"
                                        Case 8
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H14"
                                        Case 9
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H15"
                                        Case 10
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H16"
                                        Case 11
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H17"
                                        Case 12
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H18"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "18h"
                                        Case 13
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H19"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 14
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H20"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 15
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H21"
                                            tCell.BackColor = Drawing.Color.DimGray
                                        Case 16
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H22"
                                            tCell.BackColor = Drawing.Color.DimGray
                                            tCell.Text = "22h"
                                        Case 17
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "H23"
                                        Case 18
                                            'tCell.ID = Session("LeParaf") & "_J1_" & "TOT"
                                    End Select
 
                            End Select
                        End If
                    ElseIf rowCtr = Session("NbEmp") + 2 Then
                        'row Total
                        tCell.BackColor = Drawing.Color.Khaki
                        If cellCtr = 1 Then
                            tCell.Text = "Total"
                        End If
                    Else
                        'cellules titre
                        tCell.Style.Value = "text-align:center"
                        Select Case cellCtr
                            Case 2
                                tCell.Text = "8h"
                            Case 3
                                tCell.Text = "9h"
                            Case 4
                                tCell.Text = "10h"
                            Case 5
                                tCell.Text = "11h"
                            Case 6
                                tCell.Text = "12h"
                            Case 7
                                tCell.Text = "13h"
                            Case 8
                                tCell.Text = "14h"
                            Case 9
                                tCell.Text = "15h"
                            Case 10
                                tCell.Text = "16h"
                            Case 11
                                tCell.Text = "17h"
                            Case 12
                                tCell.Text = "18h"
                            Case 13
                                tCell.Text = "19h"
                            Case 14
                                tCell.Text = "20h"
                            Case 15
                                tCell.Text = "21h"
                            Case 16
                                tCell.Text = "22h"
                            Case 17
                                tCell.Text = "23h"
                            Case 18
                                tCell.Text = "Total"
                        End Select
 
                    End If
                    tCell.Height = 10
                    tRow.Cells.Add(tCell)
                Next
                ' Add new row to table.
                Jour_lundi.Rows.Add(tRow)
            Next
        End Using
    End Sub

Dans la premiere colonne j'ai mis un bouton me permettant d'afficher une pop-up sur laquelle je pourrai modifier la couleur et le texte de certaines cellules, mais c'est pas super

En fait je prefererais cliquer sur un cellule pour pouvoir changer la couleur ou le texte

Table créée dynamiquement

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager