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

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 ?

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