Salut le Fil,
J'étais dessus en même temps que SergiO...
Je donnes aussi ma sol puisqu'elle est prête.
Créer une fonction personnalisée :
Function Ecart(strCode As String, Result As Long) As String
Dim I As Integer, TestCode As String, ValeurRef As Long
ValeurRef = 0
For I = 2 To 9
TestCode = Mid(Range('A' & I).Value, 2, Len(Range('A' & I).Value) - 2)
If Left(strCode, Len(TestCode)) = TestCode Then
ValeurRef = Range('B' & I).Value
Exit For
End If
Next I
If ValeurRef > 0 Then
Select Case Result
Case Is < ValeurRef - (ValeurRef * 0.05): Ecart = 'Inférieur'
Case Is > ValeurRef + (ValeurRef * 0.05): Ecart = 'Supérieur'
Case Else: Ecart = 'OK'
End Select
Else
Ecart = 'Réf. non trouvée'
End If
End Function
Voir aussi le fichier modifié annexé. [file name=Book1_20051024122413.zip size=8277]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Book1_20051024122413.zip[/file]