Suma con variable en macro VBA

une petite correction

une variable string qui s'ajoute ça donne 2 + 2 =22
et en integer 2+ 2 = 4
; )
le reste est ok

Sub somme() Dim somme As Double Dim ligne As Integer Dim colonne As Integer somme = 0 ligne = 2 colonne = 5 Do While Cells(ligne, colonne) <> "" somme = somme + Cells(ligne, colonne) ligne = ligne + 1 Loop Cells(ligne, colonne) = somme End Sub

esta solución no es lo que busco porque me da el número de celdas, mientras que yo quiero la suma de los valores contenidos en esas celdas...

lo siento ...

Hola, no entendí muy bien tu solicitud, pero si se trata de sumar los valores de un número de celdas adyacentes a partir de D2, no es necesario usar un bucle.

Sub additionner() Dim derlig As Long derlig = Range("D65536").End(xlUp).Row Cells(derlig + 1, 4) = Application.Sum(Range("D2:D" & derlig)) End Sub

--
:-x

¡No estoy de acuerdo!
Melanie1324 cometió un pequeño error, sí, pero su código sigue siendo correcto.

Si lo usas tal cual

pon una serie de números entre E2 y E5, por ejemplo 8 9 1 4, el resultado en E6 será 22.

Pero si quieres la columna D, entonces cambia el valor de la columna y pones columna = 4.

Espero tu prueba. Y Melanie1324 también.
Y si está bien, pones resuelto en el primer post.

Je vous remercie pour toutes ces solutions, mais malheureusement cela ne répond pas à mon besoin. En adaptant la première solution, j'arrive à faire ce que je veux, mais mon problème est qu'il n'y a pas de données présentes dans les cellules. Les données seront saisies ultérieurement pour contrôler celles d'une extraction. Je veux seulement que, sur la dernière cellule de la colonne (D22 ou D5 ou D32 selon les données présentes dans l'extraction), soit fait un total des cellules et que ce calcul soit visible et reste dans cette cellule. Par exemple : ActiveCell.FormulaR1C1 = "=SUM(R[-498]C:R[-1]C)", sauf que le -498 est remplacé par ma variable.
J'espère que cette explication sera un peu plus précise.

Encore merci à tous de votre aide...

ActiveCell.FormulaR1C1 = "=SUM(R[-" & x & "]C:R[-1]C)"

Hola de nuevo,

lo que nos pides, yo no sé realizarlo a través de una macro.

Te propongo dos soluciones, o bien mantienes la macro que escribí con la corrección de bidouilleu:
y haces clic en la macro tan pronto como hayas copiado tu extracción.

De lo contrario, tengo otra solución.
Reservas la primera línea y escribes:
=SUMA(D2:D10000)

De este modo, siempre tendrás la suma, haya datos o no.

Pero, por lo demás, estoy atascado.

No hay problema... mantendré mi macro actual con la esperanza de encontrar si es posible.
Te agradezco por tu ayuda y te deseo unas felices fiestas de fin de año... :-)
¡Hasta luego!

Hola,
llego un poco tarde, no sé si es lo que querías:

Sub additionner()
Dim derlig As Long
Dim dercol As Long

derlig = Range("D3").End(xlUp).Row
dercol = Range("D2").End(xlToRight).Column

Cells(derlig + 1, 4) = Application.Sum(Range(Cells(2, 4), Cells(2, dercol)))

End Sub

a+