fusion de liste un peu spécial

[maguetlolo]

Bonjour à tous

je reviens vers vous pour un probleme de fusion de liste
Imaginons cette liste:

Date / Heure / Défaut / N° d'article
08/01/08 / 14:15:15 / 100 / 031765414698756357
08/01/08 / 14:35:24 / 150 / 031765414698756357
08/01/08 / 14:45:01 / 245 / 031765414698756357
08/01/08 / 18:45:24 / 154 / 031765414698756357
08/01/08 / 20:15:12 / 214 / 031765414698756357

et imaginons cette autre liste :

Date / Heure / processus / N° d'article

08/01/08 / 14:10:12 / entrée / 031765414698756357
08/01/08 / 18:40:10 / sortie / 031765414698756357


Il me faut fusionner ces deux listes afin de savoir si les défauts concernant le processus d'entrée de l'article en stock ou le processus de sortie et donc obtenir :


Date / Heure / Défaut / N° d'article / processus
08/01/08 / 14:15:15 / 100 / 031765414698756357 / entrée
08/01/08 / 14:35:24 / 150 / 031765414698756357 / entrée
08/01/08 / 14:45:01 / 245 / 031765414698756357 / entrée
08/01/08 / 18:45:24 / 154 / 031765414698756357 / sortie
08/01/08 / 20:15:12 / 214 / 031765414698756357 / sortie

A savoir bien sur qu'il peut y avoir plusieurs jours entre l'entrée et la sortie de l'article ou bien quelques heure, ou carrément quelques minutes. et également, dans ma vrai liste, il peut y avoir jusque 50 000 N° d'article (soit 50 000 lignes)
Je me doute que je suis peut-être un peu gourmand, mais sait'on jamais certains disent que l'on peut tout faire en VBA!!

 

[ninbihan]

Re : fusion de liste un peu spécial

Bonsoir à tous,

Un essai avec zone nommée et sommeprod...


Bonne soirée,

Ninbihan

 

[maguetlolo]

Re : fusion de liste un peu spécial

bonsoir,

je pense qu'il me faut une macro car il y a plus de 150 000 lignes de processus sur plusieur pages, merci a toi mais ca ne va malheureusement pas suffir.

a+

 

[ninbihan]

Re : fusion de liste un peu spécial

Bonjour,


Alors un essai en VBA...

Bonne journée,


Ninbihan

 

[maguetlolo]

Re : fusion de liste un peu spécial

Bonjour,

ca a deja l'air pas mall, le truc, c qu'il va y avoir 1 feuille de liste de defaut et une feuille par jour de processus ' nommées: processus (1) pour le 1 er du mois etc.

 

[ChTi160]

Re : fusion de liste un peu spécial

Salut maguetlolo
Bonsoir le fil
Bonsoir le Forum

En pièce jointe une autre version VBA qui traite toutes les feuilles du Classeur qui contiennent Dans leur Nom le Mot "processus"

à tester et à adapter surement

Le Fichier : Regarde la pièce jointe processus defautV1.zip

Bonne fin de Soirée

 

[ninbihan]

Re : fusion de liste un peu spécial

Re,
Salut Chti160

Juste un essai en déterminant la feuille source à partir du jour du défaut

Sub process()
Dim Source As Variant
With Sheets("défaut")
For Each Cell In .Range("A2:A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row)
Source = Sheets("processus(" & Day(Cell) & ")").Range("A1").CurrentRegion
Cell.Offset(0, 3).ClearContents
    For i = 1 To UBound(Source)
        If Cell.Offset(0, 2) = Source(i, 3) And Cell >= Source(i, 1) And Cell <= Source(i, 2) Then
            Cell.Offset(0, 3) = Source(i, 4)
            Exit For
        End If
    Next i
Next Cell
End With
Erase Source
End Sub

Bonne fin d'après midi,

Ninbihan

 

[maguetlolo]

Re : fusion de liste un peu spécial

Re,
Salut Chti160

Juste un essai en déterminant la feuille source à partir du jour du défaut

Sub process()
Dim Source As Variant
With Sheets("défaut")
For Each Cell In .Range("A2:A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row)
Source = Sheets("processus(" & Day(Cell) & ")").Range("A1").CurrentRegion
Cell.Offset(0, 3).ClearContents
    For i = 1 To UBound(Source)
        If Cell.Offset(0, 2) = Source(i, 3) And Cell >= Source(i, 1) And Cell <= Source(i, 2) Then
            Cell.Offset(0, 3) = Source(i, 4)
            Exit For
        End If
    Next i
Next Cell
End With
Erase Source
End Sub

Bonne fin d'après midi,

Ninbihan

j'ai un défaut: l'indice n'appartient pas a la selection

 

[ninbihan]

Re : fusion de liste un peu spécial

Re,

Comment sont nommées tes feuilles ?
processus (1) ou processus(1)

 

[maguetlolo]

Re : fusion de liste un peu spécial

c "Defaut" et "Processus (1)" je fait la rectif tt de suite

 

[maguetlolo]

Re : fusion de liste un peu spécial

c bon, ca marche, je marque "résolu", un grand merci a tous
a+

 

[ChTi160]

Re : fusion de liste un peu spécial

Re
Bonsoir ninbihan
Effectivement, Très bonne Idée
Bonne fin de soirée