Afficher liste - critère

Salut les amis

je voudrais afficher la liste de clients dont les quantités achetées sont supérieures à 1200

Merci d'avance

Bonjour

Ta demande est un peu succinte, je te propose ceci qui produit le résultat attendu.

Celà dit si tu veux un jour afficher autre chose que Q>1200, il te faudra modifier la macro...

Cdt

bonjour

voila

cordialement

Bonjour,

Bonjour tulipe_4,

Une proposition insipide à base de TCD.

Cdlt.

bonjour Jean-Eric

je te propose de remplacer "insipide" par "helas prefabiquée" ; tu peux meme rajouter " nettement plus performantes que les matricielles et autres à la moirmoile; de l'has been fleuri neerlandais "

cordialement

Re,

tulipe_4,

Laissons le choix de la solution à Nismo.

Il y a de grandes chances qu'il soit allergique aux TCDs.

Cdlt

Bonjour les amis

Merci beaucoup pour vos réponses

comme l'a dit Jean-Eric je suis pas fan des tcd

bref par rapport à vos propositions Hélas c'est pas exactement ce que je voulais ::

Regardez le fichier

"H5" doit contenir la somme des achats :

cas Patrick = 1400+544,1 =1944,1

Merci d'avance

Re,

Ma proposition préfabriquée prenait en compte ce petit détail.

Je laisse donc à d'autres le soin de te répondre avec une formule matricielle alambiquée.

Cdlt.

bonjour,

Une macro (merci boisgontier) qui fait ce que tu demandes

YAPUKA supprimer les lignes du bas...

Sub SousTotal()
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range("C4", [C65000].End(xlUp))
      mondico(c.Value) = mondico(c.Value) + c.Offset(, 1).Value
   Next c
   [G4].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
   [H4].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
   [H3].Sort Key1:=[H4], Order1:=xlDescending, Header:=xlYes
 End Sub

A+

Merci galopin01 , Génial !!

Merci à tous :

Qui est boisgontier?

bonsoir,

Qui est boisgontier ?

La bible Excel/VBA

A+

cool

ta formule marche très bien mais je voudrais que les résultats s"affiche dans une autre feuille ! possible?

re

en voila de l'alambiqué

cordialement

bonsoir,

La même avec une sortie en Feuil3

Sub SousTotal()
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range("C4", [C65000].End(xlUp))
      mondico(c.Value) = mondico(c.Value) + c.Offset(, 1).Value
   Next c
   With Worksheets("Feuil3")
   .[G4].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
   .[H4].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
   .[H3].Sort Key1:=.[H4], Order1:=xlDescending, Header:=xlYes
   End With
 End Sub

A+

Salut mon ami galopin01

je voudrais ajouter une condition à la macro , la condition des quantités c'est déja fait

plus une deuxième condition :

les distance doivent être supérieures à 100km

ps : je voudrais que le tableau s"affiche au complet avec la ville et le dépôt ..etc dans une autre feuille

Merci beaucoup pour ton aide

Bonjour,

La lecture de la bible ça t'inspire pas hein !

Dim d1
 Sub Stat()
   Set d1 = CreateObject("Scripting.Dictionary")
   Set f1 = Sheets("données")
   NCol = 8
   a = f1.[a1].CurrentRegion.Offset(, 4).Resize(, 8)
   Totalise a
   Set F2 = Sheets("result")
   f1.[a1].Resize(, 12).Copy F2.[a1]
   F2.[E2].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
   F2.[F2].Resize(d1.Count, NCol - 1) = Application.Transpose(Application.Transpose(d1.items))
   F2.[K1].Sort Key1:=F2.[K2], Order1:=xlDescending, Header:=xlYes
   F2.Activate
 End Sub
Sub Totalise(a)
   ReDim Titem(1 To UBound(a, 2)) ' table des items d'une clé
   For ligne = 2 To UBound(a)
     crit = a(ligne, 1)
     If Not d1.exists(crit) Then For k = 1 To UBound(a, 2): Titem(k) = 0: Next k: d1(crit) = Titem
     For k = 1 To UBound(a, 2): Titem(k) = d1.Item(crit)(k): Next k
     For col = 2 To UBound(a, 2)
       If a(ligne, col) <> "" Then Titem(col - 1) = Titem(col - 1) + Val(a(ligne, col))
     Next col
     d1.Item(crit) = Titem
   Next ligne
 End Sub

Attention au Dim d1 avant la Sub Stat()

Les feuilles ont été renommées "données" et "result"

Pour la ville et le dépôt je te laisse le bricolage...

A+

Merci beaucoup !