High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Visual Basic
Sujet Précédent
Sujet Suivant
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
Afficher la suite
A voir également:
Copier,coller dans une msflexgrid
Vba copier coller dans une autre feuille
✓
-
Forum Visual Basic
Detecteur copier coller gratuit
✓
-
Forum VB.NET
Copier coller python
-
Forum Python
Copier coller
✓
-
Forum IRC
Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè
✓
-
Forum Visual Basic 6
1
réponse
Réponse 1 / 1
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
Rejoignez-nous
A voir également
Copier cellule dans autre feuille (vba)
AIDE COPIER COLLER AUTOMATIQUE sur nouvelle feuille ( macro - VBA) sur excel
Programmer un copier coller couper
Msflexgrid
Copie de fichier, mot à mot, sans doublon