VBA - Convertir formule

[Fchris]

Bonjour à tous,

J'ai la formule suivante que j'aimerais convertir en VBA :

=RECHERCHEV(A36;$R$5:$U$44;2+SI($E$5>=50;1;0)+SI(ET($U$4<>0;E5>55);1;0);FAUX)

J'ai essayé d'utiliser la fonction VLookUp, mais sans succès :

application.WorksheetFunction.VLookup(cells(36,1),range("R5:U44"),2+If(cells(5,5)>=50,1,0)+if(cells(4,21)<>0 and cells(5,5)>55),1,0),false)

Est-ce que quelqu'un pourrais m'aider à corriger le code ci-dessus pour qu'il puisse fonctionner ?

Merci par avance

 

[Fchris]

Re : VBA - Convertir formule

ah ben oui,
VRAI vaut 1 en Excel
True vaut -1 en VBA

essaye :

MsgBox Application.WorksheetFunction.VLookup(ActiveSheet.Cells(36, 1), ActiveSheet.Range("R5:U44"), 2 + (ActiveSheet.Cells(5, 5) >= 50) * -1 + (ActiveSheet.Cells(4, 21) <> 0 And ActiveSheet.Cells(5, 5) > 55) * -1, False)

C'est bon Tototiti, tu as trouvé !!! Ca fonctionne nickel ::

Merci beaucoup de ton aide. Je vais pouvoir continuer à avancer sur mon projet, mais je pense que je reviendrai chercher de l'aide et promis, je reprendrai ce fil...

Encore merci