Copier,coller dans une msflexgrid

Question

Copier,coller dans une msflexgrid

Signaler

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

Afficher la suite

A voir également:

Copier,coller dans une msflexgrid
Macro excel copier coller cellule dans une autre feuille ✓ - Forum - Visual Basic
Excel vba copier coller plusieurs lignes - Forum - Visual Basic
Copier coller javascript - Forum - Javascript / DHTML
Python copier coller fichier - Forum - Python
Copier coller formule vba - Forum - Visual Basic 6

1 réponse

Posez votre question

Nektanebos · Answer 1 · 2003-01-05T17:18:28+0100

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

Votre réponse