VBA EXCEL - ERREUR 6 : DÉPASSEMENT DE CAPACITÉ

Résolu/Fermé

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 22 janv. 2020 à 20:23
pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 - 23 janv. 2020 à 14:35

Bonjour !
J'ai fait un code pour une base de données (de classification de livres) et je veux qu'une valeur inscrite dans un champ de mon userform soit recherchée dans mon tableau et que les données qui y sont associées soient remplies automatiquement dans les autres champs.
Le code est :

Feuil1.Activate
Range("K2").Select

Do Until ActiveCell = CLng(Me.txtisbn)
ActiveCell.Offset(1,0).Select
Loop

Me.txtedition = ActiveCell.Offset(0, 3)
Me.txtauteur = ActiveCell.Offset(0, 2)
[etc...]

L'erreur est au niveau de la ligne "Do Until ActiveCell = CLng(Me.txtisbn)". Il me dit qu'il y a dépassement de capacité et je sais pas comment régler le problème...

S'il vous plaît aidez- moi !! ????????

A voir également:

Dépassement de capacité vba
Le logiciel amd a détecté un dépassement de délai du pilote ✓ - Forum Carte graphique
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Test capacité pc - Guide
Incompatibilité de type vba ✓ - Forum Programmation
Erreur d'execution '6' Dépassement de capacité ✓ - Forum Excel

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
22 janv. 2020 à 21:06

Bonjour

Peut être que la valeur numérique de ton textbox dépasse 2147483647 (maxi entier long positif)

Cdlmnt

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 23 janv. 2020 à 11:01

Bonjour Pixissama, ccm

comme l'a indiqué l'excellent CCM, un nombre de type long comporte 10 chiffres, un code ISBN 13 chiffres

La solution serait de chercher ta recherche en gardant l'isbn en texte. d'ailleurs, sur la base de données, regarde de quel type sont les codes ISBN dans ta base;

a part cela, ton code est particulièrement lent; il faut travailler avec la fonction "Find"

par exemple

Suis absent cet aprem

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
23 janv. 2020 à 13:03

Woaa merci beaucoup c'est vrai que mon code était moins bien ! Tout fonctionne maintenant !
Tant que j'y suis, j'ai aussi créé un groupe de optionbox pour indiquer si le livre est Disponible ou Indisponible mais je sais pas comment faire en sorte qu'en cliquant sur l'option, ça change la valeur à volonté.

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020 > pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
23 janv. 2020 à 14:35

en fait je crois que j'ai réussi, il me manque plus qu'à créer un code pour modifier une référence (une ligne ou une valeur sur la ligne) via mon formulaire et j'aurais terminé !

pixissama Messages postés 20 Date d'inscription mercredi 22 janvier 2020 Statut Membre Dernière intervention 9 mars 2020
Modifié le 23 janv. 2020 à 13:05

ccm81,

oui c'est ça, ce sont des nombres à 13 chiffres donc c'était pour ça, merci :)

Discussions similaires

Erreur d'execution '6' Dépassement de capacité

Dépassement de capacité VBA

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

erreur d’exécution "6" Dépassement de capacité.

Erreur d'execution '6' Dépassement de capacité

Erreur d'exécution 6: dépassement de capacité