Dépassement de capacité Résolu

Question

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.

thev · Answer

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

yg_be · Answer

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

Dépassement de capacité

2 réponses

Discussions similaires

Newsletters