MSFLEXGRID avec VB6

exemple:
pour l'en tete:
Sub tete_affich()
Affiche_Donnee.Enabled = False
Affiche_Donnee.ColWidth(0) = 100
Affiche_Donnee.Clear


Affiche_Donnee.ColWidth(1) = 1500
Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 1
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Date Jour"

Affiche_Donnee.ColWidth(2) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 2
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur Départ"

Affiche_Donnee.ColWidth(3) = 1800
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 3
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Compteur d'arrivée"

Affiche_Donnee.ColWidth(4) = 1600
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 4
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Parcours (Km)"

Affiche_Donnee.ColWidth(5) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 5
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Littre / 100 Km"

Affiche_Donnee.ColWidth(6) = 2000
'Affiche_Donnee.Row = 0
Affiche_Donnee.Col = 6
Affiche_Donnee.CellTextStyle = flexTextRaised
Affiche_Donnee.CellFontBold = True
Affiche_Donnee.Text = "Observation"
End Sub

Merci deja pour votre reponse

mais je disais pour l'affaiché les donner ds le MSHFlexgrid

, ce que je vois l'exemple ci-dessus concerne que les entetes

merci

le composant MSHFlexgrid.ocx, je ne l'ai pas dans notre vb6

salut, je ne sais pas si tu as eu les reponses a tes interrogations mais voici comment je fait
En supposant que le MSFLEXGRID s'appelle MSFLEXGRID1

Dim Ligne_en_Cours as Integer, Colonne_en_Cours as Integer ' Les lignes et colonnes du MSFLEXGRID1
Dim Requete As String, Mon_RecordSet As RecordSet

' d'abord il faut ouvrir la lbase de données
Set Ma_Base = OpenDatabase('Chemin Complet de la Base')

Requete = "Select * From Table;"
Set Mon_RecordSet = Ma_Base.OpenRecordset(Requete, dbOpenDynaset)

Ligne_en_Cours =0

While not Mon_RecordSet.EOF
Colonne_en_Cours = 0
MSFLEXGRID1.Row = Ligne_en_Cours
MSFLEXGRID1.Col = Colonne_en_Cours

MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ1")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ2")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ3")
Colonne_en_Cours = Colonne_en_Cours + 1
MSFLEXGRID1.Text = Mon_RecordSet.Field("Champ4")
Colonne_en_Cours = Colonne_en_Cours + 1
ETC....

Mon_RecordSet.MoveNext
Ligne_en_Cours = Ligne_en_Cours + 1
Wend

Mon_RecordSet.Close


Voila si tu as d'autres question je peux t'aider
A+.
Laurent