Problème visual basic

Bonjour,

J’utilise actuellement un fichier avec un petit programme sous excel pour la gestion de contrôles réglementaire, j’ai un soucis lorsque je clique sur le bouton "tous contrôles et actions" cela m’affiche un message "erreur d’exécution '13' : incompatibilité de type" et quand je lance le débogage voici ce que j’ai:

Sauriez-vous m’aider à solutionner ce problème ?

Je précise que je n’y connais absolument rien en virtual basic

Merci d’avance

Salut,

Je me suis permis de déplacer le sujet dans une catégorie plus appropriée. Le forum "Bugs et suggestions" étant destiné aux bugs liés au site ZdS

Salut,

Tu obtiens cette erreur parce que la valeur retournée par xmoy ici ne peut pas être affectée à la variable de type double moyen.

En passant la souris sur les éléments en jaune, tu peux voir les valeurs, ce qui peut aider à comprendre. Tu peux aussi mettre un point d’arrêt dans la fonction xmoy (si tu fais F8 en jaune tu peux dérouler normalement) pour voir où ça pêche. J’émets l’hypothèse que le problème vient de la valeur tr qui lui est fournie.

Si tu as un peu de temps, voici une aide au débogage : https://zestedesavoir.com/billets/4433/deboguer-ses-macros-vba-dans-excel/

J’émets l’hypothèse que le problème vient de la valeur tr qui lui est fournie.

Bonjour

Surement une bonne piste sachant que tr = .Cell(i, 1) est un Range … https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.cells (version anglaise car la version FR est ambiguë ! )

je ne sais pas ce que fais xmoy (ça ne semble pas être une fonction native) mais si c’est une moyenne alors un nombre semble plus approprié

par contre, je ne connaissais pas cette syntaxe (avec les :) mais pour moi, elle est à bannir !

La lecture d’une cellule donne bien sa valeur, mais c’est vrai que la doc n’est pas très parlante :

Debug.Print (VarType(Sheets(1).Cells(1, 1))) ' 5 pour double

(par contre le comportement est différent avec les Range)

Je pense que c’est la valeur contenue dans cette cellule qui peut poser problème (vide ?)

Pareil, je trouve cette notation moins lisible aussi, mais apparemment ce n’est pas lui l’auteur du code, donc ça complique également sa compréhension

Hello,

A tout hasard, tu n’as pas la possibilité de retrouver Denis Dalmont, l’auteur du programme ?

Visiblement c’est un freeware uploadé en 2011 : https://excel-pratique.com/fr/telechargements/outils-de-gestion/maintenance-no53

Ah, ok. Désolé pour mon manque d’information.

Salut,

Malheureusement il est décédé il y a quelques années, j’ai réussi à trouver un fichier d’une personne qui à craqué le mdp mais je n’ai pas les connaissances nécessaire pour creuser tout ça…

Salut voila les valeurs que j’ai quand je passe la souris dessus:

Y’a pas de mal, j’ai juste poussé ton idée plus loin en faisant une recherche google

@Adel44 et si tu passe la souris sur moyen tu as combien ? du coup on peut voir que c’est la valeur de la Feuil2 cellule R19 qui est utilisée ici quelle est-elle ?

Salut,

Sur moyen j’ai la valeur =1 qui s’affiche. Il n’y a rien dans la cellule R19 de la feuil2 …

Au temps pour moi ce n’est pas R19 qu’il faut regarder. Peux-tu voir la valeur de machine(a) ?

Pas sûr que ce soit bien ce que tu me demande mais voila les captures d’écrans

Nop, idéalement il faudrait rajouter un espion sur machine comme expliqué dans le billet, comme ça on pourrait voir les valeurs contenues surtout en position 19.

J’ai finalement modifié la valeur entourée en rouge (18) par 19 et ça à l’air de fonctionner…