Sujet Précédent Sujet Suivant

Comment combiner les montants par VBA

Résolu/Fermé
Linedolc Messages postés 12 Date d'inscription vendredi 19 août 2016 Statut Membre Dernière intervention 18 octobre 2017 - Modifié par Linedolc le 19/08/2016 à 21:51
 linedolc - 24 août 2016 à 15:14
Bonjour,

J'ai une question concernant comment combiner les montants par VBA. Voici les détails:

Month Group Name Amount Age Sex Rate
avr-16 ABC001 Mary 100 000 40 F 0.5
avr-16 ABC001 Mary 200 000 40 F 0.5
avr-16 CDE002 Jack 250 000 30 M 0.38
avr-16 CDE003 Mark 400 000 50 M 0.6

Mon objectif est:
1. Trouver les doublons (par Group et Name, comme Mary dans ce cas);

2. Calculer la somme de Amount pour les doublons (100 000+200 000), mais la somme 300 000 apparaît seulement sur 1 ligne et une autre ligne devient 0.Le reste de champs ne changent pas.

Month Group Name Amount Age Sex Rate
avr-16 ABC001 Mary 300 000 40 F 0.5
avr-16 ABC001 Mary 0 40 F 0.5
avr-16 CDE002 Jack 250 000 30 M 0.38
avr-16 CDE003 Mark 400 000 50 M 0.6

Merci beaucoup!

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
22 août 2016 à 18:54
Bonjour

"j'aimerais bien de mettre la somme de Mary 1171 directement dans la cellule D2 pour remplacer le montant 1 et le reste de montant pour Mary devient 0 sur la colonne D"
Il te suffisait de changer la colonne coRes comme indiqué dans le commentaire
Const coAmo = 4
Const coRes = coAmo ' mettre coAmo si OK pour remplacer la colonne coAmo

http://www.cjoint.com/c/FHwqZMYgpnn

Cdlmnt
1
linedolc
23 août 2016 à 22:04
Bonjour,

Merci beaucoup de votre aide. Ça marche très bien!

J'essaie d'ajouter une fonction de tri selon la colonne Group et Name, mais la ligne d'en-tête toujours descend à la fin. Est-ce qu'il y a de possibilité de figer l'en-tête et faire le tri pour les données ? Voici ce que j'ai écrit:

Range("A:D").Sort KEY1:=Range("c1")
Range("A:D").Sort KEY1:=Range("B1")

Merci beaucoup!
0
linedolc > linedolc
24 août 2016 à 15:14
Bonjour,

J'ai trouvé le moyen, donc tout est réglé. Merci beaucoup encore une fois!
0
Réponse 2 / 2
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié par ccm81 le 20/08/2016 à 09:59
Bonjour

Un essai avec ce que j'ai compris
http://www.cjoint.com/c/FHuh32g2Ezn

RQ. avec une colonne supplémentaire (colonne attendu) et un copier/collage spécial/valeurs tu peux te passer de macro

Cdlmnt
0
linedolc
22 août 2016 à 18:46
Bonjour Cdlmnt,

Merci beaucoup pour votre suggestion. Mais je pense que ce serait pas si pratique d'ajouter une colonne supplémentaire pour chaque colonne que je dois y combiner les montants.

Est-ce que c'est possible de modifier les montants directement sur les données originaux? Par exemple dans votre fichier, j'aimerais bien de mettre la somme de Mary 1171 directement dans la cellule D2 pour remplacer le montant 1 et le reste de montant pour Mary devient 0 sur la colonne D.

Merci beaucoup!
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA pour Excel pour les nuls
Hachimoto2891 -
Hachimoto2891 -

2 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses