macro addition

[khenty]

Bonjour,

VB m'affiche erreur type 13

Sub addition()
For lig = 5 To Sheets("PAIEMENT").Range("D3").Value

Sheets("CALCUL2").Cells(lig, 3).Value = Sheets("PAIEMENT").Cells(lig, 2) + Sheets("PAIEMENT").Cells(lig, 4)

Next lig

End Sub

Il l'affiche sur la ligne mise en gras. Cependant il me calcule la première ligne. Je ne comprend pas pourquoi il ne fait pas les autres.

Merci 🙂

 

[Pierrot93]

Re : macro addition

Bonjour,

A voir ce qui est contenu dans les cellules en question..

bon après midi
@+

 

[Compte Supprimé 979]

Re : macro addition

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

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+

 

[khenty]

Re : macro addition

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

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+

Enfaite j'ai une cellule date (23/01/2011) et une délai 60
et j'aimerais faire l'addition des deux.

 

[Compte Supprimé 979]

Re : macro addition

Re,

Si ta colonne 4 est ton délai

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+

 

[khenty]

Re : macro addition

Re,

Si ta colonne 4 est ton délai

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+

Merci beaucoup, cela fonctionne très bien maintenant ! 🙂