Bonjour à tous,
Je me lance depuis peu dans les macros afin d'alléger certaines tâches répétitives et permettre à de néophytes d'excel de le faire aussi.
Cependant, je suis confronté aux problèmes des fonctions excel traduites en VBA. Pour cela j'utilise l'enregistreur (éviter les erreurs bêtes de traduction ou d'oublis de guillemet), mais avec la formule suivante (oui je sais elle est longue), elle marche durant l'enregistrement mais lorsque j'exécute la macro, j'ai un message "erreur 1004 pendant l'exécution : Défini par l'erreur d'application ou de l'objet".
Quelqu'un aurait une idée de la cause et/ou comment je pourrais faire pour le résoudre?
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=TEXT(CONCATENATE(SUBSTITUTE(RC[8],"" "",""""),""-"",IF(RC[15]="""",IF(COUNTIF(RC[6],""*XS =*"")=1,""XS"",IF(COUNTIF(RC[6],""*S =*"")=1,""S"",IF(COUNTIF(RC[6],""*M =*"")=1,""M"",IF(COUNTIF(RC[6],""*L =*"")=1,""L"",IF(COUNTIF(RC[6],""*XL =*"")=1,""XL"",IF(COUNTIF(RC[6],""*One size*"")=1,""L"",IF(COUNTIF(RC[6],""*5-6*"")=1,""XS"",IF(COUNTIF(RC[6],""*7-8*"")=1,""S"",IF(RC[6],""9-10*"")=1,""M"",IF(COUNTIF(RC[6],""*11-12*"")=1,""L"",IF(COUNTIF(RC[6],""*13-14*"")=1,""XL"",IF(COUNTIF(RC[6],""*15-16*"")=1,""XXL"",""L"")))))))))))),RC[15])),0)"
Range("A2").Select
Merci d'avance
Je me lance depuis peu dans les macros afin d'alléger certaines tâches répétitives et permettre à de néophytes d'excel de le faire aussi.
Cependant, je suis confronté aux problèmes des fonctions excel traduites en VBA. Pour cela j'utilise l'enregistreur (éviter les erreurs bêtes de traduction ou d'oublis de guillemet), mais avec la formule suivante (oui je sais elle est longue), elle marche durant l'enregistrement mais lorsque j'exécute la macro, j'ai un message "erreur 1004 pendant l'exécution : Défini par l'erreur d'application ou de l'objet".
Quelqu'un aurait une idée de la cause et/ou comment je pourrais faire pour le résoudre?
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=TEXT(CONCATENATE(SUBSTITUTE(RC[8],"" "",""""),""-"",IF(RC[15]="""",IF(COUNTIF(RC[6],""*XS =*"")=1,""XS"",IF(COUNTIF(RC[6],""*S =*"")=1,""S"",IF(COUNTIF(RC[6],""*M =*"")=1,""M"",IF(COUNTIF(RC[6],""*L =*"")=1,""L"",IF(COUNTIF(RC[6],""*XL =*"")=1,""XL"",IF(COUNTIF(RC[6],""*One size*"")=1,""L"",IF(COUNTIF(RC[6],""*5-6*"")=1,""XS"",IF(COUNTIF(RC[6],""*7-8*"")=1,""S"",IF(RC[6],""9-10*"")=1,""M"",IF(COUNTIF(RC[6],""*11-12*"")=1,""L"",IF(COUNTIF(RC[6],""*13-14*"")=1,""XL"",IF(COUNTIF(RC[6],""*15-16*"")=1,""XXL"",""L"")))))))))))),RC[15])),0)"
Range("A2").Select
Merci d'avance