Excel: somme valeurs avec conditions

Résolu
lzap17 Messages postés 2 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

J'ai 3 colonnes:
colonne A contient les chiffres 0 et 15
colonne B contient les valeurs en face de certains 15
Puis colonne C où je souhaite avoir en face de chaque 0 de la colonne A la somme des valeurs de la colonne B

exemple (voir l'image joint)


Je cherche à créer une macro qui me permettra de réaliser ce calcul car j'ai plus de 10000 lignes à traiter dans mon tableau ...

Merci d'avance

2 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Tu n'as pas forcément besoin de vba
    https://www.cjoint.com/c/HJfqc708zXB

    Cdlmnt
    1
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Et si tu veux une macro
    Option Explicit
    
    Const lideb = 2   ' premièere ligne 0
    Const codeb = 1   ' colonne 0-15
    Const cores = 5   ' colonne résultat
    
    Public Sub ok()
    Dim li1 As Long, li2 As Long, lifin As Long, s
    Application.ScreenUpdating = False
    lifin = Cells(Rows.Count, codeb).End(xlUp).Row
    li1 = lideb
    While Cells(li1 + 1, codeb) = 0
      li1 = li1 + 1
    Wend
    li2 = li1
    While li2 < lifin
      s = 0
      Do
        s = s + Cells(li2, codeb + 1)
        li2 = li2 + 1
      Loop Until Cells(li2, codeb) = 0 Or Cells(li2, codeb) = ""
      If s <> 0 Then Cells(li1, cores) = s
      li1 = li2
    Wend
    End Sub

    Cdlmnt
    1
    1. lzap17 Messages postés 2 Statut Membre
       
      Fantastique, merci ! les deux fonctionnent très bien !
      0
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      De rien,

      Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

      Bon après midi
      0