Vba somme décalée

Résolu
acca -  
acca Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
??
[C1] = [B1] + [B3] + [B5]
??
A+
0
acca Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   1 191
 
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   Statut Membre Dernière intervention  
 
merci!

ça fonctionne
A+
0