Traduction formule en VBA

Dranreb

XLDnaute Barbatruc

• 21 Octobre 2020

• #2

Bonjour.
Je dirais :

VB:

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 :

VB:

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

 

Dernière édition: 21 Octobre 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Octobre 2020

• #3

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

VB:

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

 

Dernière édition: 21 Octobre 2020

Vote positif 0 Vote négatif

M

mfaeko

XLDnaute Nouveau

• 22 Octobre 2020

• #4

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...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Octobre 2020

• #5

mfaeko à dit:

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...

Cliquez pour agrandir...

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"))

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2020

• #6

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"

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Octobre 2020

• #7

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")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2020

• #8

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


.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Octobre 2020

• #9

a oui!! autant pour moi

VB:

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

 

Vote positif 0 Vote négatif