XL 2010 Urgent !!! Erreur d'éxecution 6 dépassement de capacité

issamien · 12 Novembre 2019

Bonjour les amis,

j'ai créé un code qui marche bien sauf qu'au bout de 3 4 manip il m'affiche le message d'erreur d'exécution 6: dépassement de capacité et quand je clique sur débogage il indique la ligne encadrée en rouge. donc le problème existe là je crois. ça m’embête.

PS: regarder l'image que j'ai joint à ce message.

mapomme · 12 Novembre 2019

Bonjour,

Déclarez a comme long : Dim a as Long

issamien · 12 Novembre 2019

mapomme à dit:
Bonjour,

Déclarez a comme long : Dim a as Long

Bonjour,

Je viens de la testé mais ça bug au bout de 3 à 4 manip

ci joint mon fichier

mapomme · 12 Novembre 2019

Re @issamien

Avec le fichier, cela nous ouvre d'autres horizons
Enfin je le pensais. Comme on ne sait pas comment votre fichier fonctionne, difficile de reproduire le défaut...

issamien · 12 Novembre 2019

mapomme à dit:
Re,

Avec le fichier, cela nous ouvre d'autres horizons

re
tu peux jeter un coup d'oeil on sait jamais tu trouveras d'autres anomalies

mapomme · 12 Novembre 2019

Re,

Remplacez ?:
a = Application.WorksheetFunction.CountIf(Feuil1.Range("E:E"), CBool(Me.Txtcodebien.Text))
par
a = Application.WorksheetFunction.CountIf(Feuil1.Range("E:E"), Me.Txtcodebien.Text)

issamien · 12 Novembre 2019

mapomme à dit:
Re,

Remplacez ?:
a = Application.WorksheetFunction.CountIf(Feuil1.Range("E:E"), CBool(Me.Txtcodebien.Text))
par
a = Application.WorksheetFunction.CountIf(Feuil1.Range("E:E"), Me.Txtcodebien.Text)

Re

c'etais ça au début et le problème existait

Dranreb · 12 Novembre 2019

Bonjour
Suggestion: Essayez en remplaçant 'me.txtcodebien.text ' par 'V' (déclaré V As Variant ou non déclaré si pas Option Explicit) mais mettre devant :
v = me.txtcodebien.text: if isnumeric(v) then v = cdbl(v)
Remarque: je propose régulièrement un système de mise à jour de tableaux qui élimine ce problème ainsi que bien d'autres.
Ça me suscite une question: pourquoi le code du bien doit il être unique dans toute la base et pas seulement dans le lieu ?
Une autre: Ne pourriez vous pas attribuer d'office à la création du bien le maxi utilisé augmenté de 1 ?

issamien · 12 Novembre 2019

Dranreb à dit:
Bonjour
Suggestion: Essayez en remplaçant 'me.txtcodebien.text ' par 'V' (déclaré V As Variant ou non déclaré si pas Option Explicit) mais mettre devant :
v = me.txtcodebien.text: if isnumeric(v) then v = cdbl(v)
Remarque: je propose régulièrement un système de mise à jour de tableaux qui élimine ce problème ainsi que bien d'autres.
Ça me suscite une question: pourquoi le code du bien doit il être unique dans toute la base et pas seulement dans le lieu ?
Une autre: Ne pourriez vous pas attribuer d'office à la création du bien le maxi utilisé augmenté de 1 ?

Re
Le code bien doit être unique dans l'inventaire complet, (un chaise qui porte un code bien est unique dans un espace bureau qu'elle soit dans le bureau du directeur ou la cuisine ou le hall...) on ne doit pas avoir des doublons dans tout l'inventaire. donc j'ai besoin d'un code qui vérifie les codes bien déjà introduits dans la base et de les comparer avec le nouveau code bien saisie dans le textbox "txtcodebien".

eriiic · 12 Novembre 2019

Bonjour à tous,

ça m'étonne que la proposition de mapomme ne fonctionne pas :

VB:

a = Application.WorksheetFunction.CountIf(Feuil1.Range("E:E"), Me.Txtcodebien.Text)

Avec .CountIf, même si un nombre est passé en texte il sera trouvé sur la feuille.
Par contre il faudrait peut-être que tu testes si

Code:

Me.Txtcodebien.Text = ""

et sortir si c'est le cas.
eric

XL 2010 Urgent !!! Erreur d'éxecution 6 dépassement de capacité

issamien

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

issamien

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

issamien

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

issamien

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

issamien

XLDnaute Nouveau

eriiic

XLDnaute Barbatruc

Discussions similaires