Multiplication soustraction de cellules en VBA

Bonjour a tous,

J'ai besoin de réaliser l'opération suivante E21+(A25-E22)*A12*A17 lorsque je clique sur un bouton.
J'ai donc fait le code suivant mais ca ne marche pas:

Private Sub CommandButton1_Click()
Sheets("Calcul").Select
Cells(20, 5).value = Application.WorksheetFunction.Sum(Range("A3:A8"))
Cells(21, 5).value = Application.WorksheetFunction.Product(Range("A20:E20"))
Cells(22, 5).value = Application.WorksheetFunction.Sum(Range("B3:b8"))
Cells(23, 5).value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Cells(24, 5).value = Application.WorksheetFunction.Product(Range("E22:A12"))
Cells(25, 5).value = Application.WorksheetFunction.Product(Range("E24:A17"))
Cells(26, 5).value = Application.WorksheetFunction.Sum(Range("E21:E25"))
MsgBox Range("E26")
End Sub

Pouvez vous m'aider SVP
Merci Beaucoup d'avance,
Kinetix

Private Sub CommandButton1_Click()
Dim sh As Sheets, wk As Workbook
Set wk = ActiveWorkbook
wk.Sheets("Calcul").Activate
Cells(20, 5).Value = Application.WorksheetFunction.Sum(Range("A3:A8"))
Cells(21, 5).Value = Application.WorksheetFunction.Product(Range("A20:E20"))
Cells(22, 5).Value = Application.WorksheetFunction.Sum(Range("B3:b8"))
Cells(23, 5).Value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Cells(24, 5).Value = Application.WorksheetFunction.Product(Range("E22:A12"))
Cells(25, 5).Value = Application.WorksheetFunction.Product(Range("E24:A17"))
Cells(26, 5).Value = Application.WorksheetFunction.Sum(Range("E21:E25"))
MsgBox Range("E26")
End Sub
***************************************
Voilà ça marche mieux comme ça

Tout d'abord merci pour ta réponse,
Mais j'ai tout de meme un probleme avec cette ligne:
Cells(23, 5).value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Sachant que le nombre contenue dans A25 est un entié issue d'un textbox et que le nombre contenue dans E22 est un nombre négatif, comment puis je faire pour avoir un résultat correct, car la ca me sort n'importe quoi...
Je voudrai faire par ex: E22(50)+A25(-5) la fonction sum na pas l'air de fonctionner...

Milles Merci d'avance pour votre aide


Kinetix

Tout d'abord merci pour ta réponse,
Mais j'ai tout de meme un probleme avec cette ligne:
Cells(23, 5).value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Sachant que le nombre contenue dans A25 est un entié issue d'un textbox et que le nombre contenue dans E22 est un nombre négatif, comment puis je faire pour avoir un résultat correct, car la ca me sort n'importe quoi...
Je voudrai faire par ex: E22(50)+A25(-5) la fonction sum na pas l'air de fonctionner...

Milles Merci d'avance pour votre aide


Kinetix

La fonction sum ne fonctionne pas avec des données de type text, il faut que tu formate la cellule genante en format numerique.