Discussion :

[cynoq]

Bonjour à tous,
Je souhaite copier une formule via VBA sur une série de lignes de la même colonne.
Le nombre de ligne est variable.

J'ai fait le code suivant mais cela ne fonctionne pas, j'ai systématiquement le message d'erreur suivant :

Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet

Par ailleurs, en utilisant le code ci-dessous, ma formule va-t-elle suivre l'incrémentation des lignes ?

Code :

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

1
2
3
4
5
 
nblignes = [S1] + 3
For i = 3 To nblignes
     Cells(i, 51).FormulaLocal = "=SI(ET(AW3="";AX3="");"";SI(AW3="";0;AS3)+SI(AX3="";0;AS3))"
Next

Merci par avance pour votre aide.

[fring]

Bonjour,

Essaie comme ceci :

Code :

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

1
2
3
For i = 3 To nblignes
    Cells(i, 51).FormulaLocal = "=SI(ET(AW" & i & "="""";AX" & i & "="""");"""";SI(AW" & i & "="""";0;AS" & i & ")+SI(AX" & i & "="""";0;AS" & i & "))"
Next

[cynoq]

ok, merci beaucoup, cela fonctionne.
Mais juste pour mon info, quelle est la différence avec mon code ? Je comprends la différence par rapport à la variable i dans la formule, mais cela suffit-il à supprimer le message d'erreur ?
En tout cas encore merci.

[Edit]
ok, j'ai vu
c'est l'histoire des "" qui n'étaient pas définies comme il faut.