Erreur 13 Fermé

Question

Bonjour,

Dans le code suivant j'ai une incompatibilité de type erreur 13. Quelle est mon erreur ?

Merci


Dim caisse As Double

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim TextBox4 As String

    If KeyCode <> vbKeyReturn Then Exit Sub
    With ListBox1
        .AddItem ComboBox1
        .List(.ListCount - 1, 1) = ComboBox1.List(ComboBox1.ListIndex, 1)
        .List(.ListCount - 1, 2) = TextBox3 / caisse
        .List(.ListCount - 1, 2) = Format(.List(.ListCount - 1, 2), "0.00")
        TextBox4 = (TextBox3.Value / caisse) + TextBox4
    End With
    
    
    TextBox3 = ""
    ComboBox1 = ""
    ComboBox1.SetFocus
End Sub

redaiwa · Answer

Salam Linebaker.

Je n'ai pas testé mais c'est peut-être à cause de la variable caisse qui est définie en dehors de la procédure?

Linebaker · Answer

Salut redaiwa,

J'ai besoin de cette variable dans une autre procédure, c'est pourquoi elle ne se trouve pas dans celle-ci.

Merci

eriiic · Answer

Bonjour,

- code non mis en forme à l'aide de la balise
- pas d'indication de la ligne en erreur
- pas de fichier joint

Ca n'incite pas à aider...
eric

Linebaker · Answer

Bonjour,

Effectivement plus facile avec un fichier joint. Donc le voici :

https://www.cjoint.com/?DLemLYv520p 

Merci

Erreur 13

4 réponses

Discussions similaires