Discussion :

[pascal4782]

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

[Touffe54]

Salut Pascal,

Si tu veux éviter de passer par des cellules intermédiaires, il faut que tu déclares des variables :

Code :

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

1
2
3
4
5
dim Moy2049 as Single
dim Moy5079 as Single
dim Moy2079 as Single
dim DS2049 as Single
dim DS5079 as Single

Ainsi ton code devient :

Code :

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

1
2
3
4
5
6
Moy2049 = WorksheetFunction.Average(Range("AC20:AC49"))
Moy5079 = WorksheetFunction.Average(Range("AC50:AC79"))
Moy2079 = WorksheetFunction.Average(Range("AC20:AC79"))
DS2049 = WorksheetFunction.DevSq(Range("AC20:AC49"))
DS5079 = WorksheetFunction.DevSq(Range("AC50:AC79"))
Range("AH1") = 58*((30*(Moy2049-Moy2079 )^2)+(30*(Moy5079-Moy2079 )^2))/(DS2049+DS5079)

Pour la deuxième partie, je suis désolé, mais je ne comprends pas ton programme. Cà sert à quoi ?

[pascal4782]

Bonjour à toi Touffe54 et les autres bien sur,

Un grand merci pour la première partie. Fonctionne à merveille.

Pour la deuxième partie, la fonction « DECALER » me permet de chercher une valeur dans une plage non rangée chronologiquement (colonne G) correspondant à une valeur Max en colonne F.

La fonction Excel utilisée.

=DECALER(F19;EQUIV(MAX(F20:F90);F20:F90;0);1)

Merci par avance.

[pgz]

Bonjour.

Tu peux écrire

Code :

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

...Formula = "=OFFSET(F19,MATCH(MAX(F20:F90),F20:F90,0),1)"

ou bien, si ta version linguistique est le français,

Code :

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

...FormulaLocal = "=DECALER(F19;EQUIV(MAX(F20:F90);F20:F90;0);1)"

.

Cordialement,

PGZ

[pascal4782]

Un grand merci à vous tous, tout fonctionne a merveille.

Cordialement