Discussion :

[flo84316]

Bonjour,

J’essaie de définir les formules de cellules d'une feuille Excel depuis une macro VBA, mais j'obtiens d'une erreur : Erreur d’exécution '1004' : Erreur définie par l'application ou par l'objet a l’exécution de la ligne 5 de ma macro.

Voici le code de ma macro :

Code :

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

1
2
3
4
5
6
7
Function test_formule()
    With Worksheets("Feuil1")
        .Cells(1, 1).Formula = "=1+1"
        .Cells(2, 1).Formula = "=" & .Cells(1, 1).Address & "+5"
        .Cells(3, 1).Formula = "=SI(" & .Cells(2, 1).Address & "=7;36;63)"
    End With
End Function

Quelqu'un aurait une idée de l’origine de cette erreur ?

Merci

flo84316

[Pierre Fauconnier]

Salut.

Soit tu utilises .FormulaLocal et tu peux alors rédiger ta formule en français dans ton code VBA, soit tu utilises .Formula, mais tu dois alors la rédiger en anglais.

Perso, je préfères la rédiger en anglais en VBA. Pour connaître la syntaxe et le vocabulaire anglais à utiliser, tu peux saisir la formule en Excel, laisser active la cellule contenant la formule que tu veux inspecter puis, en VBA, dans la fenêtre d'exécution (CTRL+G pour l'afficher), tu saisis ? activecell.formula et tu verras la traduction de ta formule.

Quoi qu'il en soit, il faut que la formule soit syntaxiquement correcte (c'est-à dire qu'elle doit être "validable" par Excel).

Cela dit, je ne vois pas trop l'utilité de .Cells(2, 1).Address qui renverra toujours $A$2, au vu de ton code.

[flo84316]

En utilisant l'attribut FormulaLocal de l'objet Cells cela fonctionne.

Merci de ton aide Pierre