Vba somme décalée

Résolu
acca - 14 mars 2011 à 12:08
acca Messages postés 2 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 14 mars 2011 - 14 mars 2011 à 17:07
bonjour,

je cherche a faire la somme des cellules B1, B3, B5 en VBA

B1 = 2
B2 = 5
B3 = 3
B4 = 4
B5 = 1

le résultat attendu est 2+3+1
can u help pour prgrammer la fonction??

2 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
14 mars 2011 à 12:35
Bonjour,
??
[C1] = [B1] + [B3] + [B5]
??
A+
0
acca Messages postés 2 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 14 mars 2011
14 mars 2011 à 12:49
merci, mais ça ne répond pas à ma question, car si j'ai 500 cellules et que je dois faire la somme de toutes les cellules impaires... ça va me prendre du temps!
dc l'idée c'est de pouvoir faire une fonction sum(...)
merci d'avance
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
Modifié par lermite222 le 14/03/2011 à 12:58
C'est bien pour cela qu'il y avait des ??, la question était incomplète.
A mettre dans un module général.
Function AdditionImp() As Double 
Dim Nomb As Double, Lig As Long 
    For Lig = 1 To [B65536].End(xlUp).Row Step 2 
        Nomb = Nomb + Cells(Lig, 2) 
    Next 
    AdditionImp = Nomb 
End Function

Dans une cellule mettre =AdditionImp()
Attention : Pas dans la colonne de calcul sinon, référence circulaire.
A+
Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
0
acca Messages postés 2 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 14 mars 2011
14 mars 2011 à 17:07
merci!

ça fonctionne
A+
0