Création d un algorithme spécifique

Bonjour à toutes et à tous,

Je travaille dans le domaine de la réception, le stockage et l expédition de vêtements pour plusieurs grandes marques et je me trouve face à un problème.

A la fin de chaque saison, nous recevons les vêtements des boutiques et normalement chaque envoi est accompagné d un bon indiquant le magasin, les références des vêtements ainsi que le nombre mais parfois ce bon est absent et donc cela devient compliqué de retrouvé le magasin concerné. Pour info une saison équivaut à peu près à 250 000 pièces à réceptionner.

Je désirerais donc trouver une formule pour réussir à croiser les informations.

Nos logiciels actuels nous permettent de retrouver tout les colis comprenant un article précis grâce au code barre de ce dernier mais il peu y en avoir jusqu a 400. Je pense qu en croisant plusieurs code barre d articles (3 ou4), l on pourrait trouver un colis commun. Mais je ne vois pas trop comment faire.

Avez vous des idees ?

Merci

bonjour,

votre tableau avec ces données, il a quel layout ?

Pour l instant il est vierge c est à moi de le créer.

Je pensais scanner mon code barre sur mon logiciel pour avoir les références de tous les colis puis copier coller les réf dans une colonnes Excell. Faire de même pour 2 ou 3 code barre tout en copiant collant sur les colonnes suivantes, puis créer une formule capable de détecter la réf commune à toutes les colonnes

donc au début de la saison, vous avez un tableau avec 250K de barcodes différents qui correspondent chaqu'un avec un magasin et à la fin de la saison, dès que vous voyez un barcode, vous voulez savoir le magasin ?

Pas tout à fait.

En fait partons sur un exemple de 500 magasins qui nous envoie chacun entre 1 et 30 colis contenant entre 8 et 40 pièces. Sur chaque colis doit être précisé l expéditeur ainsi que la liste des vêtements. Mais parfois la liste est manquante donc aucun moyen de savoir d ou viens ce colis.

A L intérieur de chaque colis, chaque vêtement a son propre code barre mais des vêtements identiques peuvent se trouver dans différents cartons. J ai la possibilité, en tapant ce code barre dans mon logiciel, de savoir quel(s) carton(s) contiennent cet article. Mais ça peux m en indiquer plusieurs dizaines. En réussissant à recouper avec plusieurs code barre et donc plusieurs listes de cartons. J aimerais pouvoir par une fonction retrouver quel cartons sera identique dans toutes les listes soit quel unique carton peut contenir les vêtements retrouver dans celui ci. Je ne sais pas si c est très clair.

pas vraiment difficile, quel est votre version de excel ?

a gauche tous les retour date&magasin& colli& vetement(barcode)

au milieu, liste de quelque vetements

à droite, les magasin avec un colli avec ce contenu

Sub collis()
     Dim Res()

     Set dict = CreateObject("scripting.dictionary")     'dictionary comme cahier de brouillon
     dict.CompareMode = vbTextCompare

     a = Sheets("blad1").ListObjects("TBL_Retour").DataBodyRange.Value2     'vos retours
     For i = 1 To UBound(a)     'boucle ces données
          s = a(i, 2) & "|" & a(i, 3)     'clef=magasin & colli
          If Not dict.exists(s) Then dict(s) = s     'commence avec magasin & colli
          dict(s) = dict(s) & "|" & a(i, 4) & "|"     'ajouter barcode vetement
     Next
     fl = dict.items     'tous les combinasons magasin & colli

     a = Sheets("blad1").ListObjects("TBL_echantillon").DataBodyRange.Value     'liste de quelques barcodes
     For i = 1 To UBound(a)
          If Len(a(i, 1)) > 1 Then fl = Filter(fl, "|" & a(i, 1) & "|", 1, vbTextCompare)  'filter tous les colis avec ce barcode
          If UBound(fl) = -1 Then Exit For     'arrete s'il n'y a plus de magasin
     Next

     If UBound(fl) > -1 Then
          ReDim Res(0 To UBound(fl), 2)
          For i = 0 To UBound(fl)
               sp = Split(fl(i), "|", 3, vbTextCompare)
               For j = 0 To Application.Min(2, UBound(sp)): Res(i, j) = sp(j): Next
          Next
     End If

     With Sheets("blad1").ListObjects("TBL_magasin")
          If .ListRows.Count Then .DataBodyRange.Delete
          If UBound(fl) > -1 Then .ListRows.Add.Range.Range("A1").Resize(UBound(fl) + 1, 3).Value = Res
     End With

End Sub