erreur d'execution de ma macro

Re : erreur d'execution de ma macro

Bonjour PHILIP,

Pour que la formule puisse être entrée en Q3, il faut être sur Excel 2007. En effet sur Excel 2003 les chiffres en rouge font que les références n'existent pas car la feuille est limitée à 256 colonnes.

Pour le reste, pas de problème.

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 ?"","""")))))"

Edit : ah oui, un point à signaler, les R[-4] en Q3 vont donner une référence en ligne 65535 sur Excel 2003 :

R[-4]C[2] => S65535

Je ne sais pas si c'est ce qui est souhaité...

A+