Dépassement de capacité
Résolu
Kaymoi
Messages postés
5
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous.
Actuellement entrain de faire une gestion de stock Je me retrouve coincée
avec ce message Erreur d’exécution "6" : dépassement de capacité.
J'ai lu beaucoup de réponse sur le forum mais je planche complètement.
Je ne sais pas quoi changer pour ne plus avoir ce message d'erreur.
Pouvez vous m'aider svp ?
Voici apparemment la ligne qui pose problème :
Je vous remercie
Actuellement entrain de faire une gestion de stock Je me retrouve coincée
avec ce message Erreur d’exécution "6" : dépassement de capacité.
J'ai lu beaucoup de réponse sur le forum mais je planche complètement.
Je ne sais pas quoi changer pour ne plus avoir ce message d'erreur.
Pouvez vous m'aider svp ?
Voici apparemment la ligne qui pose problème :
.Range("G" & Ligne) = IIf(Me.OpbEntrée = True, Val(Replace(Me.TbPrixUnit, ",", ".")), Round(PrixTotal / Combien, 1))
Je vous remercie
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
2 réponses
-
Bonjour,
Si tu as un dépassement de capacité, il y a de fortes chances que Combien soit égal à zéro.
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
Suggestion :'.Range("G" & Ligne) = IIf(Me.OpbEntrée = True, Val(Replace(Me.TbPrixUnit, ",", ".")), Round(PrixTotal / Combien, 1)) if Me.OpbEntrée then .Range("G" & Ligne) = Val(Replace(Me.TbPrixUnit, ",", ".")) else if Combien <> 0 then .Range("G" & Ligne) = Round(PrixTotal / Combien, 1) else .Range("G" & Ligne) = "?" end if end if