extraction de données

[mick27]

Bonjour,

J'ai une nouvelle demande un peu diférente de la première.

J'ai un fichier de données avac les infos suivantes:

Colonne A : la date (jj/mm/aaaa)
Colonne B: le type de magasin ( bat1 ou bat2 etc ....)
Colonne C : une quantité

Je souhaiterai recupérer dans un onglet à part:
par type de magasin les quantités sur les 10 derniers jours et cela automatiquement au fur a mesure des nouvelles saisies.

Je fait cette opération manuellement à partir d'un tableau croisé dynamique ou je viens extraire par copier coller mes valeurs des 10 derniers jours mais cela m'oblige a faire cette manip chaque nouvelle journée.

Au cas ou il y aurait une autre solution je suis preneur.

Merci d'avance pour votre aide.

@+ Mick

 

[mjo]

Re : extraction de données

Bonjour,

=SOMMEPROD((A1:A100>=AUJOURDHUI()-10)*(A1:A100<=AUJOURDHUI())*(B1:B100="bat1")*C1:C100)
La plage A1:C100 est à adapter suivant besoins (par exemple : Feuil1!A3:A50).
"bat1" peut être remplacé par l'adresse d'une cellule contenant cette donnée.

mjo

 

[Eric 45]

Re : extraction de données

Bonjour à tous et Mick et mjo

J'ai une solution qui ne laisse pas de trace au niveau poids de fichier, un petit code, qui peut être raccourci certainement :

Sub copie()
Sheets("Feuil1").Select
Range("a65536").End(xlUp).Select
premligne = ActiveCell.Row
cel1 = "c" & premligne
While ActiveCell.Offset(-i, 0).Value > Date - 10
i = i + 1
Wend
cel2 = "a" & premligne - i
Range(cel1).Name = "cel1"
Range(cel2).Name = "cel2"
Range("cel1:cel2").copy
ActiveWorkbook.Names("cel1").Delete
ActiveWorkbook.Names("cel2").Delete
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.CurrentRegion.Value = "" ''.ClearContents
ActiveSheet.Paste
End Sub

Bien il faut l'adapter suivant les colonnes et les feuilles

A+

Cordialement