macro addition

BrunoM45 à dit:

Salut Khenty,

L'erreur 13 est une erreur de type, tu veux additionner des nombres alors que c'est du texte (par exemple)
Vérifie tes lignes dans ta colonne 2 (B) ou 4 (D) tu doit avoir une valeur 'texte' (espace par exemple)

Ou alors change ton code par

Code:

Sub addition()
  Dim Lig As Long
  For Lig = 5 To Sheets("PAIEMENT").Range("D3").Value
    Sheets("CALCUL2").Cells(Lig, 3).Value = Val(Sheets("PAIEMENT").Cells(Lig, 2)) + Val(Sheets("PAIEMENT").Cells(Lig, 4))
  Next Lig
End Sub

A+

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Si ta colonne 4 est ton délai

Code:

Sub addition()
  Dim Lig As Long
  For Lig = 5 To Sheets("PAIEMENT").Range("D3").Value
  Sheets("CALCUL2").Cells(Lig, 3).Value = DateValue(Sheets("PAIEMENT").Cells(Lig, 2)) + Val(Sheets("PAIEMENT").Cells(Lig, 4))
  Next Lig
End Sub

A+

Cliquez pour agrandir...