Modification Formule

Bonjour à tous,

Je cherche à modifier ce script pour l'utiliser pour d'autres formules:

With Worksheets("Calculation").[T1].Resize(Cells(Rows.Count, "B").End(xlUp).Row)

.Formula = "=F" & .Row & "/G" & .Row

'.Value = .Value

End With

Cette formule je souhaite la modifier avec celles dessous.

.Formula = "=F" & .Row & "/G" & .Row

Exemples

=(B1-1,05)/0,0057

=(Q1-P1)/600

=AD1*10^-9*40*10^-12*6,023*10^23

=MOYENNE(AP1:AT1)

=SI(BB1>0;BB1;0)

Je n'arrive pas à comprendre comment utiliser les "" et & .Row, si quelqu'un peut m'expliquer ça serait super.

Merci d'avance

Bonjour,

les 5 nouvelles formules doivent être mis à quelle endroit ?

Voici un exemple plus simple à mettre en place,

With Worksheets("Calculation")
lastRw = Cells(Rows.Count, "B").End(xlUp).Row
.Range("T1:T" & lastRw).Formula = "=F1/G1"
.Range("U1:U" & lastRw).Formula = "=(G1-1.05)/0.057"
End With

Bonjour,

Merci pour ta réponse.

J'ai réussi pour toute les formules sauf une pour la colonne BS.

=SI(BR1>0;BR1;0) Ça marche presque mais 1 est affiché à la place du deuxième BR.

J'obtiens ça =SI(BR1>0;1;0)

Dim a As Variant

Dim a3 As Variant

a = "if("

a3 = ")"

With Worksheets("Calculation").[BS1].Resize(Cells(Rows.Count, "B").End(xlUp).Row)

'.Formula = "=" & a & "BR" & .Row & a2 & BR & .Row & "," & a3

.Formula = "=" & a & "BR" & .Row & ">" & 0 & "," & BR & .Row & "," & 0 & a3

'.Value = .Value

End With

End Sub

Merci d'avance

C'est bon ça marche, j'avais oublié les "".

Merci beaucoup