Discussion :

[sylvestre09]

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

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sylvestre09]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Ozer45]

Bonjour,

Mets les formules que tu veux tester.

[defluc]

L'adresse s'écrit Address et no Adress

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sylvestre09]

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)

[Daniel.C]

Ajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

End With

[defluc]

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 ?