kinetix
Messages postés30Date d'inscriptionlundi 16 août 2004StatutMembreDernière intervention 3 mai 2006
-
25 août 2005 à 11:58
Diegoch
Messages postés56Date d'inscriptionvendredi 30 mars 2001StatutMembreDernière intervention 7 septembre 2011
-
31 août 2005 à 13:47
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:
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 25 août 2005 à 12:47
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
kinetix
Messages postés30Date d'inscriptionlundi 16 août 2004StatutMembreDernière intervention 3 mai 2006 25 août 2005 à 13:27
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...
kinetix
Messages postés30Date d'inscriptionlundi 16 août 2004StatutMembreDernière intervention 3 mai 2006 25 août 2005 à 13:58
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...