formule en vba avec une boucle

[pascal21]

Range("s6").Formula = "=si(c6="";"";$r$3&k6"

bonjour à tous
j'ai trouvé pour écrire cette formule en vba
mais j'aimerais l'appliquer pour la zone s4:s1200
ex. en s4 =si(c4="";"";$r$3&k4
je sais qu'il faut utiliser une boucle mais j'ai bien du mal avec ça
merci de votre aide

 

[pierrejean]

Re : formule en vba avec une boucle

bonjour Pascal

Teste:

For n = 4 To 1200
Range("s" & n).FormulaLocal = "=si(c" & n & "="";"";$r$3&k" & n & ")"
Next n

 

[pascal21]

Re : formule en vba avec une boucle

bonjour pierrejean
il semblerait qu'il manque des ""
je vais examiner ça de plus pret
merci

 

[pierrejean]

Re : formule en vba avec une boucle

Re

Exact ; Toutes mes excuses
Bonne version j'espere

For n = 4 To 1200
Range("s" & n).FormulaLocal = "=si(c" & n & "="""";"""";$r$3&k" & n & ")"
Next n

 

[pascal21]

Re : formule en vba avec une boucle

merci pierre jean c'est parfait
il me semble pourtant l'avoir écrit comme ça (?????)
bon weekend

 

[Lone-wolf]

Re : formule en vba avec une boucle

Bonjour pierrejea, bonjour pascal21

une petite, mais très petite variante.

Sub test()
'Auteur: pierrejean  Site Web: Excel-Downloads.com
For n = 2 To 20
Range("b" & n).FormulaLocal = "=si(a" & n & "<>"""";d" & n & ";"""")"
'en B2 la formule s'incrit comme ceci: =SI(A2<>"";D2;"")
Next n
End Sub

Très bon dimanche 😎