Traduire formule en VBA

[hotsauce91]

Bonjour à tous !

Est-il possible detraduire la formule ci-dessous en language VBA :

=SI(OU(C33=0;$B$33=0);0;INDEX(Feuil1!$B$2:Feuil1!$Y$16;EQUIV(C33;Feuil1!$A$2:Feuil1!$A$16;0);EQUIV($B$33;Feuil1!$B$1:Feuil1!$Y$1;0)))

Si oui pourriez vous me la traduire.

Cordialement,

 

[youky(BJ)]

Re : Traduire formule en VBA

bonjour hotsauce,
Mets ta formule dans une cellule en supprimant le "="
Ensuite démarre l'enregistreur de macros et remets le signe "="
Arrête l'enregistreur et regarde à loisir le résultat en macro/modifier
ici un exemple de RechercheV
MsgBox Application.VlookUP("y",[A1:B20],2,False)

 

[Cousinhub]

Re : Traduire formule en VBA

Bonjour,

essaye ainsi :

If [C33] = 0 Or [B33] = 0 Then
    [A1] = 0
Else
    With Sheets("Feuil1")
        [A1] = Application.Index(.Range("B2:Y16"), Application.Match([C33], .Range("A2:A16"), 0), _
            Application.Match([B33], .Range("B1:Y1"), 0))
    End With
End If

 

[youky(BJ)]

Re : Traduire formule en VBA

Bonsoir bhbh,
Une autre traduction pour le fun...
MsgBox [IF(OR(C33=0,$B33=0),0,INDEX(Feuil1!$B$2:Feuil1!$Y$16,MATCH(C33,Feuil1!$A$2:Feuil1!$A$160,0),MATCH($B$33,Feuil1!$B$1:Feuil1!$Y$1,0)))]