Vb6 programmer bouton enter

Bonjour,
Avec l'événement KeyDown de ta forme.
Dans le module de la forme, en dessous du code du bouton tu met...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Command1_Click
    End If
End Sub

A+

ouais mais quand je fait le if et que je met la programmation de dans sa ne fonctionne pas :( jai un for d'intégrer de dans...ect-ce que je peut faire cette action? si cela taide voila se que jai faite

Private Sub cmdcalculer_Click()
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)

For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i

End Sub

Private Sub cmdcalculer_KeyDown(KeyCode As Integer, Shift As Integer)

Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)

If (KeyCode = vbKeyReturn) Then

For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i

End If

End Sub

Tu supprime la sub que tu a fais et tu copie RIGOUREUSEMENT la sub que j'ai mis, en d'autre terme.. TU CHANGE RIEN.
Pour avoir...(supposant que le nom de ton bouton est cmdcalculer)

Private Sub cmdcalculer_Click()
Dim i, montant, banque
    montant = Val(txtmontantannullement.Text)
    interet = Val(txtinteret)
    annee = Val(txtannee)
    For i = 1 To annee
        banque = banque + montant
        banque = (1 + (interet / 100)) * banque
        lblmontantaffichage.Caption = banque
    Next i
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cmdcalculer_Click
    End If
End Sub

Pour que ça fonctionne tu doit mettre la propriété KeyPreview de la forme à True
A+