Bonjour à tous
J'ai un souci j'ai transcris en vba une formule trés longue issue de l'enregistreur,(elle est vraiment longue 18 conditions mais elle fonctionne ) Pour avoir une bonne lecture je voulais la sectionner en ajoutant un espace et un tiret de soubassement pour un retour à la ligne helas j'ai untexte qui me dis tous le temps erreur de compilation en executant la deuieme ligne . y'a t-il une methode specifique ? je suis débutant en vba et je travail sur excel 2007
la voici
Range("D10").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""dhl"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[2926],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""dhl"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[2926],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+4<TODAY(),R[-4]C[12]="""",COUNTIF(R[62]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[
4]C[11]+4<TODAY(),R[-4]C[12]="""",COUNTIF(R[62]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+5<TODAY(),R[-4]C[12]="""",COUNTIF(R[86]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[8]=""tnt"",R[-4]C[11]+2<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""a"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""D"",R[-4]C[11]+2<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""CH"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""CZ"",R[-4]C[11]+4<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""DK"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""I"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ,"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""PL"",R[-4]C[11]+4<TODAY(),R[-4]C[12]=""""),""pas livrée ,"",IF(AND(R[-4]C[2]=""zdl"",R[-
4]C[11]+5<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",""""))))))))))))))))))"
End Sub
merci pour votre aide
J'ai un souci j'ai transcris en vba une formule trés longue issue de l'enregistreur,(elle est vraiment longue 18 conditions mais elle fonctionne ) Pour avoir une bonne lecture je voulais la sectionner en ajoutant un espace et un tiret de soubassement pour un retour à la ligne helas j'ai untexte qui me dis tous le temps erreur de compilation en executant la deuieme ligne . y'a t-il une methode specifique ? je suis débutant en vba et je travail sur excel 2007
la voici
Range("D10").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""dhl"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[2926],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""dhl"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[2926],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],3)=""joy"",R[-4]C[11]+4<TODAY(),R[-4]C[12]="""",COUNTIF(R[62]C[6982],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+2<TODAY(),R[-4]C[12]="""",COUNTIF(R[14]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+3<TODAY(),R[-4]C[12]="""",COUNTIF(R[38]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[
4]C[11]+4<TODAY(),R[-4]C[12]="""",COUNTIF(R[62]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",LEFT(R[-4]C[8],1)=""m"",R[-4]C[11]+5<TODAY(),R[-4]C[12]="""",COUNTIF(R[86]C[9010],R[-4]C[4])),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[8]=""tnt"",R[-4]C[11]+2<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""a"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""D"",R[-4]C[11]+2<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""CH"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""CZ"",R[-4]C[11]+4<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""DK"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""I"",R[-4]C[11]+3<TODAY(),R[-4]C[12]=""""),""pas livrée ,"",IF(AND(R[-4]C[2]=""znl"",R[-4]C[3]=""PL"",R[-4]C[11]+4<TODAY(),R[-4]C[12]=""""),""pas livrée ,"",IF(AND(R[-4]C[2]=""zdl"",R[-
4]C[11]+5<TODAY(),R[-4]C[12]=""""),""pas livrée ?"",""""))))))))))))))))))"
End Sub
merci pour votre aide