Discussion :

[aliasjadawin]

Bonjour, j'ai un gros fichier Excel dans lequel je dois insérer tout un tas de formules en fonctions des colonnes etc...voici ma macro "test":

Code :

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

1
2
3
4
5
6
 
Sub formule()
    Dim cel As Range
    Set cel = Worksheets("Région").Range("B8")
    cel.Formula = "=SI(SOMME(base_1!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_1!M2:M648))"
End Sub

Cela me renvoie une erreur 1004. Je ne vois pas le problème, à mon avis c'est la gestion des guillemets (représentés par des Chr(34)).
Si quelqu'un peut m'aider...merci d'avance!

[groslou2]

La langue de Formula est l'anglais (IF, SUM, ...). Pour mettre du Français, il faut FormulaLocal.
Essaye donc en remplaçant Formula par FormulaLocal.

[aliasjadawin]

Nickel! Merci.

[aliasjadawin]

Par contre quand je fais ça dans une boucle:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub form()
    Dim cel As Range
    Dim i As Integer
    Set cel = Worksheets("Vue_Région").Range("B8")
    For i = 1 To 12
        cel.Offset(i - 1, 0).FormulaLocal = "=SI(SOMME(base_& i &!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_& i & !M2:M648))"
    Next i
End Sub

il me renvoie la même erreur...

[groslou2]

Tu as oublié des guillemets:

Code :

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

1
2
3
4
5
6
7
8
Sub form()
    Dim cel As Range
    Dim i As Integer
    Set cel = Worksheets("Vue_Région").Range("B8")
    For i = 1 To 12
        cel.Offset(i - 1, 0).FormulaLocal = "=SI(SOMME(base_"& i &"!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_"& i & "!M2:M648))"
    Next i
End Sub

[aliasjadawin]

...ok, je suis fatigué. mais merci encore!