Discussion :

[mnico31]

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 :

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

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

[gFZT82]

Bonjour,

As-tu essayé avec

Code :

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

Workbooks(monfichier).Sheets(1).Cells(i, 12).FormulaLocal = "=sierreur((" & a & "-" & b & ")" & "/" & b & ";" & """""" & ")"

Cordialement.

[mnico31]

Merci Beaucoup, ca fonctionne comme ca.