MACRO - extraction avec condition

Fermé
americ33 - 4 mars 2010 à 13:50
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 8 mars 2010 à 21:24
Bonjour,

Je souhaiterais extraire une base de données via une macro, avec 2 conditions.
Le 1er type de fichier excel est un extract par jour:
extract_20100303
extract_20100304
extract_20100305

Dans chaque extract, il y a un seul onglet ("base"), avec en colonne A, plusieurs types de produits (ex: acc, lsd, etc.).
Et en colonne H, un indicateur: 0 ou 1.

Puis dans un autre fichier, je souhaiterais reconstruire la base de données en fonction des 2 conditions.
Le but final étend d'avoir, dans un fichier excel, toute la base de donnée de "acc", indicateur 0, jour par jour.
Dans un autre fichier, "acc", indicateur 1, jour par jour.
Dans un autre fichier, "lsd", indicateur 0, jour par jour.
Dans un autre fichier, "lsd", indicateur 1, jour par jour.
etc.
En lien, un peu plus d'explications:
http://www.cijoint.fr/cjlink.php?file=cj201003/cijaY85HEx.pdf

En vous remerciant par avance pour votre aide,
A voir également:

3 réponses

Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 1 452
4 mars 2010 à 22:43
Bonjour,
Une idée, une procédure qui boucle sur la base de donnée et selon le produit copie les données dans le classeur adéquat.
0
Merci pour cette bonne idée.
Faut-il avoir de solides connaissances en informatique pour faire une boucle?
Bonne journée,
0
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 1 452
8 mars 2010 à 21:24
Bonjour,
Non certainement pas, voici une procédure comme exemple (somme des nombres entre 3 et 7):
Sub Nombre()
'en colonne A chiffre de 1 à 10
For c = 1 To 10
 If (Cells(c, 1) > 3 And Cells(c, 1) < 7) Then
    addition = addition + Cells(c, 1).Value
 End If
Next c
' Afficher le résultat
MsgBox " la somme est de : " & addition
End Sub
--

Salutations.
Jean-Pierre
0