Discussion :

[corinthien]

Bonjour à tous, pourriez-vous m'aider à simplifier ce code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
  Sheets("Férié").Select
  Range("A4:B15").Select
  Selection.Copy
  Sheets("Recap").Select
  Range("Y7").Select
  ActiveSheet.Paste Link:=True
  Range("Y7:Z60").Select
  Selection.Locked = False
  Selection.FormulaHidden = False
  Range("A44").Select

[Pierre Fauconnier]

Salut.

Les Select sont souvent superflus.

Le "paste link:=true" revient à placer en récap!y7 la formule "=férié!a4"...

Tu peux donc avoir le code suivant:

Code :

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

1
2
3
4
5
6
7
  With Worksheets("récap")
    .Range("y7:z18").Formula = "=férié!a4"
    .Range("y7:z60").Locked = False
    .Range("y7:z60").FormulaHidden = False
    .Select
    .Range("a4").Select
  End With

[corinthien]

Merci Pierre et Mercatog, marche nickel…

[mercatog]

Code :

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

1
2
3
4
5
With Sheets("Recap").Range("Y7:Z18")
   .FormulaR1C1 = "='Férié'!R[-3]C[-24]"
   .Locked = False
   .FormulaHidden = False
End With