Code VBA

[gnimitz]

Bonjour à tous !!!!

Comment adapter le code ci-dessous pour qu'elle effectue la calculation de Q6 à Q2000
au lieu d'avoir 2000 lignes...(lol)

Une bonne journée à tous et à toutes !!!!

Mike


Sub Macro2()
'
' Macro2 Macro
'

'
Range("Q6").Select
ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])"
Range("Q7").Select
ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])"
Range("Q8").Select
ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])"
Range("Q9").Select
ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])"
Range("Q10").Select

 

[Pierrot93]

Re : Code VBA

Bonjour,

peut être comme ceci :

Dim i As Long
For i = 6 To 2000
    Cells(i, 17).FormulaR1C1 = "=calcul_sal_new(RC[-8])"
Next i

bonne journée
@+

 

[gnimitz]

Re : Code VBA

Bonjour !

Merci je vais tester

Mike