Discussion :

[Blaiz58]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gado2600]

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,

[mercatog]

Ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile

Sinon, étrange fonction

[Blaiz58]

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 ... :/

[mercatog]

L'aide

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.

[Blaiz58]

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Blaiz58]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Blaiz58]

Merci beaucoup mercatog, cela fonctionne parfaitement