Discussion :

[LucWalraf]

Bonjour,

Je cherche à inscrire dans une feuille une formule "somme.si.ens" (SUMIFS) composée par la macro.

Ca fonctionne pour des cas simples mais ça me renvoie une erreur dès que je raffine la formule.

Quelqu'un a une idée pour régler ça ? Merci !

Exemple 1 (ça marche avec la première définition de toto mais pas avec la deuxième) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
 
Dim toto As String
 
'toto = "sdf"
toto = "3 fjfj"
 
Cells(1, 1).FormulaR1C1 = "=SUMIFS(C[1],C[2]," & toto & ")"
 
End Sub

Exemple 2 (ça marche dans les 2 premiers cas mais pas dans le 3ème) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test2()
 
origine1 = ActiveSheet.Name
origine2 = ThisWorkbook.Name
 
'Cells(1, 1).FormulaR1C1 = "=SUMIFS(C[1],C[2],RC[3])"
'Cells(1, 1).FormulaR1C1 = "=SUMIFS([Classeur1]Feuil1!C2,[Classeur1]Feuil1!C1,RC[3])"
Cells(1, 1).FormulaR1C1 = "=SUMIFS([" & origine2 & "]" & origine1 & "!C2,[" & origine2 & "]" & origine1 & "!C1,RC[3])"
 
End Sub

[MarcelG]

Bonjour Luc,

Je te conseillerais d'abord d'écrire la formule dans la feuille de calcul.
Ensuite, tu pourras l'adapter dans ton code par la méthode

Code :

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

Formulalocal

, plus explicite.

A mon avis, la méthode FormaulaR1C1 (retournée par l'enregistreur de macro) est trop souvent utilisée.

[LucWalraf]

Bonjour Marcel,

oui, j'ai bien l'impression que c'est l'utilisation de FormulaR1C1 qui me bloque (et qui m'a bien été retourné par l'enregistreur de macro ).

Je le connais pas Formulalocal, je vais regarder. Merci !