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

 

[tototiti2008]

Re : VBA - Convertir formule

Bonjour fchris,

change les "if" en "iif" et dis-moi si ça fonctionne

 

[Fchris]

Re : VBA - Convertir formule

Bonjour fchris,

change les "if" en "iif" et dis-moi si ça fonctionne

Non ça ne fonctionne pas, il se positionne sur le ,False
et me dis Erreur de compilation, attendu : "="

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

 

[Fchris]

Re : VBA - Convertir formule

help ...

 

[tototiti2008]

Re : VBA - Convertir formule

en effet, il n'a pas l'air d'aimer les iif ici...

bon, ça fonctionne comme ça à priori :

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

 

[Fchris]

Re : VBA - Convertir formule

Ca ne va pas Tototiti, je n'obtiens pas le même résultat qu'avec la formule...

 

[tototiti2008]

Re : VBA - Convertir formule

essaye en remplaçant tous les "Cells" par "Activesheet.Cells"

 

[Fchris]

Re : VBA - Convertir formule

toujours pareil, je n'ai pas le bon résultat... Je n'y arrive pas

 

[Fchris]

Re : VBA - Convertir formule

toujours pareil, je n'ai pas le bon résultat... Je n'y arrive pas

Il ne doit pas manquer grand chose, mais je n'arrive pas à trouver quoi...

 

[Staple1600]

Re : VBA - Convertir formule

Bonjour


Tu n'aurais pas un fichier exemple à poster (anonymisé et zippé)

Histoire de ne pas avopir à créer un classeur pour tester

 

[tototiti2008]

Re : VBA - Convertir formule

Bonjour Staple,

Le classeur se trouve sur le fil :

https://www.excel-downloads.com/threads/index-equiv-en-vba.105667/

on a changé de fil, je ne sais pas trop pourquoi d'ailleurs...

 

[Staple1600]

Re : VBA - Convertir formule

Bonjour tototiti2008 (merci pour l'info)

Fchris:

En compressant ton fichier , il passe sur le forum

 

[tototiti2008]

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)

 

[Fchris]

Re : VBA - Convertir formule

Le Voici. Je ne l'avais pas mis en ZIP, car fut un temps, si je me souviens bien, tototiti ne pouvais pas ouvrir les fichiers zip...

J'ai changé de fil, car lorsque j'ai posté, tu n'étais plus là tototiti...

 

[tototiti2008]

Re : VBA - Convertir formule

en effet, je ne peux toujours pas ouvrir les zip, gentil de penser à moi

Staple : j'ai fini par réussir à ouvrir un zip sur wobzip.org à partir d'une URL, mais les chemins des zip du forum on l'air d'être trop longs et ceux-là wobzip refuse toujours de les ouvrir... en tout cas merci du tuyau, au moins ça marche parfois