Calcul sous VBA

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:

---

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:

---

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

Bonjour,

Tu ne peux pas mettre des variables entre guillemets. Mets :

Code:

---

c.Offset(, 11).Formula = "=" & c.Offset(, 1).Address & "-(MAX(today()," & c.Address & "))"

---

bonjour Daniel merci pour ta reponse (comme dab) j'ai essayé en effet d'adapter mais je n'y arrive pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test1(occurs As String)   With Sheets(occurs) For Each c In Range(.[D4], .Cells(Rows.Count, 4).End(xlUp)) c.Offset(, 11).Formula = "=" & c.Offset(, 1).Address & "-(MAX(today()," & c.Address & "))" Next c   For Each b In Range(.[G4], .Cells(Rows.Count, 7).End(xlUp)) b.Offset(, 9).Formula = "=" & b.adress & "* (b.offset(, 8) / 360)" b.Offset(, 10).Formula = "=" & b.adress & "* (-1) * & b.offset(, 1)" Next b End With   End Sub

---

ca marche pour ton code mais pour les deux autre formule ca ne fonctionne pas !

Bonjour,

Mets les formules que tu veux tester.

L'adresse s'écrit Address et no Adress

Tu dois :
1. sortir les variables des guillemets
2. mettre les adresses des variables range, comme dans une formule Excel
3. ces c.. d'anglais mettent deux "d" au mot "Address"
4. tu ne dois pas laisser d'espaces entre les guillemets, comme dans une formule Excel :

Code:

---

1 2 3 4 5

For Each b In Range(.[G4], .Cells(Rows.Count, 7).End(xlUp)) b.Offset(, 9).Formula = "=" & b.Address & "*(" & b.Offset(, 8).Address & "/360)" b.Offset(, 10).Formula = "=" & b.Address & "*(-1)*" & b.Offset(, 1).Address Next b End With

---

Merci a tous
Daniel ca fonctionne très bien :) une dérnière question si tu me permets j'aimerai au dessous mettre le total comment je pourrais faire ça stp (pour les 2 dérnières formules)

Ajoute :

Code:

---

1 2	.Cells(Rows.Count, "P").End(xlUp).Offset(1) = Application.Sum(Range(.[G4], .Cells(Rows.Count, 7).End(xlUp)).Offset(, 9)) .Cells(Rows.Count, "Q").End(xlUp).Offset(1) = Application.Sum(Range(.[G4], .Cells(Rows.Count, 7).End(xlUp)).Offset(, 10))

---

avant :

Code:

---

End With

---

un commentaire comme ça, en passant.

Pourquoi s'échiner à placer des formules dans les cellules plutôt que faire tous le traitement dans la macro ?

Généralement, on fait ça quand les cellules de la formule sont susceptibles de varier.