Discussion :

[Iloon]

Bonjour à tous,
j'ai besoin de faire une somme des cellules par rapport à une cellule qu'elle auraient en commun en début de tableau...
Pour faire clair, je voudrais créer une macro qui fait comme dans les pièces jointes automatiquement. Avant : Capturer.jpg, je voudrais que cela donne comme dans capturer2.jpg

Je vous remercie par avance de votre aide,

Iloon

[DaVinci_067]

bonjour

je ne suis pas très bon en VBA mais j'ai déjà fais ce que tu veux en utilisant somme.si dans excel.

donc je te suggère d'enregistrer une macro avec l'oppération somme.si et une jointure des cellules.
par la suite édite ta macro et modifie autour du code que tu as obtenu

mais bon probablement que quelqu'un va te donner le code direct, mais le truc d'enregistrer des macros et de les modifier par la suite fonctionne souvent pour moi

[Iloon]

Bonjour,
merci de ta réponse mais je n'arrive pas à modifier mon code. Moi aussi d'habitude je fais une macro et je modifie ensuite, mais là, je bloque car la condition est difficile à coder, il faut l'écrire avec des i, i+1 je pense.

Merci quand même de ta réponse, je vais continuer à essayer en attendant

[Iloon]

J'ai réussi à trouver la solution dans un autre forum, je la poste ici au cas où se problème se poserait à d'autres personnes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Calcul()
Dim str As Variant
Dim i As Long
Dim cal As Long
Dim j As Long
 
    i = 1
 
    While Worksheets(1).Range("A" & i).Value <> ""
        str = Worksheets(1).Range("A" & i).Value
        cal = 0
        j = 0
        While Worksheets(1).Range("A" & i + j).Value = str
            cal = cal + Worksheets(1).Range("B" & i + j).Value
            j = j + 1
        Wend
        Worksheets(1).Range("C" & i).Value = cal
        i = i + j
    Wend
 
End Sub

Merci de ta participation !