Sujet Précédent Sujet Suivant

[VBA Excel] Fonction somme

Résolu/Fermé
MarmotteFred Messages postés 16 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 26 août 2013 - 21 juin 2010 à 17:29
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 22 juin 2010 à 13:14
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

Réponse 1 / 4
MarmotteFred Messages postés 16 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 26 août 2013 3
22 juin 2010 à 09:40
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 juin 2010 à 10:03
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
Réponse 2 / 4
MarmotteFred Messages postés 16 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 26 août 2013 3
22 juin 2010 à 10:17
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
Réponse 3 / 4
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
22 juin 2010 à 11:02
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
Réponse 4 / 4
MarmotteFred Messages postés 16 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 26 août 2013 3
22 juin 2010 à 11:07
Super ça marche !

Merci Bidouilleu et merci Michel !
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 juin 2010 à 12:09
bien vu, bidouilleu :-)
cordialement
michel
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
22 juin 2010 à 13:14
de rien Michel c'est quand même toi qui a fait le gros du travail..;-)
0

Discussions similaires

somme dans excel toujours =0
faissalc -
Olivier -

20 réponses
Excel, Formule =SOMME ne fonctionne pas
Damien -
speug -

9 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse