Fonction "DECALER" en VBA

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:

---

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

---

Salut Pascal,

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

Code:

---

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:

---

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 ?

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.

Bonjour.

Tu peux écrire

Code:

---

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

---

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

Code:

---

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

---

.

Cordialement,

PGZ

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

Cordialement