Erreur 13
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
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
4 réponses
-
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?
-
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 -
ContributeurBonjour,
- 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
-
Bonjour,
Effectivement plus facile avec un fichier joint. Donc le voici :
https://www.cjoint.com/?DLemLYv520p
Merci
