Affection formule vers une cellule
Bonjour à tous.
Je débute en VBA et je viens de créer une macro me permettant de modifier un nombre X de fichiers identiques dans un répertoire.
Après l'insertion d'une colonne, je souhaite affecter une formule aux cellules de cette colonne pour mesurer un écart entre une valeur a et b, tout en utilisant "sierreur" dans le cas d'une division par 0.
Le code ci-dessous me rend une "erreur d'exécution 1004 / erreur définie par l'application ou par l'objet"
Code:
1
2
3
4
5
6
7
8
| For i = 6 To 69
a = "k" & CInt(i)
b = "g" & CInt(i)
Workbooks(monfichier).Sheets(1).Cells(i, 12).Formula = "=sierreur((" & a & "-" & b & ")" & "/" & b & ";" & """""" & ")"
Next |
Merci d'avance à ceux qui pourront m'aider.
Nicom
