Addition valeur de pls cellules
Coucou.
Je sais ça doit pas être compliqué, mais je n'y arrive pas.
je voudrais additionner les valeurs sans passer par le signe +.
j'ai testé ceci :
ws13 étant le nom de l'onglet simplifié
plage = ws13.Range("F6:F8")
plage.NumberFormat = "0.00" 'je pensais que mes cellules étaient en format texte
ws13.Range("F4").Value = Application.WorksheetFunction.Sum(plage)le résultat est 0 dans la cellule F4
je pense merdé qq part surement niveau de la transformation du format txt en nombre, mais je sais plus ou chercher.
++
Troph
Bonjour,
Et avec une formule du genre :
ActiveCell.FormulaR1C1 = "=SUM(R7C7:R15C7)"Qui ici somme les cellules allant de G7 à G15 par exemple.
Simple idée en passant ...
le souci c'est que je connais pas la cellule de fin.
F6-F8 c'était un exemple pour tester la chose.
Bonjour,
Ca c'est pas un problème !
Voici un exemple pour contourner :
Sub Somm()
Cells(1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)))
End SubCe petit bout de code t'indiquera en A1 la somme des valeurs présente dans la colonne B... de la première à la dernière
Mais je pense que tu pourrais très bien te passer de VBA pour faire ce que tu veux faire ... Utiliser VBA pour mettre une formule je crois que c'est un peu contradictoire mais je ne suis pas expert !
Cordialement,
Vbabeginner
ok merci je vais m'y atteler.
++
Troph
Pas mal cette fonction,
Sub Somm()
Cells(1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)))
End Sub
mais si on veut totaliser d'une ligne a à b au lieu de toute la colonne, il faut des variables.
comment on met des variables là dedans:
ActiveCell.FormulaR1C1 = "=SUM(R12C4:R53C4)