Dépassement de capacité

Résolu/Fermé

Kaymoi Messages postés 4 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 13 décembre 2016 - Modifié par baladur13 le 11/12/2016 à 11:54
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 12 déc. 2016 à 18:24

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 :

.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.

A voir également:

Dépassement de capacité
Créer un compte yahoo mail gratuit avec capacité de - Guide
Test capacité pc - Guide
Yahoo Mail - Télécharger - Mail
Capacité disque dur externe - Guide
16gb capacité - Forum Matériel & Système

2 réponses

Réponse 1 / 2

thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
11 déc. 2016 à 12:39

Bonjour,

Si tu as un dépassement de capacité, il y a de fortes chances que Combien soit égal à zéro.

Kaymoi Messages postés 4 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 13 décembre 2016
12 déc. 2016 à 17:18

Merci de votre réponse. J'ai suivi la suggestion de yg_be et cela marche.
Bonne soirée

Réponse 2 / 2

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
11 déc. 2016 à 14:33

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

Kaymoi Messages postés 4 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 13 décembre 2016
12 déc. 2016 à 17:21

Merci à vous ! Cela fonctionne impeccable. Vous m'enlevez une épine du pied. Maintenant je voudrais essayer de valoriser le stock. Est-ce possible ? J'aurais peut être du prévoir cela au début ?

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
12 déc. 2016 à 18:24

Je pense que tu devrais nous en dire un peu plus à propos de ton stock, plutôt dans un autre sujet à créer (après avoir marqué celui-ci comme résolu).

Discussions similaires

"AMD a détecté un dépassement de délai du pilote"

VBA excel : résoudre problème de capacité.

AMD a détecté un dépassement de délai du pilote

carte mémoire PS1 15 blocs = quel volume ?

Crash AMD dépassement délai du pilote

Discussions similaires

Newsletters