Discussion :

[lolo93]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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

[zyhack]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C’est plus clair j’espère.

[lolo93]

merci à tous les deux