Bonjours le forum,
J'ai une petit problème avec des formule que j'ai voulu passer en vba mais les lignes bug avec un message d'erreur "caractère incorrect" à chaque "_" de chaque formule
Sub ref()
aa = .Range("Q" & Rows.Count).End(xlUp).Row
range("q:q").formulaarray="IF(ISNUMBER(VALUE(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),1))),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),10,2),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),11,2))"
Range("s:s").FormulaArray = Right(Substitute(Substitute(Substitute(aa, "_", ""), " ", ""), ".", ""), 1)"
Range("t:t").FormulaArray ="IF(ISNUMBER(VALUE(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),1))),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),4,6),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),5,6))"
Range("u:u").FormulaArray ="IF(ISNUMBER(VALUE(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),1))),"_" & MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),1,3),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(aa,"_","")," ",""),".",""),1,4))"
pour plus d'info voila "l'origine" de la formule
https://forum.excel-pratique.com/viewtopic.php?p=773689#p773689