Erreur 13
Linebaker
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Erreur 13
- Fifa 13 - Télécharger - Jeux vidéo
- Test redmi note 13 5g - Accueil - Téléphones
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
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?
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
J'ai besoin de cette variable dans une autre procédure, c'est pourquoi elle ne se trouve pas dans celle-ci.
Merci
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
- 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
Effectivement plus facile avec un fichier joint. Donc le voici :
https://www.cjoint.com/?DLemLYv520p
Merci
