Bonjour à toutes, à tous
avec EXCEL (office 2019)
j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne
mais ça plante la macro au niveau de la formule
Si vous avez une solution, je suis preneur
j'ai fait une boucle (For to next), ça fonctionne mais la somme
est très peu différente (0.01)
si vous avez le temps de vous pencher sur mon problème
Merci
Bonjour à toutes, à tous
avec EXCEL (office 2019)
j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne
mais ça plante la macro au niveau de la formule
Si vous avez une solution, je suis preneur
j'ai fait une boucle (For to next), ça fonctionne mais la somme
est très peu différente (0.01)
si vous avez le temps de vous pencher sur mon problème
Merci
Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Derlig) = Application.Sum([H:H])
Range("I" & Derlig) = Application.Sum([I:I])
End Sub
Sub Sommation_sans_tir()
Dim Bazinga$
Bazinga = ActiveCell.CurrentRegion.Address
Set Ma_Somme = Cells(Rows.Count, ActiveCell.Column).End(3)(2)
MaSomme = Application.Sum(Range(Bazinga))
Ma_Somme.Value = MaSomme
End Sub
Je ne suis pas sur que tu lis tous les messages ....
Le code adapté à ton fichier :
VB:
Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Derlig) = Application.Sum([H:H])
Range("I" & Derlig) = Application.Sum([I:I])
End Sub
c'est magnifique mais petit problème l'addition prend toute la colonne mais sur les 6ères lignes
il y a des nombres qui ne doivent pas s'ajouter
je reconnais que je suis pas simple et que vous êtes formidable et à l'écoute de nos soucis
merci...
j'aimerai faire la somme dans une colonne qui sera plus ou moins longue
j'ai fait la macro qui m'a donné pour les 38 cellules
ActiveCell.FormulaR1C1 = "=SUM(R[-38]C:R[-1]C)"
j'ai remplacé 38 par une variable qui évolue en fonction du nombre de lignes de cette colonne
Ce n'est pas ça qu'il fallait faire. Il fallait mettre le numéro de la ligne de départ, si elle ne change jamais, juste derrière le R et sans crochet. Si c'est la 10 par exemple :
Sub Sommation_sans_tir()
Dim Bazinga$
Bazinga = ActiveCell.CurrentRegion.Address
Set Ma_Somme = Cells(Rows.Count, ActiveCell.Column).End(3)(2)
MaSomme = Application.Sum(Range(Bazinga))
Ma_Somme.Value = MaSomme
End Sub
Mais , j'ai pas compris pourquoi tu as validé ton post comme solution alors que tu n'as pas trouvé la solution.
La logique est de validé la solution que tu as choisis et appliqué dans ton fichier
Mais , j'ai pas compris pourquoi tu as validé ton post comme solution alors que tu n'as pas trouvé la solution.
La logique est de validé la solution que tu as choisis et appliqué dans ton fichier