Comment faire un comparateur de prix ?

[fragglerock]

Bonjour,
Je recherche de l’aide pour faire un comparateur de prix entre différents fournisseurs, le fichier excel contient environ 100 000 références .
Ce fichier je veux pouvoir comparer les produits toutes les semaines, dès que je reçois les nouveautés, les réassorts, les ruptures de stocks…etc de mes différents fournisseurs.
Mon besoin :

1. Mon besoin c’est de mettre déjà tous les produits au même format ( police, gras , texte dans la cellule barcode et rajouter 0 pour obtenir 13 chiffres dans la cellule….etc ), le fichier ci-joint est au format voulu .
2. Mettre dans la colonne L le prix en Euros .
3. Le but est de comparer les colonnes C-D-E-F dès qu’il a au moins de cellules identiques la comparaison peut se faire x le nombre de ligne .
4. Mettre dans la colonne M, le résultat de la comparaison . Il faudra mettre dans la colonne M , pour le moins cher = 1 et en suivant 2 , 3 ....etc suivant le nombre de ligne comparée.

Voilà en espérant avoir été assez clair , mais n'hésitez pas à me contacter le cas contraire .

Merci pour votre aide .
Philippe

[helas]

Bonjour,
Je le verrai par une macro mais il y a peut-être mieux

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub Resultat()
 Dim c As Object, ligne As Long, code As String, prix As Long
 
 ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("F:F") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
 ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("L:L") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A:M")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
  End With
 
  With ActiveWorkbook.Worksheets("Feuil1")
   ligne = 2: n = 1
   code = .Cells(ligne, 3) & .Cells(ligne, 4) & .Cells(ligne, 5) & .Cells(ligne, 6)
   Do Until .Cells(ligne, 5) = ""
     If code = .Cells(ligne, 3) & .Cells(ligne, 4) & .Cells(ligne, 5) & .Cells(ligne, 6) Then
       .Cells(ligne, 13) = n
     Else
       code = .Cells(ligne, 3) & .Cells(ligne, 4) & .Cells(ligne, 5) & .Cells(ligne, 6)
       n = 1
       .Cells(ligne, 13) = n
     End If
     n = n + 1
     ligne = ligne + 1
   Loop
  End With
End Sub