Bonjour,
je cherche a ameliorer cette syntaxe mais en vain.
je copie ma formule et ensuite la valeur obtenue. mais ca mouline trop a mon gout
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fdesign
fdesign = "=IF(RC[-1]<>"""",VLOOKUP(RC[-1],PRODUIT!R1C[-1]:R65536C[7],2,0),"""")"
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Target.Offset(0, 1) = fdesign
Target.Offset(0, 1) = Target.Offset(0, 1).Value
End Sub
Si quelqu'un a une idée pour inserer le .value directement sur la premiere ligne
je cherche a ameliorer cette syntaxe mais en vain.
je copie ma formule et ensuite la valeur obtenue. mais ca mouline trop a mon gout
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fdesign
fdesign = "=IF(RC[-1]<>"""",VLOOKUP(RC[-1],PRODUIT!R1C[-1]:R65536C[7],2,0),"""")"
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then Target.Offset(0, 1) = fdesign
Target.Offset(0, 1) = Target.Offset(0, 1).Value
End Sub
Si quelqu'un a une idée pour inserer le .value directement sur la premiere ligne