MÉMORISER LES LARGEURS DE COLONNES DBGRID, DATAGRID

Private Sub DBGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
    On Error Resume Next
    Dim Col() As Column
    Dim NumCols As Integer
    NumCols = DBGrid1.Columns.Count
    ReDim Col(NumCols)
     NomApps$ = "MonApp"    'nom general application
    Section$ = "Largeur_Colonnes_Grilles" 
    For i = 0 To NumCols - 1
        clef$ = "Largeur_Colonne" & i  
        Set Col(i) = DBGrid1.Columns(i)
        SaveSetting _
        NomApps$, Section$, clef$, Col(i).Width
    Next i
End Sub

Public Function Largeur_Colonnes()
    On Error Resume Next
    Dim Col() As Column
    Dim NumCols As Integer
    NumCols = DBGrid1.Columns.Count
    ReDim Col(NumCols)
    NomApps$ = "MonApp"  
    Section$ = "Largeur_Colonnes_Grilles" 
    For i = 0 To NumCols - 1
        clef$ = "Largeur_Colonne" & i   
        largeur = _
        GetSetting(NomApps$, Section$, clef$, valeur)
        If largeur = "" Then Exit For
        Set Col(i) = DBGrid1.Columns(i)
        Col(i).Width = largeur
    Next i
End Function