Formule si incrémentée

Bonsoir

Je me trouve avec un nouveau problème

Je veux appliquer via VBA une formule sur les cellules Q 3; Q10 bref Q (3+i*n) n étant égal à 7

la formule si B3<Q4 on affiche "H faites" sinon on calcule B3-Q4

=si(B3<Q4;"H Faites";B3-Q4)

J'ai donc créer une boucle for

sub test()
Dim n As Integer
Dim HF As String
HF = Chr(34) & "H Faites" & Chr(34)
n = 0
Dim fin As Integer
fin = Range("E3").Value

   For i = 0 To fin - 1

   Range("Q" & 3 + i * n).FormulaLocal = "=si(B" & 3 + (i * n) & "<Q" & 4 + (i * n) & ";" & HF & ";(B" & 3 + (i * n) & "-Q" & 4 + (i * n) & ")"""
   n = 7
   next

end sub

lorsque je lance la macro j'ai une erreur 1004 et la ligne qui est surlignée en jaune...

Sans boucle et sans incrémentation ça marche impeccable.

Je pense ya un soucis peut etre avec les Guillemets...

++

Troph

Bonjour

A tester

Sub test()
Dim n As Integer
Dim HF As String
  HF = Chr(34) & "H Faites" & Chr(34)
  n = 0
  Dim fin As Integer
  fin = Range("E3").Value
  For i = 0 To fin - 1
    Range("Q" & 3 + i * n).FormulaLocal = "=si(B" & 3 + (i * n) & "<Q" & 4 + (i * n) & ";" & HF & ";B" & 3 + (i * n) & "-Q" & 4 + (i * n) & ")"
    n = 7
  Next
End Sub

Yahoouuuu

Un grand merci ça marche du impec...

++

Troph