Discussion :

[Kair0]

Bonjour à tous,

Pour un reporting j'ai une formule excel à intégrer en VBA, elle fait 577 caractères alors que VBA n'en accepte que 500.

Voici ma formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
"=IF(RC[-8]=""BCG CALCULATION"",""BCG CALCULATION"",IF(RC[-8]=""BAC CALCULATION"",""BAC CALCULATION"",IF(RC[-8]=""TO BE PUSHED"", ""TO BE PUSHED"",IF(RC[-8]= ""OUT OF OFS SCOPE"",""OUT OF OFS SCOPE"",IF(RC[-8]=""ISM CALCULATION"",""ISM CALCULATION"",IF(RC[-8]=""SRS CALCULATION"",""SRS CALCULATION"",IF(RC[-8]=""AMOUNT"",""AMOUNT"",IF(AND(RC[-11]=""NON                 " & _
        "RC[-8]<>""OFS DATA MODEL""),""MISSING MAPPING OFS/UP"",IF(RC[-8]=""OFS DATA MODEL"",""OFS DATA MODEL"",IF(OR(RC[1]=""OUI"",RC[2]=""OUI"",RC[3]=""OUI""),""OUI"",""NOT CONTROLLED YET""))))))))))"

En fouillant un peu sur le net, j'ai trouvé des solutions pour séparer en deux ma formule grace à VBA et ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim FormulaPart1 As String, FormulaPart2 As String
 
    FormulaPart1 = "=IF(RC[-8]=""BCG CALCULATION"",""BCG CALCULATION"",IF(RC[-8]=""BAC CALCULATION"",""BAC CALCULATION"",IF(RC[-8]=""TO BE PUSHED"", ""TO BE PUSHED"",IF(RC[-8]= ""OUT OF OFS SCOPE"",""OUT OF OFS SCOPE"",IF(RC[-8]=""ISM CALCULATION"",""ISM CALCULATION"",IF(RC[-8]=""SRS CALCULATION"",""SRS CALCULATION"",IF(RC[-8]=""AMOUNT"",""AMOUNT"",IF(AND(RC[-11]=""NON                 " & "RC[-8]<>""OFS DATA MODEL""),""MISSING MAPPING OFS/UP"",XXX))))))))"
    FormulaPart2 = "IF(RC[-8]=""OFS DATA MODEL"",""OFS DATA MODEL"",IF(OR(RC[1]=""OUI"",RC[2]=""OUI"",RC[3]=""OUI""),""OUI"",""NOT CONTROLLED YET""))"
 
 With ActiveSheet.Range("A2")
            .FormulaArray = FormulaPart1
            .Replace "XXX", FormulaPart2, lookat:=xl
 End With

Mais je bute sur une erreur 1004 "Impossible de définir la propriété FormulaArray de la classe Range.

Merci pour votre aide,

Cordialement,

Kair0

[eriiic]

Bonjour,

rentre là en normal avec .Formula, puis revalide-là en matricielle avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[A2].FormulaArray = [A2].Formula

eric

PS : il ne manque pas qq chose ici : lookat:=xl ?

[Kair0]

Bonjour eriiic,

Je suis désolé mais je n'ai pas compris ta réponse.

Cordialement,

Kair0

[eriiic]

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ActiveSheet.Range("A2")
            .Formula = FormulaPart1
            .Replace "XXX", FormulaPart2, lookat:=xl '??? à compléter
            .FormulaArray = .Formula
End With

eric