Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1473 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier-coller plusieurs fois une sélection

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

copier-coller plusieurs fois une sélection

n°1203250
couleur ca​fe
la vie, le monde, les gens ...
Posté le 20-09-2005 à 13:27:01  profilanswer
 

Voilà, en VBA sous Access, ja fais appel à un classeur Excel dans lequel j'aimerai pouvoir copier coller ma sélection de cellule les unes à la suite des autres. J'ai donc écrit ça :
 

Code :
  1. Public Sub CalculerStatClient(fichier As String, liste As ListBox)
  3.     On Error GoTo Quit:
  4.    
  5.     Dim DonneesClient As Range, XlsApp, varItm As Variant
  7.     Set XlsApp = CreateObject("Excel.Application" )
  8.     XlsApp.Visible = True
  9.     XlsApp.UserControl = True
  10.    
  11.     XlsApp.Workbooks.Open fileName:=fichier
  12.     XlsApp.Sheets("Statistiques" ).Select
  13.     XlsApp.Range("A3:AE15" ).Select
  15.     'calcul de i
  17.     For j = 1 To i
  18.         Range("A2" ).Offset(14 * i, 0).Select
  19.         ActiveSheet.Paste
  20.     Next j
  21.    
  22.     lsApp.CutCopyMode = False
  23.     XlsApp.Visible = True
  24.    
  25.     Set DonneesClient = Nothing
  26.     Set XlsApp = Nothing
  27.     Exit Sub
  28.    
  29. Quit:
  30.     XlsApp.Quit
  31.    
  32. End Sub


 
Mais quend je regarde le résultat dans ma feuille Excel, seul le dernier copié-collé a été pris en compte.
Est-ce quelqu'un voit pourquoi ?


Message édité par couleur cafe le 20-09-2005 à 13:27:24
mood
Publicité
Posté le 20-09-2005 à 13:27:01  profilanswer
 

n°1203584
couleur ca​fe
la vie, le monde, les gens ...
Posté le 20-09-2005 à 16:34:21  profilanswer
 

ok  j'ai trouvé. il faut remplacer  
 

Code :
  1. Range("A2" ).Offset(14 * i, 0).Select


 
par  
 

Code :
  1. 'nouvelle variable ind as Integer
  2. ind = 14 + 13 * j
  3. Range("A2" ).Offset(ind, 0).Select


 
et là ça marche ... presque


Message édité par couleur cafe le 20-09-2005 à 16:35:11
n°1203588
galopin01
Posté le 20-09-2005 à 16:37:16  profilanswer
 

i ne change pas (et la sélection non plus) donc tous les collages se font :
Range("A2" ).Offset(14 * i, 0)
??
A+


---------------
roger

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier-coller plusieurs fois une sélection

 

Sujets relatifs
Selection Aléatoiresélection multiple avec activecell
connection de plusieurs tables avec ado (access)L'indice n'appartient pas à la sélection
probleme copier fichier depuis urlPage qui ne se charge qu'une fois !
Copier par macro une page d'un userformBatch --> regrouper plusieurs fichiers texte en un seul
[Resolu]creer plusieurs graph a partir du meme tableau excel? 
Plus de sujets relatifs à : copier-coller plusieurs fois une sélection

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.043 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR