FormulaArray - Replace ne fonctionne pas

Version imprimable

Bonjour à tous,

Je suis nouveau sur le forum mais je viens régulièrement consulter le forum pour de l'aide dans mes projets. Un grand bravo pour toutes les informations que l'on peut y trouver !

Je travaille actuellement sur un projet VBA Excel que je veux rendre accessible aux utilisateurs des versions Excel plus anciennes. J'ai une feuille de statistiques dans laquelle je souhaite mettre à jour les formules avec ma macro. Je suis bloqué par la limite de 255 caractères de FormulaArray (pour Excel 2007 par exemple). J'ai lu sur des forums que le moyen de contournement est d'utiliser la fonction Replace. J'ai beau essayer dans tous les sens, je ne parviens pas à mes fins. La fonction Replace ne semble pas avoir d'effet.

A noter :
- j'ai essayé de faire manuellement le remplacement dans Excel, cela fonctionne
- j'ai enregistré une macro lorsque je fais manuellement l'opération de remplacement. Lorsque je tente d'utiliser le code généré, la fonction Replace ne fonctionne pas (aucun remplacement n'est effectué).

Pouvez-vous m'aider à corriger le code ci-dessous ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub MAJ_Stats() Dim Part() As String ReDim Part(1 To 3) Dim DernLig As Integer DernLig = 68 For i = 1 To 3 Part(i) = "SOMME(NB.SI.ENS(" & Sheets(i + 1).Name & "!$C" & DernLig + 1 & ":$AG" & DernLig + 1 & ";Sites[Nom court];" & Sheets(i + 1).Name & "!$C$7:$AG$7;""<>Dim""))" Next i Cells(32, 2).FormulaArray = "=Partie1+Partie2+Partie3" For i = 1 To 3 Cells(32, 2).Replace What:="Partie" & i, Replacement:=Part(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 Next i End Sub
N'hésitez pas s'il manque certaines informations pour mieux comprendre ma problématique.
Un grand merci pour votre aide !

Bonne journée,

Victor

Bonjour et bienvenue sur le forum,

Citation:

Envoyé par Victor456

Je suis bloqué par la limite de 255 caractères de FormulaArray (pour Excel 2007 par exemple). J

Avec Excel 2007, je n'ai pas de problème avec ta formule (sauf qu'il faut utiliser la syntaxe anglaise) :
Code:

1 2 3 4 5 6 7 8 9 10 Sub MAJ_Stats() Dim DernLig As Integer Dim formule As String DernLig = 68 formule = "=" For i = 1 To 3 formule = formule & "+SUM(COUNTIFS(" & Sheets(i + 1).Name & "!$C" & DernLig + 1 & ":$AG" & DernLig + 1 & ",Sites[Nom court]," & Sheets(i + 1).Name & "!$C$7:$AG$7,""<>Dim""))" Next i Cells(32, 2).FormulaArray = formule End Sub

Merci beaucoup pour ta réponse Patrice740 !
J'ai voulu simplifier la problématique avant de poster et du coup, mon exemple n'est plus pertinent. En effet, la formule a une longueur inférieure à 255 caractères dans mon exemple et donc le problème ne se pose pas. Mais, en réalité, la formule que je souhaite utilisée est plus longue.

Voici le nouveau code qui pose donc vraiment problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub MAJ_Stats()
 
    Dim Part() As String
    ReDim Part(1 To 3)
 
    Dim DernLig As Integer
    DernLig = 68
 
    For i = 1 To 3
        Part(i) = "SUM(COUNTIFS(" & Sheets(i + 1).Name & "!$C" & DernLig + 1 & ":$AG" & DernLig + 1 & ";Sites[Nom court];" & Sheets(i + 1).Name & "!$C$7:$AG$7;""<>Dim""))+SUM(COUNTIFS(" & Sheets(i + 1).Name & "!$C" & DernLig + 3 & ":$AG" & DernLig + 3 & ";Sites[Nom court];" & Sheets(i + 1).Name & "!$C$7:$AG$7;""<>Sam"";" & Sheets(i + 1).Name & "!$C$7:$AG$7;""<>Dim""))"
    Next i
 
    Cells(32, 2).FormulaArray = "=Partie1+Partie2+Partie3"
 
    For i = 1 To 3
        Cells(32, 2).Replace What:="Partie" & i, Replacement:=Part(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Next i
 
End Sub

26/11/2020, 19h15
Patrice740

Ta formule est bourrée d'erreurs ....
Commences par écrire la formule non matricielle (.formula) qui n'est pas erronée !
26/11/2020, 19h41
Victor456

Citation:

Envoyé par Patrice740

Ta formule est bourrée d'erreurs ....
Commences par écrire la formule non matricielle (.formula) qui n'est pas erronée !

En effet, j'ai omis de remplacer les ";" des formules en français par des "," pour les formules en anglais. Tu es un peu dur quand tu dis que c'est bourré d'erreurs même si le ";" revient souvent ;)

Le problème est maintenant résolu ! Cela venait du fait que j'écrivais ma formule en français au lieu d'anglais.

Merci pour ton aide Patrice740 !