bonjour à tous,
je cherche à faire une fonction qui me paraît pourtant simple mais qui ne veut pas marcher, j'ai essayé de trouver de l'aide sur le forum et sur internet malheureusement sans succès.
Mon problème est le suivant. A la suite de plusieurs macro, j'obtiens un tableau avec plusieurs colonnes et j'ai besoin de faire la somme de chaque colonne une à une et d'inscrire le total au bas de cette colonne. Le nombre de lignes varie à chaque fois que je relance les macros qui créent le tableau, d'où la nécessité d'avoir la variable m.
Voici mon code qui ne marche pas :
Dim Col As Range, m As Integer, n As Integer, total As Integer
For Each Col In Range("K1:X1").Columns
m = WorksheetFunction.CountA(Range("A:A"))
total = 0
For n = 2 To m
total = total + Range("Col" & n).Value
Next n
m = m + 1
Range("Col" & m).Value = total
Next Col
Sauriez vous d'où vient mon problème ? Je ne suis pas sur de la casse pour le Range("Col" & m) mais je n'est rien trouver de mieux ...
Merci bien
Cordialement
Bearodras
je cherche à faire une fonction qui me paraît pourtant simple mais qui ne veut pas marcher, j'ai essayé de trouver de l'aide sur le forum et sur internet malheureusement sans succès.
Mon problème est le suivant. A la suite de plusieurs macro, j'obtiens un tableau avec plusieurs colonnes et j'ai besoin de faire la somme de chaque colonne une à une et d'inscrire le total au bas de cette colonne. Le nombre de lignes varie à chaque fois que je relance les macros qui créent le tableau, d'où la nécessité d'avoir la variable m.
Voici mon code qui ne marche pas :
Dim Col As Range, m As Integer, n As Integer, total As Integer
For Each Col In Range("K1:X1").Columns
m = WorksheetFunction.CountA(Range("A:A"))
total = 0
For n = 2 To m
total = total + Range("Col" & n).Value
Next n
m = m + 1
Range("Col" & m).Value = total
Next Col
Sauriez vous d'où vient mon problème ? Je ne suis pas sur de la casse pour le Range("Col" & m) mais je n'est rien trouver de mieux ...
Merci bien
Cordialement
Bearodras