Somme valeurs et recherche

philippe34130 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous

Sur un bouton de commande je voudrai faire une macro qui me fasse l'addition des valeurs des 10 dernières cellules d'une colonne avec un code :

ActiveCell.FormulaLocal = "=SOMME(????)"

Je voudrai aussi sur un bouton de commande + une textbox, faire une macro pour rechercher une date dans une colonne d'une feuille afin d'y importer des valeurs sur la ligne

Merci a tous de votre aide

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour 


fin = Columns("A").Find("*", , , , , xlPrevious).Row

deb = fin - 9

ActiveCell = Application.Sum(Range("A" & deb & ":A" & fin))

mais peut ^tre sans VBA "penser Excel avant de penser VBA"
=SOMME(DECALER(A:A;NB(A:A)-10;0;10;1))

Michel
0

Discussions similaires

recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses
Réglage chaine de la TNT FR3 TF1 A2 TMC
Yamina -
Redbart -

1 réponse
Recherche de pairs sur utorrent bloqué
flo.h -
Claire -

4 réponses