Tri chronologique

[Eric]

Bonjour,

J'importe dans une feuille des valeurs aléatoires en colonnes F avec des quantités correspondantes en colonne G
Je souhaite obtenir :
- en colonne I un tri par ordre croissant des valeurs de F
- en colonne J le total des quantités correspondant
- en colonne K le nombre de fois que les valeurs de F sont apparues en F

Merci d'avance pour votre aide
Eric

 

[Celeda]

Bonjour,

Je pense que tu peux trier tes données directement dans les colonnes F et G, avec le menu données, parce que je ne comprends pas trop la demande .

Pour la deuxième question :

avec =COUNTIF(F10:F13;100) ou NBSI en francais te donnera le nombre de fois qu'une valeur a été inscrite.
soit (laplage;lecritère)

ou alors une autre qu'on voit rarement sur xld et que pour les notions de bases de données mais pour le fun :

BDCount mais il faut procéder différemment : =DCOUNT(F9:F13;F9;H8:H9)
(la plage;la valeur recherchée entête de colonne;les critères)

toujours le même prinicpe au départ : la plage de F9:F13 avec entête de colonnes soit ici le mot Valeur :
Valeur
5
100
100
785

F9= le champ recherché

le petit changement, dans deux autres cellules : les critères sur deux lignes (nommer cette nouvelle plage criteres par exemple si on souhaite travailler avec des noms et on évite ainsi de se tromper) ici representés en H8:H9
soit
Valeur
100

il suffit alors de changer le 100 par le 5 pour connaitre le nombre de fois utilisées.

C'est très efficace pour ressortir des stats sur des grands tableaux.
Les fonctions des bases de données, sont des intermédiaires aux filtres, au sous-total et aussi au TCD pour extraire certaines données.

Celeda

 

[Eric]

Désolé de n'avoir pas été plus clair Celeda.....

Mon problème est qu'en fin de journée, j'ai plus de 400 lignes de remplies
Je souhaite automatiser tout ça à l'aide d'une macro....
J'aimerais donc rapidement par un clic sur un bouton trier mes données initiales en colonne F pour en avoir une liste en I,J et K qui me donnera les valeurs classées par ordre croissant avec le total des quantités correspondantes et le nombre de fois qu'elles apparaissent initialement

 

[Eric]

je vous joins un fichiers Excel en éspérant que qqu'un trouvera une solution....

D'avance merci
Eric

 

[Eric]

sorry, winrar marche pas, j'essaie avec winzip.............. [file name=Tri chronologique_20050415121222.zip size=1734]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri chronologique_20050415121222.zip[/file]

 

[Celeda]

Bonjour,

ah vi en macro :whistle:

ah macro quand tu nous tiens

et bien je suis vraiment désolée mais moi yé sé le faire qu'en TCD inch: directement trié et avec le nombre en un click et deux déplacements de champs mais que veux-tu c'est un TCD.

en attendant la macro


Celeda [file name=TCDTri chronologique_20050415150537.zip size=4144]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TCDTri chronologique_20050415150537.zip[/file]

 

[Eric]

Merci bien Celeda

Malheureusement je n'y connais rien en TCD

Qd j'ai mes données en fin de journée, je clique où pour obtenir ton tableau tout propre

Merci encore


Eric

 

[pat1545.]

Salut,

pour moi la soluce du tcd est tout à fait acceptable et il faut s'y connaitre spécailement.

Un fois le tcd créé (en allant jusqu'à la ligne 1000 pour etre sur) ,
il te suffit de faire un copier / coller des nouvelles données à la place des anciennnes et ensuite de réactualiser ton fichier.

Patrick

 

[pat1545.]

Salut,

essaies ceci

Option Explicit

Sub compter()
Dim cell As Range, Tot As Long
Range('F2').Select
Range('I2:J1000').ClearContents
Selection.CurrentRegion.Select

Selection.CreateNames Top:=True, Left:=False, _
Bottom:=False, Right:=False
Selection.Sort Key1:=Range('F2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

For Each cell In Range('montant')
Tot = cell.Offset(0, 1).Value + Tot
If cell.Offset(1, 0).Value <> cell.Value Then
Range('I32000').End(xlUp)(2).Value = cell.Value
Range('J32000').End(xlUp)(2).Value = Tot
Tot = 0
End If
Next
End Sub

Patrick

 

[Eric]

Merci bien Patrick

Pile poil le truc que je souhaitais
Celeda, merci pour ton aide, je promets que je vais étudier de près les TCD

A bientôt
Eric