Faire une somme...

[sunguess]

Bonjour à tous,

N'ayant pas pratiqué les macros depuis un certain temps, je me suis rendu compte que j'ai presque tout perdu et je galère un peu...

Ce que je souhaite réaliser est pourtant basique :
* Je souhaite multiplier les chiffres de la colonne B par -1
* insérer une colonne entre A et B
* et à chaque changement de date faire la somme des chiffres de la colonne de cette date dans la nouvelle ligne de la colonne B sachant que le nombre de ligne à une date donnée n'est pas constant

Je joint un fichier pour que cela soit plus clair avec la source et le résultat que je cherche a obtenir ( les couleurs de l'onglet résultat ne sont la que pour que la compréhension soit plus facile)

D'avance merci à celui qui pourra m'aider

 

[gilbert_RGI]

Re : Faire une somme...

Bonjour

Comme ceci
Ce lien n'existe plus

Cdlt

RGI

 

[sunguess]

Re : Faire une somme...

Tout d'abord merci pour ton aide.

Le but étant d'importer les données dans un logiciel, il ne doit pas y avoir de total général et les dates ne doivent pas être précédées de "Total" et doivent être au format JJMMAAAA

De plus, si on supprime une ligne de la premiere date et que l'on rajout 4 lignes d'une date supplémentaire, la macro ne fonctionne plus

Penses tu pouvoir modifier cela ?

d'avance merci

 

[pierrejean]

Re : Faire une somme...

bonjour a tous

ma version

A tester

 

[gilbert_RGI]

Re : Faire une somme...

voilà le code pour ajouter des lignes

Sub Essai()

    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*-1"
    Selection.AutoFill Destination:=Range("D2:D" & Range("C65536").End(xlUp).Row), Type:=xlFillDefault
    Range("D2:D" & Range("d65536").End(xlUp).Row).Select
    Range("D2").Select
    Selection.Cut
    Range("D2:D" & Range("d65536").End(xlUp).Row).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C2:C" & Range("C65536").End(xlUp).Row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:D" & Range("d65536").End(xlUp).Row).Select
    Application.DisplayAlerts = False
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1:C" & Range("C65536").End(xlUp).Row).Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Range("C" & Range("C65536").End(xlUp).Row).Select
End Sub

ensuite faire la fonction Sous Total et modifier à votre guise

Cdlt

RGI

 

[sunguess]

Re : Faire une somme...

Merci à tous les deux pour votre aide (j'ai pris la solution de pierrejean car le code est plus propre)

Ca marche !