Bonjour à tous,

Je désire faire passer des formules Excel en code VBA (ralentissent le code) et comme je suis débutant, je rencontre des difficultés.
Dans la première partie, j’arrive au résultat final mais en passant par des cellules intermédiaires, alors que le but serait d’aller directement au résultat.
La deuxième partie ne fonctionne pas du tout.
Si quelqu’un pouvait me résoudre mon petit problème se serait super.

Merci par avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub testKK()
 
'premiere partie
 
Range("AC1").Value = WorksheetFunction.Average(Range("AC20:AC49"))
Range("AD1").Value = WorksheetFunction.Average(Range("AC50:AC79"))
Range("AE1").Value = WorksheetFunction.Average(Range("AC20:AC79"))
Range("AF1").Value = WorksheetFunction.DevSq(Range("AC20:AC49"))
Range("AG1").Value = WorksheetFunction.DevSq(Range("AC50:AC79"))
Range("AH1").Formula = "=58*((30*(ac1-ae1)^2)+(30*(ad1-ae1)^2))/(af1+ag1)"
Range("AH1").Value = Range("AH1").Value
 
'deuxieme partie
 
'Worksheets("Sheet1").Range("J1").Formula = "=DECALER(f18;EQUIV(MAX(F20:F90);F20:F90;0);1)" 'en francais
Range("j1").Formula = "=offset(max(f20:f79);match(MAX(F20:F90);F20:F90;0);1)" 'en anglais
Range("j1").Value = Range("j1").Value
 
 
End Sub