Discussion :

[Renaultt]

Bonjour

Chaque semaine, je créé un tableau excel de 3 colonnes et de lignes aléatoires.
Je me met 2 lignes en dessous du tableau et en dernière colonne de ce tableau.
Je veux faire la somme de la dernière colonne. Quel est la formule macro VBA ???
car si je fais en enregistrement de macro, cela ne fonctionne pas la semaine d'après
Exemple :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"

moi je voudrais faire :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(Range(cells(2,3);cells(range(cells(nblfeuil51006,3))"

nblfeuil51006 est le nombre de llignes de mon tableau pour ce mois. Mais cela ne fonctionne pas.

Pouvez vous m'aider ???

Cordialement

[MarcClap]

Bonjour,

Voici ce que je propose à la place

Code :

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

ActiveCell.Formula = "=SUM(" & Range(Cells(2, 3), Cells(nblfeuil51006, 3)).Address & ")"

[Renaultt]

Bonjour,

Voici ce que je propose à la place

Code :

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

ActiveCell.Formula = "=SUM(" & Range(Cells(2, 3), Cells(nblfeuil51006, 3)).Address & ")"

[Renaultt]

Bonjour,

Voici ce que je propose à la place

Code :

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

ActiveCell.Formula = "=SUM(" & Range(Cells(2, 3), Cells(nblfeuil51006, 3)).Address & ")"

Merci, c'est tout à fait cela dont j'avais besoin.
Cordialement

[Philippe Tulliez]

Bonjour,
Il y a plusieurs solutions pour connaître le nombre de lignes remplies d'une plage de cellules;
Personnellement, j'utilise les propriétés CurrentRegion, Offset et Resize mais il faut pour cela que la première ligne et la première colonne soient remplies.
Exemple 1. Somme de le colonne 1 de la plage de données.
L'utilisation de la variable objet rngData ainsi que les propriétés Offset et Resize utilisés dans cet exemple ne sont utiles que si la première ligne contient les étiquettes de colonnes.

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim rng As Range, rngData As Range
 Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion
 With rng
  Set rngData = .Offset(1).Resize(.Rows.Count - 1)
 End With
 MsgBox Application.WorksheetFunction.Sum(rngData.Columns(1))
End Sub

Exemple 2 Somme de la dernière colonne de la plage de données

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim rng As Range, rngData As Range
 Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion
 With rng
  Set rngData = .Offset(1).Resize(.Rows.Count - 1)
 End With
 MsgBox Application.WorksheetFunction.Sum(rngData.Columns(rng.Columns.Count))
End Sub

[EDIT] Voilà ce que c'est que de faire trois choses à la fois, je n'avais pas lu que tu voulais écrire une formule

Exemple 3. Ecrire en cellule F1 la formule qui renvoie la somme de la dernière colonne de la plage de données

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim rng As Range, rngData As Range
 Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion
 With rng
  Set rngData = .Offset(1).Resize(.Rows.Count - 1)
 End With
 ThisWorkbook.Worksheets("Feuil2").Range("F1").Formula = "=SUM(" & rngData.Columns(rng.Columns.Count).Address & ")"
 End Sub

Je te conseille la lecture de ces deux billets

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[MolikDLuffy]

Bonjour,

Je propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub total()
Dim ligne As Long
montant = 0
For ligne = 2 To 1000       '1000 peut-être changé en 10000 ou 20000
If Cells(ligne, 3) <> "" Then
montant = montant + Cells(ligne, 3).Value
Else
Exit For
End If
Next ligne
 
range("C2").End(xlDown).Offset(2, 0) = montant
End Sub

[Philippe Tulliez]

Bonjour,
Si c'est pour écrire la formule sur plusieurs lignes, nul besoin de boucles

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim rng As Range, rngData As Range
 Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion
 With rng
  Set rngData = .Offset(1).Resize(.Rows.Count - 1)
 End With
 rngData.Columns(rng.Columns.Count).Formula = "=SUM($B$2:B2)"
End Sub

[Menhir]

Les références absolues/relatives sont là pour ça.

En supposant que ta première ligne de données soit la ligne 2 :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R2C:R[-1]C)"