Copier,coller dans une msflexgrid

Question

Salut à tous,
Comment faire pour copier,coller plusieurs cellules à la fois comme dans le tableur d'excel.
Gérard

Nektanebos · Answer

Dim SelRows As Integer
    Dim SelCols As Integer
    Dim SelStartRow As Integer
    Dim SelStartCol As Integer
    Dim RowBeg As Integer
    Dim ColBeg As Integer
    
    If (grdSales.HighLight) Then
        SelStartRow = grdSales.RowSel
        SelStartCol = grdSales.ColSel
        RowBeg = grdSales.Row
        ColBeg = grdSales.Col
        
        For SelRows = RowBeg To SelStartRow
            For SelCols = ColBeg To SelStartCol
                grdSales.Row = SelRows
                grdSales.Col = SelCols
                
                listbox1.additem(grdSales.Text)
            Next SelCols
        Next SelRows
        
        grdSales.Row = RowBeg
        grdSales.Col = ColBeg
        grdSales.RowSel = SelStartRow
        grdSales.ColSel = SelStartCol
    End If

ma grille s'appelle grdSale et tu dois ajouter un listbox (listbox1)

ensuite tous les éléments séléctionné ds le tableau seront dans la list et tu n'auras qu'a récuprer ces valeurs