Copier,coller dans une msflexgrid

Question

Sujet Précédent Sujet Suivant

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

A voir également:

Copier,coller dans une msflexgrid
Macro copier coller valeur dans une autre feuille ✓ - Forum - Visual Basic
Copier coller javascript - Forum - Javascript / DHTML
Excel vba copier coller plusieurs lignes - Forum - Visual Basic
Copier coller python - Forum - Python
Programme python a copier coller - Guide

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