VBA et sommes de colonnes

Version imprimable

10/01/2008, 09h51
Livet

VBA et sommes de colonnes
Bonjour,
je sèche honteusement depuis qqtemps sur la fin de ma macro. Il s'agit de faire la somme d'une colonne à la première cellule vide en bas. Cette somme doit se répéter sur 12 colonnes qui se suivent.

Je suis arrivée à faire la somme de la première colonne, mais je n'arrive pas à faire la boucle qui me permettrait de continuer sur les 11 autres.

Voici mon code:
Code:

1 2 Formule = "=SUM(AU2: AU" & Nbligne & ")" Sheets("feuil2").Range("AU" & Nbligne + 1).Value = Formule
(je commence la somme à partir de la colonne AU jusqu'à la colonne BF)

Quelqu'un pourrait il m'aider?

Merci d'avance
10/01/2008, 09h58
wilfried_42

bonjour

Code:

Sheets("feuil2").Range("AU" & Nbligne + 1).Formula = Formule
10/01/2008, 10h02
Livet

Merci pour ta réponse wilfried, cela marche bien aussi :)

Mais ce qui me bloque le plus c'est d'incrémenter mes colonnes, c'est à dire faire une boucle (donc remplacer AU par Col ou qqchose comme ça) qui me permettrait d'aller de AU à BF.

Est ce que tu aurais une idée?

J'ai oublié de préciser que Nbligne renvoie le nombre de ligne remplie sur la feuille2

Essayes ça, en ajoutant le Dim rng As Range au début de ta macro.

Code:

1
2
3
4
5
6
7
8
Dim rng As Range
 
    Formule = "=SUM(AU2: AU" & Nbligne & ")"
    Set rng = Sheets("feuil2").Range("AU" & Nbligne + 1)
    rng.Value = Formule
    rng.Copy
    Set rng = rng.Offset(0, 1).Resize(1, 11)
    rng.PasteSpecial

10/01/2008, 10h11
Livet

ça marche nickel! MERCI!

:D

re:

Code:

1
2
3
4
5
6
7
8
sub somme_col()
dim i as integer, ligne as long
for i = range("AU2").column to range("BF2").column
         ligne = sheets("Feuil2").cells(rows.count,i).end(xlup).row
         Formule = "=SUM(" & cells(2,i).address & ":" & cells(ligne,i).address & ")"
         Sheets("feuil2").cells(ligne+1,i).formula = Formule
next i
end sub

Mais je suis certain de ne pas avoir tout compris :?

Bonsoir

Faire la somme au dessous des colonnes ( AU à BF )

Code:

1
2
3
4
5
6
7
8
 
Sub SumCol()
    For i = 47 To 58
                Range(Cells(Rows.Count, i).End(xlUp).Address)(2) _
                = Application.WorksheetFunction.Sum( _
                Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp).Address))
          Next
End Sub

Abed_H