aude2111
Habitué
Bonjour je ne comprend pas pourquoi mon code ne veut pas marcher
merci d'avance pour votre aide
Code:
Sub Resultat_Net_AVEC_ICI()
Dim Prime_ICI As Range
Dim Somme_Montant_Total_Reglement As Range
Dim i As Integer
Dim DernLigne As Long
With Worksheets("Feuil4")
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
Set Prime_ICI = .Range("R2:R" & DernLigne)
Set Somme_Montant_Total_Reglement = .Range("I2:I" & DernLigne)
End With
For i = 2 To DernLigne
'Resultat_Net_ICI = Prime_ICI - Somme_Montant_Total_Reglement
Cells(i, 11).Value = Cells(i, 18).Value - Cells(i, 9).Value
Next i
End Sub
merci d'avance pour votre aide