Somme d'une colonne variable VBA

Bonjour à tous,

Je rencontre un petit problème au sein d'une fonction me permettant de faire la somme d'une colonne dont la longueur peut varier.
En fait, le problème est quand je change une donnée dans la colonne, cela ne change pas le résultat de la somme ...
Le paramètre de ma fonction est qu'il faut choisir la premier cellule (début de la plage de la somme) et la somme se fait jusqu'à la dernière ligne plaine de celle colonne .

Si vous pouvez m'aider, je suis preneur :)

Merci beaucoup

Voila ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function credit_line_sum(num_line)   num_column = ActiveCell.Column first_line = num_line.Row last_line = Cells(Rows.Count, num_column).End(xlUp).Row 'sum_lines = 0   credit_line_sum = Application.WorksheetFunction.Sum(Range(Cells(first_line, num_column), Cells(last_line, num_column)))   End Function

---

Bonjour,

Ne s'agit-il pas simplement d'un problème sur le paramètre de calculs de ton fichier Excel ?
Pour le vérifier, écris la somme à la main et regarde si tes valeurs changent. Si ce n'est pas le cas, c'est que tu es en calcul manuel.

Cordialement,

Ajoute

Code:

---

Application.Volatile

---

Sinon, étrange fonction

Gado2600,

Quand j'utilise la fonction somme de base de excel, cela fonctionne très bien si je change des valeurs à l'intérieur de la plage.

Mercatog,
Quand j'utilise Application.Volatile, la fonction bug en permanence. Je ne peux même pas débogger VBA ^^


En fait, j'ai remarqué, que ma somme change que quand je modifie la première valeur de la plage de donnée mais dès que je modifie la deuxième valeur, cela n'a aucun impact sur la calcul de la somme ... :/

L'aide

Citation:

---

Application.Volatile, méthode

Cette méthode marque comme volatile une fonction personnalisée. Une fonction volatile doit être recalculée chaque fois qu'un calcul est effectué dans une cellule quelconque de la feuille de calcul. Une fonction non volatile n'est recalculée qu'en cas de changement des variables d'entrée. Cette méthode est sans effet si elle ne se trouve pas à l'intérieur d'une fonction définie par l'utilisateur utilisée pour calculer une cellule de feuille de calcul.

---

Donc... voilà ta réponse

Sinon, comme dit plus haut, si tu explique ce que somme cette fonction par rapport à la cellule dans laquelle elle est écrite et par rapport à la cellule paramètre.

Bon avec Application.volatile, ça fonctionne mais il reste un dernier problème, c'est que vu que j'utilise cette fonction plusieurs fois, dès que je change une cellule dans une colonne, ça me met la même somme pour toutes les cellules.

Dans l'image ci-dessous, la somme correspond à la colonne S mais les colonnes R et T devraient faire les sommes de leurs colonnes et non afficher le résultat de la colonne S

Pièce jointe 148994

Rng étant la première cellule à partir de laquelle le total est calculé

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Total(ByVal Rng As Range) As Double Dim Db As Long, Fn As Long   Application.Volatile With Rng.Worksheet Db = Rng.Row Fn = .Cells(.Rows.Count, Rng.Column).End(xlUp).Row Total = Application.Sum(Rng.Resize(Fn - Db + 1)) End With End Function

---

J'ai trouvé une solution à ce problème en utilisant Range pluôt que cells pour définir le début et la fin de la colonne.

Mais maintenant, le dernier problème que je rencontre est que dès que je change une valeur dans une autre feuille, cela actualise le fonction avec les valeur de cette feuille ... ce qui pose problème :/

Code:

---

1 2 3 4 5 6 7 8 9

Function credit_line_sum(num_line)   Application.Volatile   first_line = num_line.Address   credit_line_sum = Application.WorksheetFunction.Sum(Range(first_line, Range(first_line).End(xlDown)))   End Function

---

Merci beaucoup mercatog, cela fonctionne parfaitement :)