Formule Excel dans une macro VBA

Bonjour,

je cherche à simplifier une partie de mon programme et j'aurai besoin d'autres points de vue pour m'éclairer dans mon cheminement.

With Worksheets("AMORT et CB")


For k = 10 To Ajoutligne

TOTALFRS = Application.WorksheetFunction.Sum(Sheets("AMORT et CB").Cells(k, 8), Sheets("AMORT et CB").Cells(k, 9), Sheets("AMORT et CB").Cells(k, 10), Sheets("AMORT et CB").Cells(k, 11))
POURCENTAGEFRS = "=if(cells(k,7)>0;cells(k,12).value/cells(k,7).value;0)"
FRS = "=cells(k,13).value*cells(k,6).value"
TOTALCLI = Application.WorksheetFunction.Sum(Sheets("AMORT et CB").Cells(k, 16), Sheets("AMORT et CB").Cells(k, 17), Sheets("AMORT et CB").Cells(k, 18), Sheets("AMORT et CB").Cells(k, 19))
POURCENTAGECLI = "=if(cells(k,7)>0;cells(k,20).value/cells(k,7).value;0)"
CLI = "=cells(k,21).value*cells(k,6).value"


Sheets("AMORT et CB").Range("L10") = TOTALFRS
Sheets("AMORT et CB").Range("M10") = POURCENTAGEFRS
Sheets("AMORT et CB").Range("n10") = FRS

Sheets("AMORT et CB").Range("T10") = TOTALCLI
Sheets("AMORT et CB").Range("U10") = POURCENTAGECLI
Sheets("AMORT et CB").Range("V10") = CLI
Next k

End With

Merci pour votre aide.

Bonjour,

Un essai :

Sub Truc()

'Déclaration des variables
Dim k As Long, AjoutLigne As Long

AjoutLigne = 50 'à adapter
For k = 10 To AjoutLigne 'Boucle sur les lignes
    With Worksheets("AMORT et CB") 'Tout ce qui commence par un "." s'y réfère
        .Range("L10") = Application.Sum(.Range(.Cells(k, 8), .Cells(k, 11))) 'Total FRS
        If .Cells(k, 7) > 0 Then .Range("M10") = .Cells(k, 12) / .Cells(k, 7) Else .Range("M10") = 0 'Pourcentage FRS
        .Range("N10") = .Cells(k, 13) * .Cells(k, 6) 'FRS
        .Range("T10") = Application.Sum(.Range(.Cells(k, 16), .Cells(k, 19))) 'Total CLI
        If .Cells(k, 7) > 0 Then .Range("U10") = .Cells(k, 20) / .Cells(k, 7) Else .Range("U10") = 0 'Pourcentage CLI
        .Range("V10") = .Cells(k, 21) * .Cells(k, 6) 'CLI
    End With
Next k

End Sub

Bonjour Pedro,

Merci pour ton aide.

En exécutant ton code, j'ai une erreur Incompatibilité de type au niveau des des IF. J'ai déjà modifié la variable k en Double et en Integer mais même problème.

Bonjour,

Un fichier à transmettre pour que je puisse comprendre et faire quelques tests ?

Bonjour,

je ne peux pas partager je travaille sur un document protégé. J'en suis désolé.