Faire la somme d'une colonne lorsque le nombre de lignes n'est pas connu
Contenu du snippet
A placer dans un bouton
ce code cherche la première cellule vide d'une colonne et calcule la somme des données de la colonne
ce code cherche la première cellule vide d'une colonne et calcule la somme des données de la colonne
Source / Exemple :
Dim g, b, z, i
For h = 1 To 36 'propre a mon projet
Sheets(h).Select
a = Range("a4").End(xlDown).Address
Range(a).Select
ActiveCell.Offset(1, 2).Select
b = ActiveCell.Offset(-1, 0).Address
g = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
b = ActiveCell.Row - 1
z = g & b
ActiveCell.FormulaLocal = "=somme(c4:" & z & ")"
k = Range("c3").End(xlToRight).Address
Range(k).Select
i = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
j = b + 1
p = g & j
q = i & j
Range(p).Select
Selection.AutoFill Destination:=Range(p, q), Type:=xlFillDefault
Next h
A voir également
- Faire la somme d'une colonne lorsque le nombre de lignes n'est pas connu
- Générateur de nombre ✓ - Forum PHP
- Somme sql ✓ - Forum SQL
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Nombre de semaine dans une année - Forum C / C++ / C++.NET
- Le maximum ou le minimum d'une somme SUM() - Forum SQL
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.