Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Faire une somme...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sunguess
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sunguess

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Faire une somme...

voilà le code pour ajouter des lignes

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Question Question
Microsoft 365 Somme encart dynamique
Réponses
2
Affichages
112
Lydiou57
L
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
441
JBL07
J
M
  • Question Question
XL 2010 somme si avec conditions sur plusieurs onglets
Réponses
2
Affichages
132
sylvanu
  • Question Question
XL 2021 Formule pour Date
2
Réponses
18
Affichages
726
MuscatMimi
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
319
job75
O
  • Résolu(e)
XL 2010 Macro - Incrémentation Date -- jj/mm/N-nombre ou jj/mm/N+nombre
Réponses
6
Affichages
164
Olivier1978
O
E
  • Question Question
XL 2019 additionner plusieurs valeurs pour un même sku
Réponses
11
Affichages
593
Cousinhub
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
376
job75
T
  • Résolu(e)
XL 2019 calcul Delta Date ( et A ou( B C D E ))
Réponses
4
Affichages
233
TooFatBoy
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
F
  • Question Question
XL 2021 >Problème somme de compte commençant par...
Réponses
3
Affichages
324
job75
D
  • Question Question
XL 2021 filtre addition occurrence
Réponses
10
Affichages
329
chris
M
  • Résolu(e)
XL 2021 SommeProd
Réponses
2
Affichages
236
marc.as
M
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
312
Nico Gre
N
D
  • Question Question
XL 2019 repartir une quantite dans plusieurs cellules
Réponses
6
Affichages
178
dshz
D
  • Question Question
Microsoft 365 Associer une variable à une couleur dans des graphiques excel à plusieurs feuilles
Réponses
13
Affichages
710
Hecatonchire
H
F
  • Question Question
Microsoft 365 Faire une MFC avec pour condition la couleur d'une des cellules d'une plage.
Réponses
9
Affichages
238
nullosse
N
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
370
Cousinhub
C
  • Question Question
Microsoft 365 fonction max renvoie la colonne
Réponses
3
Affichages
186
Gégé-45550
N
  • Question Question
Microsoft 365 modifier un evenement du calendrier outlook via vba(excel)
Réponses
4
Affichages
194
mromain
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…