copier par macro

[J.Louis]

Bonjour le forum,

est ce possible dans une macro de faire une copie particulière

feuille A copier de A10 a dernière cellule occupée
copier de C10 a dernière cellule occupée ( si colonne A fait 55 lignes, le C en aura autant)

et de coller le tout sur 2 colonnes en Feuille B

ce code sera lié a un commandbutton

ça serait génial si ça peut se faire
merci d'avance

JL

 

[galopin01]

Re :
J'y croyais pas trop mais j'ai réussi à faire le ménage sur place :
Inconvénient : Lescolonnes F et G sont maintenant réservée.

La macro suivante génère un temps de traitement assez long :
Si c'est possible (en fonction de la taille réelle de ton tableau) remplace le F65536 (en gras) par F1000 ou F10000 le gain est énorme.

Sub Test()
Application.ScreenUpdating = False
i = ActiveSheet.Range('A65536').End(xlUp)(2).Row
ActiveSheet.Range('A7:A' & i).Copy
Worksheets('Infos').Range('F15').PasteSpecial Paste:=xlPasteValues
k = Worksheets('infos').Range('F65536').End(xlUp)(2).Row
For j = k To 15 Step -1
If Worksheets('Infos').Cells(j, 6).Value = '' Then Worksheets('Infos').Cells(j, 6).Delete Shift:=xlUp
Next
ActiveSheet.Range('C7:C' & i).Copy
Worksheets('Infos').Range('G15').PasteSpecial Paste:=xlPasteValues
For j = k To 15 Step -1
If Worksheets('Infos').Cells(j, 7).Value = '' Then Worksheets('Infos').Cells(j, 7).Delete Shift:=xlUp
Next
ActiveSheet.Range('A7:A' & i).Select
End Sub

A+

Message édité par: galopin01, à: 28/02/2005 08:28

 

[J.Louis]

Re tout le monde
re Galopin

Mille merci c du top !!!!

A une prochaine

JL