Erreur 438 sur certains ordinateur

Bonjour à tous,

je suis un pure novice de la programmation et j'ai un Pb que je n'arrive pas à résoudre…..

une aide serait la bien venue…

Je plante le décors:

J'ai créer une macro pour réaliser un tri par catégorie de poids (pour un sport de combat).

Le principe est d'avoir une liste d'inscrits et de les répartir dans 24 catégories de poids différentes, puits de proposer une liste récapitulative par catégorie de poids.

Pour créer cette macro, j'ai utilisé la fonction enregistrer une macro sur excel (onglet developpeur).

a chaque fois que la catégorie de poids est identifiée dans la liste d'inscrits, j'incrémente le nombre d'inscrits de cette catégorie de 1. Si l'inscrits n'est pas dans cette catégorie de poids, la valeurs 100 apparait dans cette case.

Une fois que c'est fait, je fais un copier/coller les valeurs de cette liste dans une autre feuille, et je réalise un trie avec le nombre d'inscrits. J'obtient donc une liste trier qui, pour chaque catégorie, fait apparaitre le nom, prenom et pays par catégorie (voir PJ)

Cette macro fonctionne très bien sur mon PC (office 365) et aussi sur le PC de ma femme. Mais sur d'autre ordinateur, lorsqu'on lance la macro, une erreur apparait erreur d'execution '438' propriété ou méthode non gerer par cette objet. (voir PJ). La partie de la macro qui est surligné en jaune ne semble pas fonctionner sur certains PC (voir PJ)

19details-des-pb.pdf (719.11 Ko)

Je tourne en rond depuis des jour sans comprendre pourquoi cela ne marche pas sur certains PC....si quelqu'un peut m'aider, je suis preneur!!

Merci par avance pour votre aide!

Bien cordialement

Bonjour,

On ne peut rien faire avec un pdf, sauf constater que le code provient de l'enregistrement automatique de macro.

Le code contient des "ScrollColumn" et des "Select", lesquels sont à éviter.

Soumets-nous un fichier anonymisé avec le code afin d'y faire un certain ménage.

De plus, en éliminant les "ScrollColumn" et les "Select", l'exécution en sera plus rapide.

ric

Bonjour,

Commence par remplacer Add2 par Add.

Introduit avec Excel 2013.

Cdlt.

Bonjour,

Merci pour ces réponses!!!

Comme vous avez pu sans doute le constater, je suis un vrai novice..........

Le fichier est trop gros pour etre envoyé via le téléchargement de PJ...vous avez une solution à me proposer?

en tous cas, merci pour votre aide précieuse!

Je vais également essayer de remplacer toutes les Add2 par Add en parrallèle!

Je vous tiens au courant!

MERCI!!

Bonjour à tous,

Il y a un gros ménage à faire.

ric

……

désolé……

C'est la différence entre un pure novice et quelqu'un comme vous….

Ne vous embetter pas trop…. le but est juste de réussir a faire tourner les macro sur tous les pc….

j'ai fait la modif suivantes: Add.2 remplacer par Add. Sur mon poste, rien a signaler ca fonctionne!

J'ai envoyer le fichier à un collègue qui n'arrivait pas a faire tourner la macro sur son pc…

j'attend le verdict!

Une nouvelle fois un grand merci pour votre aide!

bien cordialement

Bonjour, je viens d'avoir un retour;

ca fonctionne!!!Le pb venait donc de la fonction Add2. qu'il suffisait de remplacer par la fonction Add.

Un grand merci pour votre aide!!!!!

bien cordialement

Bonjour,

Je vais quand même tenter d'améliorer ton code.

Il y a des répétitions que l'on peut éviter, des select et des scroll à supprimer, etc.

J'ai seulement besoin d'un peu de temps.

Le code va en être passablement diminué.

ric

Super!!!!

En tout cas un grand merci!

C’est cool de pouvoir trouver ce genre d’aide pour avancer!!!

N’hesite Pas si besoin d’infos!!

Bien cordialement

Bonjour,

Le module15 n'est pas complètement nettoyé.

Ma patience est épuisé.

Je te laisse ce bout-là.

Pour les autres Sub, ils sont un peu nettoyés (les Scroll, Select, etc), mais pas optimisés.

ric

Un très grand merci ric!!!!!

en esperant pouvoir rendre la pareil a quelqu'un dans mon domaine de compétence!

Deux dernières petites questions si je puits me permettre!

Quand on est sur la page contrôle, quand on clique sur le boutton order of passage, normalement, cela effectue un copier coller et un trie dans les onglets ODP enceinte 1, 2, 3, 4, 5

Le trie de la feuille ODP enceinte 2 ne se fait plus; j'ai essayer de regarder comment fonctionnait la macro...j'avoue ne pas savoir comment réactivé le trie… peux tu m'expliquer car je suis un peu perdu!!!

Deuxième question, j'ai compris que tu avais nettoyer les select et scroll. peux tu me donner le principe de nettoyage?que dois-je supprimer exactement?

D'avance merci pour ton retour et pour ton aide!!

Bonne journée

Rechercher des sujets similaires à "erreur 438 certains ordinateur"