Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'insertion flexgrid Dim icolonne As Integer Dim qligne As Integer Dim HFlex As MSHierarchicalFlexGridLib.MSHFlexGrid HFlex.Row = 0 For icolonne = 0 To 1 'je l'initialise à 2 colonnes With HFlex .Col = icolonne .ColWidth(0) = 3500 'largeur des colonnes .ColWidth(1) = 3600 .ColAlignment(icolonne) = 1 .CellAlignment = 1 .AllowUserResizing = flexResizeNone Select Case icolonne Case 0 .Font.Size = 10 ' titre des colonnes .Text = "Nom du proriétaire" Case 1 .Font.Size = 10 .Text = "Tantième" End Select End With Next icolonne HFlex.Rows = qligne + 1 'qligne=nbre ligne du ' recordset rs4.MoveFirst Do Until rs4.EOF For I = 0 To qligne - 1 For iLigne = 1 To 1 For icolonne = 0 To 1 HFlex.Row = I + 1 HFlex.Col = icolonne HFlex.Text = rs.Fields(icolonne) Next icolonne Next iLigne Next I Loop