2 additions dans une macro

bonjour,

j ai fait une petite macro pour faire des moyennes mais la seconde addition marche pas.

Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(1).Select

Cells(55, 5) = Cells(55, 5) + Cells(4, 5)
Cells(55, 6) = Cells(55, 6) + Cells(4, 6)

Cells(55, 2) = Cells(55, 2) + 1

End Sub

voila, la premiere s incremente bien de la valeur de la case (4,5) mais la seconde, s'incremente de n'importe quoi.

Et la derniere addition s 'incremente bien de +1 a chaque fois.

Alors la question est:

comment fait on pour avoir 2 ou plus additions, multiplications, etc.. dans une meme macro..

ca doit etre possible je suppose...

merci les amis

eric

voila le prog:

https://www.excel-pratique.com/~files/doc/Lanceur_de_Des2.xls

Salut le forum

Regarde du côté de tes cellules E4 et F4

Cells(4, 5) et Cells(4, 6) elle contiennent une somme

Sur des cellules qui travaillent avec Alea(), dont les valeurs vont changer.

Pour bloquer le calcul automatique

Private Sub CommandButton1_Click()
Application.Calculation = xlManual
  Cells(55, 5) = Cells(55, 5) + Cells(4, 5)
    Cells(55, 6) = Cells(55, 6) + Cells(4, 6)
      Cells(55, 2) = Cells(55, 2) + 1
Application.Calculation = xlAutomatic
End Sub

Mytå

merci mille fois!!!

j aurais jamais trouvé tout seul!!

ca marche nickel, j ai fini ma petite appli en 10 minute par la suite, tu as vu que c etait pas un gros truc d ailleur.

merci encore!!

eric

ps comment on fait pour mettre le message "resolu"?