Bonjour à tous,
j'ai crée une macros comme suit où j'ai une rechercheV: formuleh = "=vlookup(E:E, 'VR avec param'!D:H,5,""FAUX"")", cale fonctionne mais dès que j'ajoute la condition:if formuleh=Values"#N/A" then formuleh = "=vlookup(E:E, 'VR '!D:H,5,""FAUX"")"
cela ne fonctionne plus.
help please!
Sub formule()
Nbrligne = Range("a1").CurrentRegion.Rows.Count ' nbr de ligne
formuleG = "=""prov-11/2016""&J2"
formuleh = "=vlookup(E:E, 'VR avec param'!D:H,5,""FAUX"")"
if formuleh=Values"#N/A" then formuleh = "=vlookup(E:E, 'VR '!D:H,5,""FAUX"")"
end if
Range("G2").Formula = formuleG
ActiveSheet.Range("h2").Formula = formuleh
Range("G2:G" & Nbrligne).FillDown
Range("h2:h" & Nbrligne).FillDown
Range("h:h").Copy
Range("h:h").PasteSpecial xlPasteValues
End Sub
j'ai crée une macros comme suit où j'ai une rechercheV: formuleh = "=vlookup(E:E, 'VR avec param'!D:H,5,""FAUX"")", cale fonctionne mais dès que j'ajoute la condition:if formuleh=Values"#N/A" then formuleh = "=vlookup(E:E, 'VR '!D:H,5,""FAUX"")"
cela ne fonctionne plus.
help please!
Sub formule()
Nbrligne = Range("a1").CurrentRegion.Rows.Count ' nbr de ligne
formuleG = "=""prov-11/2016""&J2"
formuleh = "=vlookup(E:E, 'VR avec param'!D:H,5,""FAUX"")"
if formuleh=Values"#N/A" then formuleh = "=vlookup(E:E, 'VR '!D:H,5,""FAUX"")"
end if
Range("G2").Formula = formuleG
ActiveSheet.Range("h2").Formula = formuleh
Range("G2:G" & Nbrligne).FillDown
Range("h2:h" & Nbrligne).FillDown
Range("h:h").Copy
Range("h:h").PasteSpecial xlPasteValues
End Sub