Discussion :

[Prekestolen]

Bonjour à tous

Voici mon code

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
 Selection.Merge
    Range("J2").Select
    Selection.Copy
    Range("A1:I1").Select
    ActiveSheet.Paste
    Range("A1:F1000").Select
    Range("I1000").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True

et il y a une image de mon tableau.

Comment faire pour récupérer les cellules qui sont la somme des additions.
Prendre la cellule prime (en rouge) et la divisé par la cellule comm (en bleu) pour obtenir la celllule jaune. Il y a des rangées avant celles-ci mais je ne les ai pas mis pour ne pas alourdir le message. Si vous avez une lumière pour m'éclairer, vous pouvez l'allumer, je vous en serai grandement reconnaissant. Merci d'avance à toute la communauté.