Faire la somme d'une colonne lorsque le nombre de lignes n'est pas connu

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 436 fois - Téléchargée 37 fois

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

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

Ajouter un commentaire

Commentaire

cs_jmluc
Messages postés
57
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
31 juillet 2003
-
Columns("C:C").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
permet d'atteindre la première cellule vide d'un sélection...
Dans ce cas la colonne...
jean-marc

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.