Problème Somme textBox

[biloute91]

Bonjour,
Voila j'ai un probleme avec une somme de 6 textbox. Dès que je mets un nombre important dans l'une des textbox j'ai un message : Dépassement de capacité.

Voici mon code.

Private Sub CommandButton6_Click()
    Dim i As Integer
    Dim j As Integer

   
For i = 30 To 35 'Nombre de textbox

    j = j + CDbl(Controls("textbox" & i))
   Next
         TextBox38.Value = j

End If
End Sub

J'ai également essayé de faire l'addition par CDbl(textbox30.value) + ....+CDbl(TextBox35.value) mais même message d'erreur

J'avoue que je ne comprends pas

Merci pour votre aide

 

[jeanpierre]

Re : Problème Somme textBox

Bonjour biloute91,

Déclare J en Long dans ce cas.

Bon AM

Jean-Pierre

 

[biloute91]

Re : Problème Somme textBox

Bonjour JeanPierre,

merci ,cela fonctionne parfaitement.

A bientôt