simplification d'un code

Version imprimable

Bonjour
j'aimerais simplifier le code ci-dessous car j'ai à le répéter un certain nombre de fois
Quelqu'un aurait il une solution ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sheets("Feuil1").Select
    Range("A1:cj1").Select
    Selection.Copy
    Range("A2:A4000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

merci:?

29/04/2008, 09h33
Le Pierre

bonjour

place tout ton code dans une procédure que tu nommerais par exemple : "sub CopierSpécial()"
ensuite dans ta procédure principale tu appelerais ta procédure CopierSpécial chaque fois que tu en aurais besoin.

Si tu dois traiter des feuilles autre que Feuil1, il faut enlever ton "Sheets("Feuil1").Select" et le placer dans ta procédure principale avant l'appel à CopierSpécial
à plus
29/04/2008, 10h04
lolo93

re

merci, je ne suis pas super calé en vba
comment fais tu appelles à cette procedure
J'ai entendu parler de boucle, peut on le faire sur ce code ?

merci

Bonjour

Si je peux me permettre
J’ai éclairci et optimisé un peu ton code

Merci Le Pierre pour le nom de procédure je n’aurais pas trouvé mieux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CopierSpecial()
    'copie sur 4000 ligne
  Range("A1:cj1").Copy
  ActiveSheet.Paste Destination:=Range("A2:A4000")
    'recalcul la feuille
  ActiveSheet.Calculate
    'Surecriture en valeurs de la première colonne
  Range("A2:A4000").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
  'desactive le mode copy/cut
  Application.CutCopyMode = False
End Sub

Que tu appel de cette manière

Code:

1
2
3
4
5
6
7
8
 
Sub principale()
  '...
  '...
  Sheets("Feuil1").Select
  CopierSpecial
  '...
End Sub

C’est plus clair j’espère.

29/04/2008, 11h38
lolo93

merci à tous les deux