Bonjour le forum,
je veux creer une macro qui me permet d'automatiser les calcul dans deux colonnes
dans plusieurs feuilles les formules que j'ai obtenue grace à l'enregistreur sont :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Range ("N4")
    ActiveCell.FormulaR1C1 = "=RC[-9]-(MAX(TODAY(),RC[-10]))"
Range("N4").Select
    Selection.NumberFormat = "General"
 
Range("O4").Select
    ActiveCell.FormulaR1C1 = "=(RC[-8]*RC[-1])/360"
pour la premiére colonne j'ai essayer ce code mais ca ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test1(occurs As String)
 
With Sheets(occurs)
For Each c In Range(.[D4], .Cells(Rows.Count, 4).End(xlUp))
    c.Offset(, 11) = "=c.offset(, 1)-(MAX(today(), c))"
Next c
End With
 
End Sub
quelqu'un peut m'aider svp