probleme d'écriture vba

[PHILIP]

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

 

[ERIC S]

Re : probleme d'écriture vba

Bonjour

je n'ai pas analysé ton code mais je pense que cela est dû au phénomène suivant :

ActiveCell.FormulaR1C1 = _
"blablabla........blablabla"
tu as en fait un texte sur la ligne ci-dessus

pour mettre sur plusieurs lignes, essaie

ActiveCell.FormulaR1C1 = _
"blablabla" _
& "........" _
& "blablabla"
le & permettra de recomposer le texte

 

[PHILIP]

Re : probleme d'écriture vba

Bonsoir à tous,

Merci Eric pour ta suggestion, je m'en vais essayer de suite