Macro SUMPRODUCT

[schdam]

Bonjour,

J'ai crée une macro (je suis débutant en macro) mais j'ai un problème avec la longueur de la ligne.
En effet, au bout d'un moment je ne peux plus finir ou complété ma formule car plus rien ne veux s'écrire.
La longueur de ligne des formules est-elle limitée en VBA ? Est-il possible de mettre une formule sur plusieurs lignes ?

Voici ma formule qui bloque :
"=IF(OR(ISERROR(SUMPRODUCT(('[" & Fichier_source & "]" & Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & Fichier_source & "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & Fichier_source & "]" & Onglet_source & "'!R2C17:R65000C17)),AND(RC[-1]=0,(SUMPRODUCT(('[" & Fichier_source & "]" & Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & Fichier_source & "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & Fichier_source & "]" & Onglet_source & "'!R2C17:R65000C17))=0)),"""",SUMPRODUCT(('[" & Fichier_source & "]" & Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & Fichier_source & "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & Fichier_source & "]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & Fichier_source & "]" & Onglet_source & "'!R2C17:R65000C17))"

Merci d'avance pour votre aide. 😉

 

[MichelXld]

Re : Macro SUMPRODUCT

bonjour

tu peux faire des retours à la ligne dans une macro en utilisant les UnderScores _

Range("A1") = "=IF(OR(ISERROR(SUMPRODUCT(('[" & Fichier_source & "]" & _
Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & Fichier_source _
& "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & Fichier_source & _
"]" & Onglet_source & "'!R2C17:R65000C17)),AND(RC[-1]=0,(SUMPRODUCT(('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & _
Fichier_source & "]" & Onglet_source & "'!R2C17:R65000C17))=0)),"""",SUMPRODUCT(('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C1:R65000C1=R4C2)*(LEFT('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C10:R65000C10,2)=R5C1)*('[" & _
Fichier_source & "]" & Onglet_source & "'!R2C14:R65000C14=R7C1)*('[" & Fichier_source & _
"]" & Onglet_source & "'!R2C15:R65000C15=RC[-2]),'[" & Fichier_source & "]" & _
Onglet_source & "'!R2C17:R65000C17))"

bon apres midi
MichelXld

 

[schdam]

Re : Macro SUMPRODUCT

OK c'est bon ça marche.

J'avais déjà essayé mais je les avais mis après les parenthèses et dans ce cas cela ne fonctionne pas.

Merci beaucoup.