Msflexgrid -changer le nom des colonnes ?-

Private sub Form_Load()



	Call CenterCells

	Call SizeCells

	Call Titles

	Call FillCells



End Sub





Private Sub CenterCells



	Dim Column As Integer



	For column 0 To 7

		myGrid.Col = Column

		myGrid.ColAlignment(Column) = flexalignCenterCenter

	Next Column

End Sub





Private Sub SizeCells()



	Dim Column As Integer



	For column 0 To 7

		myGrid.ColWidth(column) = 1100

	Next Colulmn

End Sub



Private Sub Titles



	myGrid.Row = 0

	myGrid.Col = 0

	myGrid.Text = "Titre1"

	myGrid.Col = 1

	myGrid.Text = "Titre2"

	myGrid.Col = 2

	myGrid.Text = "Titre3"

	myGrid.Col = 3

	myGrid.Text = "Titre4"



..... jusque la dernière colonne



End Sub



Private Sub FillCells()



	ici tu retrouves le code récupérant les données de la BDDonnées

	Tu dois veiller à commencer ta boucle de remplissage à partir de la row 1 pour ne pas écraser la row des titres.



End sub