Copier,coller dans une msflexgrid

filotto Messages postés 91 Date d'inscription dimanche 5 janvier 2003 Statut Membre Dernière intervention 21 août 2011 - 5 janv. 2003 à 10:27
Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003 - 5 janv. 2003 à 17:18
Salut à tous,
Comment faire pour copier,coller plusieurs cellules à la fois comme dans le tableur d'excel.
Gérard

1 réponse

Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
5 janv. 2003 à 17:18
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
0
Rejoignez-nous