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

alternative vba à sommeprod

Sylvain59

XLDnaute Occasionnel
Dans le fichier joint j'ai des nome en doublon sur la premiere feuille

avec une macro j'extrait une liste sans doublon sur la deuxieme

maintenant j'ai commencé a fairela calcul avec sommeprod pour additionner

les valeurs de chacun est -il possible de le faire avec une macro car j'aurai plusieurs feuilles du même type a traiter et mon fichier va enfler

est-il possible de la faire sur la feuille "collection" mais dans ce cas il faudra trier la liste sur place pour ôter les doublons sur cette feuille; ou à défaut sur "pour extraction"
D'avance merci à tous ceux qui voudront se pencher sur mon problème
 

Pièces jointes

  • essai.zip
    22.2 KB · Affichages: 35
  • essai.zip
    22.2 KB · Affichages: 32
  • essai.zip
    22.2 KB · Affichages: 34

jp14

XLDnaute Barbatruc
Re : alternative vba à sommeprod

Bonsoir
une question
Quand on trouve des doublons doit-on ajouter les valeurs ?

JP
 

jp14

XLDnaute Barbatruc
Re : alternative vba à sommeprod

Bonsoir

Ci joint le fichier avec une macro dans la feuille "pour extraction" pour supprimer les doublons et faire la somme des valeurs.

A tester

JP
 

Pièces jointes

  • essai.zip
    30.4 KB · Affichages: 68
  • essai.zip
    30.4 KB · Affichages: 67
  • essai.zip
    30.4 KB · Affichages: 64

Sylvain59

XLDnaute Occasionnel
Re : alternative vba à sommeprod

Je suis très impressionné et si j'ai bien compris je peux l'appliquer a des fichiers qui auront plus de 14 colonnes et c'est exactement ce que je recherche

Merci
 

jp14

XLDnaute Barbatruc
Re : alternative vba à sommeprod

Bonjour

Si le nombre de colonne est supérieur à 14 il faut modifier la valeur 13 de la ligne :
.................................
Else ' doublon on ajoute les valeurs
For j = 2 To 13
...........

JP
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…