Dépassement de capacité
Résolu
Kaymoi
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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. |
A voir également:
- Dépassement de capacité
- Test capacité pc - Guide
- Créer un compte yahoo mail gratuit avec capacité de - Télécharger - Mail
- Yahoo Mail France : comment créer une adresse mail gratuite - Guide
- Le logiciel amd a détecté un dépassement de délai du pilote - Forum Carte graphique
- Dépassement de capacité vba - Forum VB / VBA
2 réponses
Bonjour,
Si tu as un dépassement de capacité, il y a de fortes chances que Combien soit égal à zéro.
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
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
Bonne soirée