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
Forum
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 VB.NET
Detecteur copier coller gratuit
✓
-
Forum VB.NET
Vba copier une feuille dans un autre classeur sans ouvrir
-
Forum Visual Basic
Msflexgrid
✓
-
Forum Visual Basic 6
Macro copier coller
-
Forum VBA Office (Excel, Word ...)
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
Discussions similaires
[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash
-
30 juin 2005 à 16:32
cokinoumasterflash
-
30 juin 2005 à 16:54
Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè
talined
-
20 févr. 2012 à 22:48
ucfoutu
-
21 févr. 2012 à 20:25
Vba coller valeur cellule sur une autre cellule avec variable
walyddu59
-
14 mai 2012 à 09:39
walyddu59
-
14 mai 2012 à 13:19
copier cellule dans autre feuille (vba)
gnosis35
-
27 mai 2004 à 17:24
HFanny
-
28 mai 2004 à 08:27
copier le contenu d'une feuille excel dans une autre
xzonz
-
12 oct. 2005 à 22:59
aieeeuuuuu
-
17 oct. 2005 à 14:30
Rejoignez-nous