Private Sub Form_Load()
Dim i As Integer
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.RowHeight = "300"
DataGrid1.Columns(i).Width = "2000"
DataGrid1.DefColWidth = DataGrid1.Columns(0).Width
Next i
End Sub
Ca ne fonctionne pas. En fait ce code fonctionne avec une flexgrid.
J'ai mis ton code mais il me souligne tous les DataGrid1 qu'ils trouvent comme cela ne fait pas partie de ses propriétés