Recopier les formule d'une ligne (D38 à AD38) jusqu'a la ligne 57 (D57 à AD 57

Broch002 à dit:

Bonjour le forum,

J'ai un code de recopie vers le bas, mais ils est très long à recopier et sollicite énormément le processeur.

Le Voici
Sub copie()
Application.Calculation = xlManual
Range("D38:AD57").FormulaLocal = Range("D38:AD38").FormulaLocal
Application.Calculation = xlAutomatic
End Sub

Avez-vous un code qui soit rapide et ne sollicitant trop pas le processeur.

Les formules ne sont pas des formules extrêmement complexes exemple:

Range("AB38").FormulaR1C1 = _
"=IFERROR(IF(R2C5=0,"""",IF(R12C2=""Potentiel Mois"",VLOOKUP(RC3,'[Stat total SECTEUR30.xlsm]Stat annuelle 2'!C2:C50,35,0)+R[-7]C[-2],IF(R12C2=""facturé"",VLOOKUP(RC3,'[Stat total SECTEUR30.xlsm]Stat annuelle 2'!C2:C50,35,0)))),"""")"

Cordialement.

Broch002

Cliquez pour agrandir...

Efgé à dit:

Bonjour Broch002
Sans pouvoir faire de tests, j'ai juste une question:
Pourquoi étendre tes formules avec FormulaLocal et poser la première formule en FormulaR1C1 ?
Si tu as un excel Français, tu devrais mette ta première formule en FormulaLocal.
Cordialement

Cliquez pour agrandir...

Efgé à dit:

Re
D'autre part tu fait, en fin de code
Range("D38:AD57").FormulaLocal = Range("D38:AD38").FormulaLocal
Range("M38:N57").FormulaLocal = Range("M38:N38").FormulaLocal

Alors que le Range Range("M38:N57"). est déja inclus dans le range ("D38:AD57").
Double application des formules en("M38:N57").
Cordialement

Cliquez pour agrandir...