Erreur « Cette variable utilise un type Automation non géré » dans l’éditeur Visual Basic d’Excel pour Mac

Le support d’Office 2016 pour Mac a pris fin le 13 octobre 2020

Effectuez une mise à niveau vers Microsoft 365 pour travailler à partir de n’importe quel appareil et continuer à bénéficier du support.

Mettre à niveau maintenant

Dernière mise à jour : 10 avril 2019

PROBLÈME

Dans Excel pour Mac, un nouvel éditeur Visual Basic a été introduit en octobre 2017. Avec ce nouvel éditeur VB, un problème existe lors de la création de déclarations d’objet en sélectionnant le menu déroulant en haut de la fenêtre de code.

Si vous cliquez sur le menu déroulant de gauche et choisissez une option de la liste, vous devriez obtenir du code pour l’événement sélectionné dans la liste déroulante de droite. Vous pouvez effectuer des sélections supplémentaires dans la liste déroulante de droite pour créer du code supplémentaires pour gérer l’événement choisi.

Éditeur Visual Basic avec liste déroulante de sélection d’objet

Au lieu de cela, une erreur se produit et le code n’est pas créé.

Erreur Microsoft Visual Basic : Cette variable utilise un type Automation non géré par Visual Basic.

ÉTAT : SOLUTION DE CONTOURNEMENT

Choisissez l’une de ces solutions pour contourner le problème :

SOLUTION DE CONTOURNEMENT 1

Vous pouvez effectuer la même étape sur un ordinateur exécutant Excel pour Windows, puis copier le code dans Excel pour Mac.

SOLUTION DE CONTOURNEMENT 2

Vous pouvez aller sur MSDN et rechercher la syntaxe de l’événement que vous voulez utiliser, puis saisir le code manuellement dans votre projet VBA. Cet article décrit les événements de « classeur » Microsoft Excel - Événements de classeur.

SOLUTION DE CONTOURNEMENT 3

Copiez le code d’événement approprié dans les exemples ci-dessous, puis collez-le dans votre projet VBA. Pour chaque événement, veillez à copier de « Private Sub... » à « End Sub », inclus.

Sous Classeur Privé_Activer()
Fin Sous

Sous Classeur Privé_AjouterInstaller()
Fin Sous

Sous Classeur Privé_AjouterDésinstaller()
Fin Sous

Sous Classeur Privé_AprèsSupprimerModifier()
Fin Sous

Sous Classeur Privé_AfprèsEnregistrer(ParVal Succès En Tant Que Booléen)
Fin Sous

Sous Classeur Privé_AvantFermer(Annuler En Tant Que Booléen)
Fin Sous

Sous Classeur Privé_AvantImprimer(Annuler En Tant Que Booléen)
Fin Sous

Sous Classeur Privé_AvantSupprimerModifier()
Fin Sous

Sous Classeur Privé_AvantEnregistrer(ParVal EnregistrerEnTantQueInterfaceUtilisateur En Tant Que Booléen, Annuler En Tant Que Booléen)
Fin Sous

Sous Classeur Privé_Désactiver()
Fin Sous

Sous Classeur Privé_NouveauGraphique(ParVal Gr En Tant Que Graphique)
Fin Sous

Sous Classeur Privé_NouvelleFeuille(ParVal Feui En Tant Que Objet)
Fin Sous

Sous Classeur Privé_Ouvrir()
Fin Sous

Sous Classeur Privé_TableauCroiséDynamique Microsoft FermerConnexion(ParVal Cible En Tant Que Tableau Croisé Dynamique Microsoft)
Fin Sous

Sous Classeur Privé_TableauCroiséDynamique Microsoft OuvertConnexion(ParVal Cible En Tant Que Tableau Croisé Dynamique Microsoft)
Fin Sous

Sous Classeur Privé_EnsembleLigneComplet(ParVal Description En Tant Que Chaine, ParVal Feuille En Tant Que Chaine, ParVal Succès En Tant Que Booléen)
Fin Sous

Sous Classeur Privé_FeuilleActiver(ParVal Feui En Tant Que Objet)
Fin Sous

Sous Classeur Privé_FeuilleAvantSupprimer(ParVal Feui En Tant Que Objet)
Fin Sous

Sous Classeur Privé_AvantDoubleClic(ParVal Cible En Tant Plage, Annuler En Tant Que Boolean)
Fin Sous

Sous Classeur Privé_AvantDoubleClicDroit(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Plage, Annuler En Tant Que Boolean)
Fin Sous

Sous Classeur Privé_FeuilleCalculer(ParVal Feui En Tant Que Objet)
Fin Sous

Sous Classeur Privé_FeuilleModifier(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Plage)
Fin Sous

Sous Classeur Privé_FeuilleDésactiver(ParVal Feui En Tant Que Objet)
Fin Sous

Sous Classeur Privé_FeuilleSuivreHyperlien(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Hyperlien)
Fin Sous

Sous Classeur Privé_tableau croisé dynamique MicrosoftAprèsValeurModifier(ParVal Cible tableaucroisédynamiqueMicrosoft En Tant Que tableaucroisédynamiqueMicrosoftParVal CiblePlage En Tant Que Plage)
Fin Sous

SousClasseurPrivé_ tableau croisé dynamique Microsoft AvantAllouermodifications(ParVal Cible tableau croisé dynamique Microsoft EnTant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer EnTant Que Long, ParVal ValeurModificationFin EnTant Que Long, Annuler EnTant Que Booléenne)
Fin Sous

SousClasseurPrivé_ tableau croisé dynamique Microsoft AvantAllouermodifications(ParVal Cible tableau croisé dynamique Microsoft EnTant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer EnTant Que Long, ParVal ValeurModificationFin EnTant Que Long, Annuler EnTant Que Booléenne)
Fin Sous

SousClasseurPrivé_ tableau croisé dynamique Microsoft AvantAllouermodifications(ParVal Cible tableau croisé dynamique Microsoft EnTant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer EnTant Que Long, ParVal ValeurModificationFin EnTant Que Long, Annuler EnTant Que Long)
Fin Sous

Sous Classeur Privé_FeuilleTableauCroiséDynamique MicrosoftModifierSyncroniser(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Tableau croisé dynamique Microsoft)
Fin Sous

Sous Classeur Privé_FeuilleTableauCroiséDynamique MicrosoftMisaÀjour(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Tableau croisé dynamique Microsoft)
Fin Sous

Sous Classeur Privé_FeuilleSélectionerModifier(ParVal Feui En Tant Objet, ParVal Cible En Tant Que Plage)
Fin Sous

Sous Classeur Privé_FeuilleTableauCroiséDynamique MicrosoftMisaÀjour(ParVal Feui En Tant Objet, ParVal Cible En Tant Que TableauObjet)
Fin Sous

Sous Classeur Privé_Sync(ByVal SyncEvénementType En Tant Que Office.MsoSyncEventType)
Fin Sous

Sous Classeur Privé_FenêtreActiver(ByVal Fen En Tant Que Fenêtre)
Fin Sous

Sous Classeur Privé_FenêtreDésactiver(ByVal Fen En Tant Que Fenêtre)
Fin Sous

Sous Classeur Privé_FenêtreRedimensionner(ByVal Fen En Tant Que Fenêtre)
Fin Sous

Sous Classeur Privé_Activer()

Fin Sous

Sous Classeur Privé_AvantSupprimer()

Fin Sous

Sous Classeur Privé_AvantDoubleClic(ParVal Cible En Tant Plage, Annuler En Tant Que Boolean)

Fin Sous

Sous Classeur Privé_AvantDroitClic(ParVal Cible En Tant Plage, Annuler En Tant Que Boolean)

Fin Sous

Sous Classeur Privé_Calculer()

Fin Sous

Sous Classeur PrivéModifier(ParVal Cible En Tant Que Plage)

Fin Sous

Sous Classeur Privé_Désactiver()

Fin Sous

Sous Classeur Privé_SuivreHyperlien(ParVal Cible En tant Qu’Hyperlien)

Fin Sous

Sous Classeur Privé_LensGalleryRendreComplet()

Fin Sous

Sous Classeur Privé_tableau croisé dynamique MicrosoftAprèsValeurModifier(ParVal Cible tableaucroisédynamiqueMicrosoft En Tant Que tableaucroisédynamiqueMicrosoftParVal CiblePlage En Tant Que Plage)

Fin Sous

SousClasseurPrivé_ tableau croisé dynamique Microsoft AvantAllouermodifications(ParVal Cible tableau croisé dynamique Microsoft EnTant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer EnTant Que Long, ParVal ValeurModificationFin EnTant Que Long, Annuler EnTant Que Booléenne)

Fin Sous

Sous Classeur Privé_ tableau croisé dynamique Microsoft AvantEffectuermodifications(ParVal Cible tableau croisé dynamique Microsoft En Tant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer En Tant Que Long, ParVal ValeurModificationFin En Tant Que Long, Annuler En Tant Que Booléenne)

Fin Sous

Sous Classeur Privé_TableauCroiséDynamiqueMicrosoftAvantAbandonnermodifications(ParVal Cible tableau croisé dynamique Microsoft En Tant Que tableau croisé dynamique Microsoft, ParVal ValeurModificationDémarrer En Tant Que Long, ParVal ValeurModificationFin En Tant Que Long)

Fin Sous

Sous Classeur Privé_ tableau croisé dynamique Microsoft ModifierSync(ParVal Cible En Tant Que tableau croisé dynamique Microsoft)

Fin Sous

Sous Classeur Privé_ tableau croisé dynamique Microsoft MiseAJour(ParVal Cible En Tant Que tableau croisé dynamique Microsoft)

Fin Sous

Sous Classeur Privé_SelectionModifier(ParVal Cible En Tant Que Plage)

Fin Sous

Sous Classeur Privé_TableauMiseAJour(ParVal Cible En Tant Que ObjetTableau)

Fin Sous

Ressources complémentaires

Icône Experts (cerveau, engrenages)

Demandez aux experts

Communiquez avec des experts, discutez des actualités d’Excel, des mises à jour et des meilleures pratiques, et lisez notre blog.

Communauté technique Excel

Icône Communauté

Obtenir de l’aide de la Communauté

Posez une question et trouvez des solutions avec les agents de support technique, les MVP, les ingénieurs et les autres utilisateurs d’Excel.

Forum de réponses d’Excel

Icône Proposition de fonctionnalité icône (ampoule, idée)

Suggérer une nouvelle fonctionnalité

Vos suggestions et commentaires sont les bienvenus. Faites-nous part de vos idées. Nous sommes à votre écoute.

Excel UserVoice

Voir aussi

Correctifs ou solutions de contournement pour les problèmes récents dans Excel pour Mac

Besoin d’aide ?

Développez vos compétences dans Office
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×