Discussion :

[Victor456]

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 :

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

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

[Patrice740]

Bonjour et bienvenue sur le forum,

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 :

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

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

[Victor456]

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 :

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

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

[Patrice740]

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

[Victor456]

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 !