Bonjour a tous,
J'ai besoin de faire la somme des pourcentages situes dans la colonne C lorsque la valeur de la colonne D est la meme dans le but de calculer le pourcentage moyen de l'ensemble.
Mon probleme est que je n'arrive pas a exprimer la somme d'une plage continue de cellule dont la taille varie.
Avec ce code, je ne fais la somme que de la premiere et de la derniere valeur(ce qui est logiaue vu ce qui est ecrit).
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
23 For Zeile = 2 To LetzteZeile If PSP.Cells(Zeile, 4).Value = PSP.Cells(Zeile + 1, 4).Value Then cmpt = Zeile While PSP.Cells(cmpt, 4) = PSP.Cells(cmpt + 1, 4) coef = coef + 1 cmpt = cmpt + 1 Wend PSP.Cells(cmpt, 8).Formula = Cells(Zeile, 3).Value + Cells(cmpt, 3).Value PSP.Cells(cmpt, 8).Copy PSP.Cells(cmpt, 8).PasteSpecial xlPasteValues PSP.Cells(cmpt, 7).Value = coef PSP.Cells(cmpt, 6).Value = PSP.Cells(cmpt, 8).Value / coef coef = 1 Zeile = cmpt Somme = 0 Else: PSP.Cells(Zeile, 6).Value = PSP.Cells(Zeile, 3).Value End If Next Zeile End Sub
J'ai essaye de calquer mon programme sur la syntaxe que j'avais trouve en faisant une recherche, mais ca m'affiche des erreurs :
Range(C2:C20).Formula = "a2+b2"
Range(C2.C20).Copy
Range(C2:c20).PasteSpecial xlPasteValues
Partager