Probleme VBA combobox Erreur 438 : Propriete ou méthode non gérée par cet objet
Résolu
BrainyCucumber
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
BrainyCucumber Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
BrainyCucumber Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je me trouve actuellement dans une impasse, j'ai un fichier excel qui remplis une combobox automatiquement à l'ouverture du fichier. Cela fonctionnait parfaitement jusqu’à il y a 2 3 jours.
J'ai essayer de copier le fichier sur d'autres ordinateurs et le fichier fonctionne parfaitement. Je ne comprend pas pourquoi cela ne marche plus sur le mien.
C'est comme si tous mes contrôles développeur inséré dans le fichier n'était plus disponible.
Si vous pouviez m'aider cela serait génial
Merci
Quentin
Je me trouve actuellement dans une impasse, j'ai un fichier excel qui remplis une combobox automatiquement à l'ouverture du fichier. Cela fonctionnait parfaitement jusqu’à il y a 2 3 jours.
J'ai essayer de copier le fichier sur d'autres ordinateurs et le fichier fonctionne parfaitement. Je ne comprend pas pourquoi cela ne marche plus sur le mien.
C'est comme si tous mes contrôles développeur inséré dans le fichier n'était plus disponible.
Si vous pouviez m'aider cela serait génial
Merci
Quentin
A voir également:
- Propriété ou méthode non gérée par cet objet
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Iptv erreur de lecture - Forum TV & Vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
11 réponses
Bonjour,
Au passage ,essayez de trouver sur quelle ligne de code se produit l'erreur (via pas pas)...!
Au passage ,essayez de trouver sur quelle ligne de code se produit l'erreur (via pas pas)...!
Voici le code ou l'erreur s'affiche : (Code présent dans le module de démarrage Wokbook_open
DernierJoueur = Sheets("BDD").Range("ZZ7").End(xlToLeft).Column
For i = 2 To DernierJoueur
ColJoueur = Split(Cells(1, i).Address, "$")(1)
Sheets("Information joueurs").Joueur.AddItem Sheets("BDD").Range(ColJoueur & "7")
Next i
Et voila la combobox en question.
Je n'ai même plus accès aux paramètres pour changer son nom et ses propriétés.
Merci de votre aide
DernierJoueur = Sheets("BDD").Range("ZZ7").End(xlToLeft).Column
For i = 2 To DernierJoueur
ColJoueur = Split(Cells(1, i).Address, "$")(1)
Sheets("Information joueurs").Joueur.AddItem Sheets("BDD").Range(ColJoueur & "7")
Next i
Et voila la combobox en question.
Je n'ai même plus accès aux paramètres pour changer son nom et ses propriétés.
Merci de votre aide
Bonjour,
Merci pour le retour, toutefois si j’essaye votre code je reçois ceci :
Je pense qu’il faut avoir la structure de votre fichier…..
Merci pour le retour, toutefois si j’essaye votre code je reçois ceci :
Je pense qu’il faut avoir la structure de votre fichier…..
Bonjour,
la structure de votre fichier…..
Une représentation conceptuelle des relations entre la valeur des données, les enregistrements et les fichiers. La structure en général décrit la manière dont les données sont stockées et comment elles doivent être manipulées.
En marge , je viens de réussir de reproduire votre erreur :
la structure de votre fichier…..
Une représentation conceptuelle des relations entre la valeur des données, les enregistrements et les fichiers. La structure en général décrit la manière dont les données sont stockées et comment elles doivent être manipulées.
En marge , je viens de réussir de reproduire votre erreur :
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
L'erreur ne vient pas du code, j'en suis certain car j'ai copier coller le fichier tel que sur 3 autres PC et il a tout de suite fonctionner. Mon problème est sur mon PC a moi.
J'ai par exemple ce type d'anomalie: la combobox est sélectionnée mais ses données n'apparaissent pas dans l'éditeur VBA comme l'exemple si joint :
alors que je devrais obtenir quelque chose qui ressemble a ca : (image trouvée sur internet)
Je pense que c'est un paramètre désactivé ou quelque chose dans le genre.
Comment avez vous réussi a reproduire l'erreur ?
Merci
L'erreur ne vient pas du code, j'en suis certain car j'ai copier coller le fichier tel que sur 3 autres PC et il a tout de suite fonctionner. Mon problème est sur mon PC a moi.
J'ai par exemple ce type d'anomalie: la combobox est sélectionnée mais ses données n'apparaissent pas dans l'éditeur VBA comme l'exemple si joint :
alors que je devrais obtenir quelque chose qui ressemble a ca : (image trouvée sur internet)
Je pense que c'est un paramètre désactivé ou quelque chose dans le genre.
Comment avez vous réussi a reproduire l'erreur ?
Merci
Bonjour à tous
Une question ... au cas où
Quelle version d'excel as tu dans la machine à problème, dans les autres ?
Cdlmnt
Une question ... au cas où
Quelle version d'excel as tu dans la machine à problème, dans les autres ?
Cdlmnt
Bonjour,
Je vous ai mis image de l’erreur au poste 5 et elle se produit sur la ligne :
Donc c’est bien dans votre code.
Je vous ai mis image de l’erreur au poste 5 et elle se produit sur la ligne :
Sheets("Information joueurs").Joueur.AddItem Sheets("BDD").Range(coljoueur & "7")
Donc c’est bien dans votre code.
Bonjour,
j'ai l'impression que tu mélanges les notions.
AddItem ne va pas te remplir RowSource, ce sont 2 choses différentes.
Tu as 3 façons de remplir :
- .AddItem : un par un
- .RowSource : avec une plage
- .List : avec une variable tableau
Regarde si tu n'as pas désactivé les ActiveX dans la Gestion de la confidentialité.
Annule les dernières mises à jour des fois qu'une en soit la cause.
eric
j'ai l'impression que tu mélanges les notions.
AddItem ne va pas te remplir RowSource, ce sont 2 choses différentes.
Tu as 3 façons de remplir :
- .AddItem : un par un
- .RowSource : avec une plage
- .List : avec une variable tableau
Regarde si tu n'as pas désactivé les ActiveX dans la Gestion de la confidentialité.
Annule les dernières mises à jour des fois qu'une en soit la cause.
eric
Oui.
Ce que je conteste c'est le RowSource rempli que tu as encadré en rouge.
Avec AddItem il reste vide.
Tu restes axé là-dessus alors que je t'ai fait 2 propositions restées lettres mortes pour avancer dans la résolution de ton pb...
Fait une restauration avant l'arrivée de ce pb et regarde si ça va mieux
eric
Ce que je conteste c'est le RowSource rempli que tu as encadré en rouge.
Avec AddItem il reste vide.
Tu restes axé là-dessus alors que je t'ai fait 2 propositions restées lettres mortes pour avancer dans la résolution de ton pb...
Fait une restauration avant l'arrivée de ce pb et regarde si ça va mieux
eric
Bonjour,
Je vous propose simplement de faire la démarche inverse selon votre premier poste. A savoir copier le classeur sur le PC ou le fonctionnement est correct et vous l’enregistrer sur votre PC et vous verrez si vous avez toujours le même problème.
Je vous propose simplement de faire la démarche inverse selon votre premier poste. A savoir copier le classeur sur le PC ou le fonctionnement est correct et vous l’enregistrer sur votre PC et vous verrez si vous avez toujours le même problème.
Bonjour,
Le classeur de départ à bien été crée sur votre PC !
Est-ce possible d'obtenir le fichier pour tester?
Le classeur de départ à bien été crée sur votre PC !
Est-ce possible d'obtenir le fichier pour tester?
J'ai déjà effectué le pas à pas et cela vient du moment ou je lui demande de me trouver ma combobox via cette commande:
Sheets("Information joueurs").Joueur.AddItem Sheets("BDD").Range(ColJoueur & "7")
Je viens ici essayer de remplir ma combobox avec les valeurs des cellules en feuille "BDD" de A7 / B7 / C7 (par exemple)
Ceci etant très bizare puisqu'il ne fonctionne sur les autres PC et plus sur le mien (alors que cela fonctionnait lorsque j'ai créer le programme sur mon ordinateur).