dim w as integer
dgv.autosize = true
w = dgv.width
dgv.autosize = false
'permet d'afficher les scrollbars
dgv.width = w
DataGridresult.AutoSize = True
' on remplit le dgv
' on prend les mesures
w = DataGridresult.Width
h = DataGridresult.Height
DataGridresult.AutoSize = False
DataGridresult.Width = w
If h > ClientSize.Height Then
' pour permettre le vertical scrollbar
DataGridresult.Height = ClientSize.Height - 50
Else
DataGridresult.Height = h
End If