[VBA Excel] Fonction somme

Résolu
MarmotteFred Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis novice en programmation VBA et j'ai un petit soucis sur mon projet :

Dans un classeur excel, j'ai un tableau sur chaque feuille qui comporte les mêmes colonnes mais pas toujours le même nombre de lignes.

J'aimerai ajouter dans ma macro une formule Somme à la fin d'une colonne après la dernière cellule renseignée et j'y arrive pas ...

Pour l'instant, j'ai juste réussi à arriver à la dernière cellule remplie mais après je bloque ...

J'en suis là : (Sachant que le titre des colonnes est sur la ligne 5)

Columns("F:F").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select

Est-ce que quelqu'un peu venir à mon secours ??

Merci d'avance
Marmotte



A voir également:

4 réponses

MarmotteFred Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   3
 
Merci pour la réponse mais je crois que je me suis mal exprimée ...
En fait, je voudrais juste faire le total de la colonne F en bas de la colonne après la dernière ligne remplie. Ma macro est dupliquée avec un bouton sur chaque feuille. Mais comme je n'ai pas toujours le même nombre de ligne sur chaque feuille, je ne peux pas figer la formule somme sur une cellule bien précise.

Je sais pas si je suis très claire ...

Merci en tout cas pour votre aide. Ce forum m'apprend plein de choses tous les jours ! :)

Marmotte
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour la marmotte ;-)

si j'ai compris ta demande
derlig = Range("F65536").End(xlUp).Row
Cells(derlig + 1, 6) = Application.Sum(Range("F6:F" & derlig))
0
MarmotteFred Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   3
 
Yess ! Merci Michel ! Ca marche !

Dernière petite question et après j'arrête : comme faire pour que la formule somme soit dans la cellule (là je n'ai que le résultat). Le but est que si on modifie un chiffre dans le tableau, il faudrait que le total se recalcule automatiquement.

Merci again !
Marmotte
0
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
remplace la dernière ligne proposé par michel par celle-ci.
bonne journée à tous

derlig = Range("F65536").End(xlUp).Row

Worksheets("Feuil1").Range("F" & derlig + 1).Formula = "=Sum(F6:F" & derlig & ")"
0
MarmotteFred Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   3
 
Super ça marche !

Merci Bidouilleu et merci Michel !
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bien vu, bidouilleu :-)
cordialement
michel
0
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
de rien Michel c'est quand même toi qui a fait le gros du travail..;-)
0