copier-coller plusieurs fois une sélection

copier-coller plusieurs fois une sélection - VB/VBA/VBS - Programmation

Marsh Posté le 20-09-2005 à 13:27:01    

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
Reply

Marsh Posté le 20-09-2005 à 13:27:01   

Reply

Marsh Posté le 20-09-2005 à 16:34:21    

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
Reply

Marsh Posté le 20-09-2005 à 16:37:16    

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


---------------
roger
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed