Somme valeurs et recherche

Fermé
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015 - 8 sept. 2013 à 11:25
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 sept. 2013 à 11:36
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 8/09/2013 à 11:45
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