Discussion :

[fenchnaab]

Bonjour,
j'avoue je séche,
j'aimerais insérer une formule via une macro, mais il me renvoie une erreur 13 .....

Code :

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

1
2
3
4
5
6
7
8
 
Dim LCol as integer
 
LCol=9
 
with worksheets("Feuil1")
.Cells(5, LCol).Formula = "=NB.SI(" & .Range(.Cells(6, LCol), .Cells(50, LCol)) & ";""P"")"
end with

Si quelqu'un peu m'aider.....

[Docmarti]

Bonjour fenchnaab

Peut-être avec FormulaLocal vu que la formule est en français.
Et aussi Address vu que c'est l'adresse qui est requise dans cette fonction.

Code :

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

.Cells(5, LCol).FormulaLocal = "=NB.SI(" & .Range(.Cells(6, LCol), .Cells(50, LCol)).Address & ";""P"")"