Vba somme décalée

Résolu
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

  1. Contributeur
    Bonjour,
    ??
    [C1] = [B1] + [B3] + [B5]
    ??
    A+
    1. 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
  2. Contributeur
    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.
    1. merci!

      ça fonctionne
      A+