FIGER UN ENTÊTE DE GRIDVIEW AVEC DÉBORDEMENT HORIZONTAL

Protected Sub FreezeGridviewHeader(ByRef GV As GridView, ByRef TableGV As Table, ByRef PanelGV As Panel)

        ' ATTENTION : penser à placer le EnableViewState (directement dans la page html) à False du gridview sur lequel vous 
        'appliquez cette sub pour éviter undécalage entre le sélect et la ligne sélectionnée

        TableGV.Rows.Add(GV.HeaderRow)
        
        TableGV.Rows(0).ControlStyle.CopyFrom(GV.HeaderStyle)

        TableGV.CellSpacing = 3
        TableGV.CellPadding = 5

        TableGV.Rows(0).Cells(0).Text = "Items : " & NbrItemsAttenteLB.Text
        TableGV.Rows(0).Cells(0).Width = Unit.Pixel(70)
        TableGV.Rows(0).Cells(0).BorderStyle = BorderStyle.Inset
        TableGV.Rows(0).Cells(0).BorderWidth = Unit.Pixel(1)


        Dim count As Integer = 1

        Dim tailleTableau As Integer = 0
        Dim NbrCellVisibles As Integer = 0
        For count = 1 To GV.HeaderRow.Cells.Count - 1
            If GV.Columns(count).Visible = "False" Then
                TableGV.Rows(0).Cells(count).Visible = "False"
            Else
                NbrCellVisibles = NbrCellVisibles + 1
                TableGV.Rows(0).Cells(count).Width = GV.Columns(count).ItemStyle.Width
                TableGV.Rows(0).Cells(count).BorderStyle = BorderStyle.Inset
                TableGV.Rows(0).Cells(count).BorderWidth = Unit.Pixel(1)
                tailleTableau = tailleTableau + Convert.ToInt32(TableGV.Rows(0).Cells(count).Width.Value) + Convert.ToInt32(TableGV.Rows(0).Cells(count).BorderWidth.Value)

            End If
        Next
        TableGV.Width = Unit.Pixel(tailleTableau + (TableGV.CellPadding + TableGV.CellSpacing) * NbrCellVisibles * 2)

    End Sub