Insertion formule dans boucle

Version imprimable

19/04/2013, 19h50
izu-_-

Insertion formule dans boucle
Bonjour/bonsoir à tous,

Je crée une macro afin d'insérer des formules dans les cellules. J'utilise donc une boucle (for next), voilà le code :
Code:

1 2 3 4 5 6 7 8 Sub bla_bla() Dim i As Integer For i = 4 To 1395 If Range("C" & i).Interior.Color = RGB(255, 255, 255) Then Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ";$N" & i")" End If Next i End Sub
Le code ne tourne pas et est arrêté au niveau de la ligne formulalocal. Le message est : "Erreur de compilation. Attendu : fin d'instruction"
Quelqu'un saurait-il quelle est mon erreur s'il-vous-plaît?
Merci d'avance
19/04/2013, 20h05
SfJ5Rpw8

à première vue il manque un & après le dernier i
20/04/2013, 08h39
izu-_-

Merci, mais le problème reste le même :/
21/04/2013, 16h53
pyloupylou

tu peux avoir un problème de syntaxe:

essaye un truc:
commence un enregistrement de macro
sélectionne une cellule
et tape ta formule =produit(...
ensuite arrête l'enregistrement et regarde le code généré

oh miracle ca va te donner "=PRODUCT(...
:mrgreen:

je me suis fait déjà avoir sur ce genre de problème
21/04/2013, 17h11
SfJ5Rpw8

Citation:

Envoyé par izu-_-

Merci, mais le problème reste le même :/

:nono:

ou tu l'as mis le & ?

Code:

Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ";$N" & i & ")"
22/04/2013, 08h55
izu-_-

Citation:

Envoyé par pyloupylou

tu peux avoir un problème de syntaxe:

essaye un truc:
commence un enregistrement de macro
sélectionne une cellule
et tape ta formule =produit(...
ensuite arrête l'enregistrement et regarde le code généré

oh miracle ca va te donner "=PRODUCT(...
:mrgreen:

je me suis fait déjà avoir sur ce genre de problème

Merci du conseil, en faisant ça, j'ai constaté que la fonction utilisée n'était pas formulalocal mais FormulaR1C1, d'où l'utilisation de product. Enfait, même si j'ai un problème de syntaxe inexpliqué avec formulalocal, j'utiliserai formulaR1C1 qui me semble plus adapté pour ma fonction.

Merci de vos réponses bbil et pyloupylou.

Enfait je retire ce que j'ai dit (mis à part les remerciements)...le problème persiste dès que je veux intéger une variable même avec formulalocal voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Remplissage()
Dim i as integer
    For i=1 To 1397
    'Autres If endif...
    If Range("B" & i) = "test" Then
    j = 1
    Do While Range("AA" & i - j).Interior.Color = RGB(204, 192, 218)
    Range("AA" & i).FormulaR1C1 = "=PRODUCT(RC[-2],R["&-j-1&"]C)"
    j = j + 1
    Loop
    End if
Next i
End sub

22/04/2013, 17h45
SfJ5Rpw8

Alors pourquoi abandonner le code que je t'ai proposé qui fonctionne ? (plus d'erreurs de compilation !)
22/04/2013, 20h29
izu-_-

Parceque le code que tu m'as proposé ne tourne pas non plus sur mon ordi, pour la même raison que celle décrite dans mon 1er message. Il doit y avoir une erreur de syntaxe avec les guillemets - au niveau de la dernière parenthèse ")" - que je n'arrive pas à corriger.
22/04/2013, 20h44
SfJ5Rpw8

Citation:

Envoyé par izu-_-

Parceque le code que tu m'as proposé ne tourne pas non plus sur mon ordi, pour la même raison que celle décrite dans mon 1er message. Il doit y avoir une erreur de syntaxe avec les guillemets - au niveau de la dernière parenthèse ")" - que je n'arrive pas à corriger.

:nono: tu dois faire une erreur de manipulation lors du copier/coller du forum vers ta page de code !
c'est pas possible que tu ait encore une "erreur de compilation"
22/04/2013, 21h16
Efgé2

Bonjour à tous
Si je puis me permettre, en regardant le premier post on trouve

Code:

Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ";$N" & i")"

Je pense que

Code:

Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ":$N" & i & ")"

pourrait résoudre certaines difficultés....
Cordialement
22/04/2013, 21h23
SfJ5Rpw8

Citation:

Envoyé par Efgé2;7248694....
Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & "[B

:[/B]$N" & i & ")"
pourrait résoudre certaines difficultés....
Cordialement

Voir post 5 :-)
22/04/2013, 21h29
Efgé2

Re
@ bbil 8-)
Oui, nous sommes bien d'accord sur le manque de & :D
Mais le ; , à mon avis n'est pas de mise.

PS je te remercie pour ton "tuto" sur le VB6.....

Cordialement
23/04/2013, 10h00
izu-_-

Citation:

Envoyé par bbil

:nono: tu dois faire une erreur de manipulation lors du copier/coller du forum vers ta page de code !
c'est pas possible que tu ait encore une "erreur de compilation"

Merci d'avoir insisté! Je viens de trouver mon erreur en faisant un copier coller :

Code:

Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ";$N" & i& ")"

ne fonctionne pas, alors que

Code:

Range("T" & i).FormulaLocal = "=PRODUIT($R" & i & ";$N" & i & ")"

tourne. Il me manquait des espaces entre le & et le i.
Merci beaucoup, tu me retires une sacré épine du pied! Ciao!