Exécution

Erreur définie par l'application ou par l'objet

Résolu

Kuartz -

Mon fichier : https://www.cjoint.com/c/EGDnFL7zB3f

Lorsque je clique sur la macro, si je répond "Revenir au tiers précédent" sur ma MsgBox, j'ai un message d'erreur : Erreur définie par l'application ou par l'objet".

Si je clique directement sur "Revenir au tiers précédent" j'ai cette erreur. Mais également parfois pendant la vérif, elle revient...

Merci de m'aider.

Cordialement.

Afficher la suite

4 réponses

Résumé de la discussion

Problème rencontré dans un fichier Excel avec une macro et une MsgBox lorsque l'utilisateur sélectionne « Revenir au tiers précédent », aboutissant à l'erreur « Erreur définie par l'application ou par l'objet ». Plusieurs réponses techniques évoquent des questions sur l'utilisation de .Value, des ajustements de couleurs de fond et des comportements des contrôles, notamment la personnalisation de MsgBoxPerso et des détails de code VBA. D'autres échanges mentionnent des difficultés de débogage, des variantes liées aux types (texte vs nombres) et l'impact potentiel de paramètres comme l'Option Base, sans tirer de conclusion sur l'état du problème.

Réponse 1 / 4
f894009
Bonjour,

a tester dans tous les sens: https://www.cjoint.com/c/EGDp6YLOW7f
0
1. Kuartz Auteur
  
  Bonjour,
  
  Même erreur qu'avant. A savoir lorsque je répond "Tiers précédent", on me ramène à la dernière ligne où j'ai répondu "OUI". Les lignes où je répond "NON" sont ignorées par le retour en arrière.
  
  Deuxième erreur, répondez "NON" à la première MsgBox puis "TIERS PRECEDENT" et voyez par vous même.
  
  Merci en tout cas.
  
  Cordialement.
  
  0
Réponse 2 / 4
Patrice33740
Bonjour,

Comme mdf, tu devrais commencer chaque module par
```
Option Explicit
```
C'est-à-dire :
```
Option Explicit
Sub TEST()
...
```
0
1. f894009
  
  Bonjour,
  
  A faire surement, ici ce n'est pas un probleme de declaration de variable, c'est une variable "vide" qui provoquait une erreur, mais dans son code, c'est une fonction qui cree une userform et ca marche bien sauf que pas moyen de mettre des points d'arret et pas d'arret sur les lignes en erreur. J'ai donc palier en mettant des msgbox avec les variables utilisees la ou l'erreur etait la plus probable
  
  0
2. Patrice33740
  
  @f894009Bonjour f894009,
  
  En fait, je n'ai même pas cherché d'où vient l'erreur.
  Quand je vois un code où les variables ne sont que partiellement déclarées et qui utilise des syntaxes abrégées (Par exemple Range("D" & I) au lieu de Range("D" & I).Value), je me dis qu'il met toutes les chances d'erreur de son coté !!!
  
  0
3. f894009
  
  @Patrice33740Bonjour,
  
  Ok, mais j'ai tendance a le faire aussi suivant ce que je progamme
  
  0
4. Kuartz Auteur
  
  Bonjour,
  
  Je suis désolé mais je ne suis qu'un petit débutant du VBA. Il y a 2 mois, je ne savais pas ce que voulait dire le mot "Sub".. J'apprend aussi vite que je peux, je lis autant de tutos que je peux. Mais il me manque clairement des bases et des notions. Dans quels cas exactement utilise-t-on le .Value? Et dans quels cas on ne l'utilise pas svp?
  
  0
5. Patrice33740
  
  @KuartzBonjour,
  
  Le .Value est à utiliser chaque fois qu'on veut obtenir la valeur contenue dans la cellule,
  
  Mais il est plus important de déclarer la variable qui va recevoir cette valeur, cela permet de s'assurer que cette valeur correspond bien à ce qui est attendu (erreur 13 , incompatibilité de type de variable)
  
  Patrice
  
  0
Réponse 3 / 4
f894009
Bonjour,

Même erreur qu'avant Pas d'erreur excel !!!!

Votre "truc" se complique allegrement, il faut mettre en memoire toutes les lignes ou vous avez repondu Non ou Oui et suivant: raz ou non Debit, et evidement gerer la mise a jour de ces memoires en fonction des nouvelles reponses.
0
1. Kuartz Auteur
  
  Exact. Pas d'erreur excel cette fois-ci. Sauf si l'on répond "NON" au départ puis tiers précédent. S'affiche alors le message "Erreur définie par l'application ou par l'objet".
  
  Si la chose devenait vraiment trop compliqué, dites le moi et n'y passez pas trop de temps. Je ferai sans.
  
  0
2. f894009
  
  @KuartzRe,
  
  Faudrait tout remettre a plat et reecrire le code, parce que la j'empile ou modifie en fonction et ce qui "marchait" avant a tendance a boiter
  
  le message "Erreur définie par l'application ou par l'objet". arrive pas l'avoir !!!!
  
  0
3. Kuartz Auteur
  
  Re,
  
  J'en suis incapable. Le fait de mettre en mémoire les réponses ne me parle déjà pas du tout.
  
  0
4. f894009
  
  @KuartzRe,
  
  J'en suis incapable Pour l'instant, mais faut etre optimiste. J'ai une idee, mais pas vraiment le temps avant samedi.
  
  0
5. Kuartz Auteur
  
  C'est vraiment sympa de m'aider en tout cas. Chaque code que vous m'apportez me permet aussi d'améliorer mon niveau en VBA.
  
  0
Réponse 4 / 4
f894009
Bonjour,

fichier modifie avec un petit changement dans les boutons et le fonctionnement.

https://www.cjoint.com/c/EHbfZnA4SNf

Recherche identique a avant
Oui: ecriture debit mais reste sur le tier afin de repondre non si erreur
Non: raz debit et idem Oui pour position
Precedent: remontee au tier precedent sans modifier debit
Suivant: descente au tiers suivant sans modifier debit

Par contre actuellement si vous repondez Oui ou Non la mise a jour ne se fait que sur les lignes du tier en cours que si c'est classe par nom de tiers, mais en descendant. Donc ma question: pour un meme tier pouvez vous repondre non sur au moins une ligne et oui pour les autres
0
1. Kuartz Auteur
  
  Ca me convient parfaitement :)
  
  Peut-on enlever la couleur de fond de la MsgBoxPerso? (jaune) et mettre le "Oui" en vert sur le bouton? Avoir une Box un peu plus sobre quoi.
  
  Merci d'avance. Et merci pour ce merveilleux travail :)
  
  0
2. f894009
  
  @KuartzBonjour,
  
  Peut-on enlever la couleur de fond de la Vous n'aimez pas les couleurs ??? J'aurai pu faire pire
  
  La gestion des couleurs est dans le code du module mDF_MsgBoxPerso. "Facile", les couleurs actuelles fond userform:vbYellow et Bouton Oui: vbBlue
  
  0
3. Kuartz Auteur
  
  Merci beaucoup :) Dans tout mon code, où dois-je mettre "Option base 1"? Il me dit "Instruction incorrecte dans une procédure"
  
  0
4. Kuartz Auteur
  
  @KuartzTrouvé !
  
  0
5. Kuartz Auteur
  
  Disons que la couleur flash un peu trop à mon goût :p
  
  Merci beaucoup pour tout ! :) La seule chose sur laquelle j'aurais pu dire quelque chose est que lorsque j'ai un tiers prenons par exemple "DARTY". J'ai 2 lignes à la suite qui sont en RAN et qui ont comme tiers "DARTY". Si je répond "OUI", les 2 lignes se remplissent (parfait). Mais si je met suivant ensuite, je vais vers l'autre tiers DARTY, alors qu'il a déjà été rempli.
  
  Mais ne vous embêtez pas avec ça, ce n'est qu'un détail.
  
  Encore merci merci merci :)
  
  0

Erreur définie par l'application ou par l'objet

4 réponses

Discussions similaires

Newsletters