Problème pour traduire une fonction Excel en VBA [Résolu]

[Magic_Doctor]

Bonjour,

Dans ma feuille j'ai rédigé cette fonction (intrication de fonctions) qui marche :

=MIN(DECALER($B$5;1;2;EQUIV($C$2;$B$6:$B$38;0)))

J'ai tenté de la traduire pour une macro :

Sub zaza()

Dim myRange As Range, pos, b
Dim mini As Double


Set myRange = Worksheets("Tableaux").Range("B6:B38")
pos = Application.WorksheetFunction.Match([C2], myRange, 0) 'OK
b = Application.WorksheetFunction.Offset([B5], 1, 2, pos) 'ça coince

mini = Application.WorksheetFunction.Min(b)

End Sub

Comment s'y prendre ?

 

[Magic_Doctor]

Re,

Difficile de répondre immédiatement.

Super cette nouvelle fonction que j'adopte ipso facto. Un peu voir ce que c'est ce Switch que je ne connais pas. Mais au plus c'est bref au mieux c'est !
Concernant le fameux post#11, le problème est que ça englobe TOUJOURS toute la hauteur de la colonne.
Dans le cas de figure de la PJ, ça marche pour mini, mais pas pour maxi.
J'ai tout colligé dans la PJ.