Discussion :

[Platon d'athene]

bonjour tt le monde,

pour calculer la somme de valeurs dans une colonne qui se trouve dans une feuille dont ne connait pas le nombre de ligne , j'ai developpé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub calculateTotal(sht As String)
 
 
    Sheets(sht).Select
    Range("A3000").Select
    ActiveCell.FormulaR1C1 = sht & " total"
    Range("B3000").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2999]C:R[-1]C)"
    Range("C3000").Select
 
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    Range("A1").Select
 
End Sub

il est clair que je somme toutes les valeurs de la première ligne à la ligne 3000, pour être sûr que j'ai depassé le nombre max de lignes de la feuille, ensuite je supprime les lignes vides qui separent la dernière ligne de feuille et la nouvelle ligne de la somme (dont le numero est 3000) ,,

cette solution fonctionne , mais il y a beaucoup d'inconvinients , elle n'est pas optimisée si je l'applique sur plusieurs feuilles à la fois,,,, en plus elle n'est pas assez générique , limité à 3000 ligne (où n'importe quel nombre fixe, au choix)

existe t-il d'autres idées ? merci d'avance

[papouclo]

Bonjour,
Essayer de remplacer dans la procédure les lignes 5 à 13 (ou 5 à 12 ?) par

Code :

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

1
2
3
4
5
With ActiveSheet
a = .Range("B1").CurrentRegion.Rows.Count
.Cells(a + 1, 1).Value = "Total"
.Cells(a + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(2, 2), Cells(a, 2)))
End With

Cordialement
Claude

[Pierre Fauconnier]

Salut.

Tu dois absolument le faire en VBA? Si oui, tu n'es pas sur le bon forum.

Si oui, tu as intérêt à penser Excel avant de penser VBA, car il y a des formules Excel qui pourraient t'aider et que tu peux utiliser en VBA.

Si non, il y a beaucoup de formules Excel qui pourraient t'aider.

Dans tous les cas, tu aurais intérêt à mieux expliquer ton souhait et à préciser ta version, car les solutions envisageables peuvent différer d'une version à l'autre.

[Platon d'athene]

bonjour tt le monde,
merci a vous tous , merci a papouclo, ta solution est parfaite !!