Error 1004 insérer formule dans cellule
Bonjour à tous,
J'essaie d'insérer des formules SUBTOTAL dans douze cellules différentes. Voici mon code :
" Sub Total()
Dim wsheet As Worksheet
Set wsheet = ThisWorkbook.Sheets("Sales Uplift")
'wsheet.Range("A1").EntireRow.Insert
Dim rng As Range
For i = 3 To 14
With wsheet
Set rng = .Range(.Cells(3, i), .Cells(.Rows.Count, i).End(xlUp))
.Range(.Cells(1, i)).formula = "=SUBTOTAL(9;" & rng.Address & ")"
End With
Next i
End Sub "
L'erreur 1004 apparait à chaque fois à la ligne suivant :
.Range(.Cells(1, i)).fonction = "=SUBTOTAL(9;" & rng.Address & ")"
Lorsque j'enlève le .Range , j'obtiens l'erreur 438 "object doesn't support this property or method"
Une astuce est de rajouter un espace entre " et =SUBTOTAL mais alors il écrit simplement la formule dans la cellule comme s'il s'agissait d'un texte.
Si quelqu'un a une idée
merci!
Bonjour,
.Range(.Cells(1, i)).fonction
Ce n'est pas du VBA ! Formula serait plus indiqué...
et en remplaçant le point-virgule par une virgule !
Je n'ai pas regardé le reste...
J'ai remarqué pour le fonction, faute de frappe en écrivant le message :p.
Par contre le point virgule je vois pas de quoi tu parles, sauf celui du subtotal mais là ça doit être un point-virgule.
NON ! Formula exige une virgule comme séparateur de liste.
AH oui tu as raison, merci beaucoup
Mais j'avoue que je ne comprends pas puisque j'ai mis tout cela entre guillemets, or quand tu vas directement dans excel là tu dois mettre un ;
Tu as une explication histoire que j'aille dormir moins idiot ce soir?
C'est une formule que tu mets entre guillemets : Excel la traduira dans la langue définie dans les paramètres régionaux de Windows.
Avec Formula, tu écris la formule en anglais (US)
Avec FormulaLocal tu peux l'écrire selon les paramètres FR (FR)...
Ah ok merci beaucoup pour cette explication.
Toujours détesté avoir une version traduite d'excel mais boulot oblige de l'avoir en français ...