interrogation de données dans plusieurs feuilles + correspondance entre deux FICHIERS

[p2zouille]

Bonjour le forum,

Je bloque sur un programme:

J'ai un premier classeur excel avec plusieurs feuilles (représentant mes machines, 1 feuille = 1 machine de production) dont la présentation est exactement similaire:
pour une ligne, j'ai un numéro d'opération, un nom de projet, une pièce, une date

J'ai un deuxième classeur avec 1 feuille avec chaque ligne contient:
un numéro d'opération, un nom de projet, une pièce, une date, une machine

Si dans les deux classeurs, on ne retrouve pas: projet - pièce - date - machine;
créer la ligne à la bonne date dans le deuxième classeur.

Merci pour ce précieux support

 

[mikachu]

Re : interrogation de données dans plusieurs feuilles + correspondance entre deux FIC

Bonjour,

Un fichier joint pour nous aider à comprendre / résoudre le problème ?

 

[p2zouille]

Re : interrogation de données dans plusieurs feuilles + correspondance entre deux FIC

Voici une idée de l'algo recherché:

sub algorithme ()

Dim i as integer 'variable boucle lecture des "suivi_pièce"
Dim cherche_p as intéger 'variable boucle lecture "nouvelle feuille"

A partir du fichier "suivi_pièce"

1. Créer "nouvelle feuille outil"

2. Reconnaitre n° pièce "A20122609" (c'est le fichier de suivi - "suivi_pièce" - de la pièce A20122609)

3. Ouvrir tous les fichiers "suivi_machine", soit les 5 fichiers

3-bis ouvrir un fichier ini qui indique la derniere ligne lue dans chaque "suivi_pièce"

4. Lire les fichiers à partir de la derniere ligne lue (un par un, ==> boucle)
Si Trouve "A20122609"
donc Ecrire la ligne contenant "A20122609"dans "nouvelle feuille outil"

5. Chercher dans "nouvelle feuille outil"
Si Trouve "date d'usinage" de "nouvelle feuille" = "date d'usinage" de "suivi_pièce"
& "type de correction" de "nouvelle feuille" = "date d'usinage" de "suivi_pièce"
& "machine" de "nouvelle feuille" = "machine" de "suivi_pièce"
& "Face Usinée" de "nouvelle feuille" = "Face Usinée" de "suivi_pièce"
donc Rien
Sinon Copie ligne inexistante dans "suivi_pièce"

6. Tri par "date d'usinage" les lignes dans "suivi_pièce"

7. Ecrire dans le fichier ini la derniere ligne lue

8. Supprimer la "nouvelle feuille outil"

End algorithme