Problème de Button ou Sub "BTN1Elan_Click"

bonjour,

il faut probablement adapter le code.  Difficile d'être plus précis avec les informations que tu donnes.

Bonsoir voici la Sub concernée. J'ai évidement déclaré mes variables en "Dim vTbResVoyN1L1 As Integer"

ensuite pour les calculs j'ai écrit "vTbResVoyN1L1 = Val(TbResVoyN1L1.Text)

Voici une partie de ma Sub

 Public Sub BTN1Elan_Click(sender As Object, e As EventArgs) Handles BTN1Elan.Click

Dim vTbResVoyN1L1,  vTbResVoyN1L2, vTbResVoyN1L3, (et ainsi de suite jusqu'a 20) As Integer

TbNomTotVoyMotiv.Text = vTbResVoyN1L1 + vTbResVoyN1L2 + vTbResVoyN1L3 + vTbResVoyN1L4 +  vTbResVoyN1L5 +
        vTbResVoyN1L6 + vTbResVoyN1L7 + vTbResVoyN1L8 + vTbResVoyN1L9 + vTbResVoyN1L10 + vTbResVoyN1L11 +
        vTbResVoyN1L12 + vTbResVoyN1L13 + vTbResVoyN1L14 + vTbResVoyN1L15 + vTbResVoyN1L16 + vTbResVoyN1L17 +
        vTbResVoyN1L18 + vTbResVoyN1L19 + vTbResVoyN1L20

1er résultat demandé (somme des voyelles)

        TbNomTotVoyMotiv.Text = vTbResVoyN1L1 + vTbResVoyN1L2 + vTbResVoyN1L3 + vTbResVoyN1L4 +  vTbResVoyN1L5 +  vTbResVoyN1L6 + vTbResVoyN1L7 + vTbResVoyN1L8 + vTbResVoyN1L9 + vTbResVoyN1L10 + vTbResVoyN1L11 + vTbResVoyN1L12 + vTbResVoyN1L13 + vTbResVoyN1L14 + vTbResVoyN1L15 + vTbResVoyN1L16 + vTbResVoyN1L17 + vTbResVoyN1L18 + vTbResVoyN1L19 + vTbResVoyN1L20

2éme résultat demandé, 

TbNomMotiv1.Text = vTbNomMotiv

Les deux résultats s'affiche au 2ème clique sur le button. Je peux te faire une copie de la suB si tu le souhaites;

Merci

Pop85