Calcule simple sur d'excel en vba

[laclac]

Voici un codage qui fonctionne mais pas du tout

Range("A1").Value = "17,5"
Range("A2").Value = "12,5"
Range("A3").Value = "5"

Range("A4").Value = "=SOMME(A1:A3)"

Alors j'explique :
1) Excel met une erreur dans les cellules A1 à A3 et me demande si je veux convertir les valeurs en nombre (même si je précise que c'est un format nombre)

2) La formule n'est pas prise en compte comme telle ! Il faut que je séléctionne la cellule est que je fasse "Entrée", pour qu'il reconnaisse les case A1:A3!

Donc double problème ...

 

[JM]

Bonsoir le Forum, bonsoir Laclac,

En premier lieu tu n'a pas besoin de mettre la valeur de tes cellules entre guillements, je ne pense pas que ce soit utile.

Ensuite le point est de rigueur plutôt que la virgule sinon les nombres seront interprétés comme du texte et non comme des nombres et tu ne pourras les additionner.

Range("A1").Value = 17.5
Range("A2").Value = 12.5
Range("A3").Value = 5

Pour Range("A4").Value = "=SOMME(A1:A3)" il faut plutôt écrire :

Range("A4").Value =WorksheetFunction.Sum(Range("A1:A3"))

Cela fait apppel à la fonction Sum (SOMME dans le tableur).


En faisant ces modifs cela devrait fonctionner soit :


Private Sub Worksheet_Activate()

Range("A1").Value = 17.5
Range("A2").Value = 12.5
Range("A3").Value = 5
Range("A4") = WorksheetFunction.Sum(Range("A1:A3"))
End Sub

Cela fonctionnera lorsque tu activeras la feuille.

 

[Hervé]

Bonsoir

essaye comme ceci :

Range("A1").Value = CSng("17,5")
Range("A2").Value = CSng("12,5")
Range("A3").Value = CSng("5")

Range("A4").Formula = "=sum(A1:A3)"

salut
Hervé

 

[yvesL]

Salut Laclac et le Forum,

Essaye comme cà, et adapte le.


Sub Macro1()
'
Range("A1").Value = 17,5
Range("A2").Value = 12,5
Range("A3").Value = 5


Range("A10").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-6]C)"

End Sub

YvesL

 

[laclac]

Merci bcp à vous tous !!

Ca marche !!!!

C'est pas encore Noël mais vous me comblez déjà !