Traduction formule en VBA

[mfaeko]

Bonjour à tous,

Pour alléger mon fichier, je souhaite transformer la formule suivante en VBA.
INDEX(Commandes!J:J;EQUIV([@[Bon de commande]];Commandes!L:L;0)

J'ai bien essayé avec ça :
Range("U" & Target.Row) = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Commandes").Range("J:L"), 3, 0)

Ça fonctionne très bien pour une recherche sur le même onglet mais comme ma formule va chercher sur un autre onglet (commandes)et là ça bug.

Avez-vous une idée d'où ça peut venir ?

Merci d'avance
mfaeko

 

[Dranreb]

Bonjour.
Je dirais :

With Worksheets('Commandes")
    Cells(Target.Row, "U").Value = .Cells(WorksheetFunction.Match(Target.Value, .Columns("L"), 0), "J").Value
    End With

Ou pour parer à un éventuel problème :

Dim L as Long
With Worksheets('Commandes")
    On Error Resume Next: L = WorksheetFunction.Match(Target.Value, .Columns("L"), 0)
    If Err Then L = 0
    On Error GoTo 0
    If L > 0 Then Cells(Target.Row, "U").Value = .Cells(L, "J").Value
    End With

 

[patricktoulon]

bonsoir
et la gestion erreur du non match alors???? 😉

With Worksheets("Commandes").Cells(Target.Row, "U")
    x = Application.IfError(Application.Match(Target.Value, .Columns("L"), 0), 0)
    .Value = IIf(x = 0, .Value,.Cells(x, "J")

End With

edit: oui ta façon marche aussi Dranreb

 

[mfaeko]

Merci pour ta réponse Dranreb, ça fonctionne parfaitement bien !

patricktoulon, la ligne .value n'est pas acceptée (rouge) par la vba et je ne connais pas cette formule pour la modifier...

 

[patricktoulon]

Merci pour ta réponse Dranreb, ça fonctionne parfaitement bien !

patricktoulon, la ligne .value n'est pas acceptée (rouge) par la vba et je ne connais pas cette formule pour la modifier...

il manque la fermeture de la parentheses a la fin je l'ai mangé au copier coller
.Value = IIf(x = 0, .Value,.Cells(x, "J"))

 

[Dranreb]

Bonjour.
Ça ne marchera toujours pas, parce qu'avec Target.Row = 10 et x =100 par exemple,
MsgBox Cells(Target.Row, "U").Cells(x, "J").Address affiche "$AD&109" et non "$J$100"

 

[patricktoulon]

re
bonjour @Dranreb
??????????????????????????????????????????????????????????????
😱 😵 😵😵😵😵😵😵😵
mon code ne veut absolument pas dire
MsgBox Cells(Target.Row, "U").Cells(x, "J").Address affiche "$AD&109" et non "$J$100"
quel est l’intérêt de coder ça
MsgBox Cells(Target.Row, "U").Cells(x, "J")😳😵😵😵

 

[Dranreb]

C'est ce que vous avez codé.
Dans un With Worksheets("Commandes").Cells(Target.Row, "U"): .Cells(x, "J")


.

 

[patricktoulon]

a oui!! autant pour moi

With Worksheets("Commandes").Cells(Target.Row, "U")
    x = Application.IfError(Application.Match(Target.Value, .Columns("L"), 0), 0)
    .Value = IIf(x = 0, .Value,.parent.Cells(x, "J")
End With