VBA Calcul depuis intervalle de dimension#2

Bonjour,

Je sollicite votre aide car je suis face à un problème que je n'arrive pas à résoudre.

Je vous explique en détail ce que je désire faire.

* Sur la feuille "cable" j'ai :
- de U3 à U27 la plage de cellule correspondant à la dimension DIM 1 (longueur)
- de UV à V27 la plage de cellule correspondant à la dimension DIM 2 (largeur)

* Sur la feuille "Données pr calcul" apparaissent les prix en fonction de la dimensions désirée en dim1 et dim2 (voir lien plus bas)

Je souhaite que lorsque sur la feuille "cable" les cellule U3 (dim1), V3 (dim2) et T3 (quantité) sont complétées, (c'est le cas dans le fichier) le prix d'achat (contenu dans la feuille "Données pr calcul" en colonne G) correspondant à la dimension demandée apparaîsse en W3.

Si lorsque dans la colonne J un prix supérieur à 0 apparait il ne faut pas aller chercher l'information dans la feuille "Données pr calcul"

Si en J le prix est égal à 0 alors il faut passer la feuille "Données pr calcul".
Mon problème est qu'en fonction de l'article le prix d'achat peut être plus difficile à recopier en automatique à cause de l'intervalle de dimensions.

* Article simple : Prix d'achat = Dim1 * Quantité souhaitée

* Article complexe : Prix d'achat = Dim1 et Dim2 * Quantité souhaitée

Il est possible de se baser sur le fournisseur et sur l'article, pour rechercher les informations d'une feuille à l'autre (les autres informations peuvent ne pas être identiques).

J'ai mis une seconde feuille du même type que "cable", intitulée "habillage" car dans mon fichier final il y a 7 feuilles du même type dans lesquelles les articles sont groupés par famille.

https://www.cjoint.com/?hCl22Rr4tx

Une précédente demande avait résulté par la proposition de ce code par un membre du forum, la solution qu’il apporte est proche de ce que je recherche. Malheureusement je ne sais comment l’utiliser donc je ne peux la tester.

Option Explicit

Function tarif(Fnissr As String, Désignation As String, Ref As String, dim1 As Variant, dim2 As Variant, GrilleTarif As Range) As Variant
Dim lig As Long, p As Long, ok As Boolean, nok As Boolean
'tous les champs doivent être saisis
If dim1 = vbEmpty Or dim2 = vbEmpty Then
tarif = ""
ElseIf Fnissr = "" Or Désignation = "" Or Ref = "" Then
tarif = ""
ElseIf GrilleTarif.Columns.Count <> 6 Then
tarif = "plage GrilleTarif non conforme"
Else
'recherche du tarif
For lig = 1 To GrilleTarif.Rows.Count
If Ref = GrilleTarif.Cells(lig, 3) Then
If Fnissr = GrilleTarif.Cells(lig, 1) Then
If Désignation = GrilleTarif.Cells(lig, 2) Then
'test dim1
ok = False
p = InStr(GrilleTarif.Cells(lig, 4), "-")
If p > 0 Then
ok = dim1 >= CDbl(Left(GrilleTarif.Cells(lig, 4), p - 1)) And dim1 <= CDbl(Mid(GrilleTarif.Cells(lig, 4), p + 1))
Else
ok = dim1 <= GrilleTarif.Cells(lig, 4)
End If
'test dim2
If ok Then
p = InStr(GrilleTarif.Cells(lig, 5), "-")
If p > 0 Then
ok = dim2 >= CDbl(Left(GrilleTarif.Cells(lig, 5), p - 1)) And dim2 <= CDbl(Mid(GrilleTarif.Cells(lig, 5), p + 1))
Else
ok = dim2 <= GrilleTarif.Cells(lig, 5)
End If
If ok Then
tarif = GrilleTarif.Cells(lig, 6)
'tarif trouvé, terminer la boucle
lig = GrilleTarif.Rows.Count
End If
End If
End If
End If
End If
Next lig
If Not ok Then tarif = "Tarif inconnu"
End If
End Function

Merci d’avance pour votre aide.
Cordialement

Sam357