Regouper automatique et calcul
Bonjour, à partir de cet extraction je souhaite un calcul automatique qui me permettrait de regrouper les clients et les valeurs dépensées
SECTEUR AnCo CLIENTS Nom 1 VALEURS
2144654 2005 15065141 PIVOINE 144,02
2469517 2006 15065141 PIVOINE 67,70
2836023 2007 15065141 PIVOINE 51,45
2835770 2007 15065141 PIVOINE 51,45
2049402617 2002 TULIPE 0,00
1349890 1985 15000643 TULIPE 80,84
3272558 2008 15000643 TULIPE 377,99
3272391 2008 15000643 TULIPE 377,99
3268976 2008 15000643 TULIPE 389,27
1877288 2005 15079085 PENSEE 60,71
2625668 2006 15079085 PENSEE 235,88
2625772 2006 15079085 PENSEE 235,88
1349680 2004 15079085 PENSEE 311,46
1349692 2004 ROSE 0,00
1492116 2004 15051505 ROSE 95,68
2730042 2006 15078118 ROSE 207,51
1014499 2003 15078118 ROSE 93,22
1014477 2003 15078118 ROSE 176,78
1349722 2004 BLEUET 0,00
2781098 2007 15291679 BLEUET 73,00
2781350 2007 15291679 BLEUET 73,00
2780979 2007 15291679 BLEUET 73,00
2781348 2007 15291679 BLEUET 73,00
2781096 2007 15291679 BLEUET 73,00
1004026 2003 JONQUILLE 0,00
2049403014 2002 JONQUILLE 0,00
2314630 2006 15294430 JONQUILLE 119,17
Synthèse de regroupement voulu sachant que la liste de NOMS est importante
SECTEUR AnCo CLIENTS Nom 1 VALEURS
PIVOINE 51,45
TULIPE 389,27
PENSEE 311,46
ROSE 176,78
BLEUET 73,00
JONQUILLE 119,17
Vous remerciant par avance et encore merci à Tibo,Annette,Souri84
Bonjour
on imagine que tu as dans la colonne 1 ( 1seule colonne)
2144654 2005 15065141 PIVOINE 144,02
2469517 2006 15065141 PIVOINE 67,70
2836023 2007 15065141 PIVOINE 51,45
2835770 2007 15065141 PIVOINE 51,45
2049402617 2002 TULIPE 0,00
1349890 1985 15000643 TULIPE 80,84
3272558 2008 15000643 TULIPE 377,99
3272391 2008 15000643 TULIPE 377,99
3268976 2008 15000643 TULIPE 389,27
1877288 2005 15079085 PENSEE 60,71
2625668 2006 15079085 PENSEE 235,88
2625772 2006 15079085 PENSEE 235,88
1349680 2004 15079085 PENSEE 311,46
1349692 2004 ROSE 0,00
1492116 2004 15051505 ROSE 95,68
2730042 2006 15078118 ROSE 207,51
1014499 2003 15078118 ROSE 93,22
1014477 2003 15078118 ROSE 176,78
1349722 2004 BLEUET 0,00
2781098 2007 15291679 BLEUET 73,00
2781350 2007 15291679 BLEUET 73,00
2780979 2007 15291679 BLEUET 73,00
2781348 2007 15291679 BLEUET 73,00
2781096 2007 15291679 BLEUET 73,00
1004026 2003 JONQUILLE 0,00
2049403014 2002 JONQUILLE 0,00
2314630 2006 15294430 JONQUILLE 119,17
voici le code
Sub colonnage()
l = 1
c = 1
Dim tab1
Set tab1 = CreateObject("Scripting.Dictionary")
While Cells(l, c) <> 0
txt = Trim(Cells(l, c))
tmp = Split(txt, " ")
prix = tmp(UBound(tmp))
fleur = tmp(UBound(tmp) - 1)
If tab1.exists(fleur) Then
tab1(fleur) = 0 + tab1(fleur) + prix
Else
tab1(fleur) = 0 + prix
End If
l = l + 1
Wend
'------------------------------------------
' ecriture du résultat
'------------------------------------------
l = 1
c = 3
For Each fleur In tab1
Cells(l, c) = fleur
Cells(l, c + 1) = tab1(fleur)
l = l + 1
Next
End SubBonjour
Tu veux extraire le total dépensé par chacun ou autre chose?
Si c'est pour avoir le total,
https://www.excel-pratique.com/~files/doc/qD62XClasseur1.xls
A te lire
Cordialement