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.
Au lieu de cela, une erreur se produit et le code n’est pas créé.
É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.
Private Sub Workbook_Activate() End Sub
Private Sub Workbook_AddinInstall() End Sub
Private Sub Workbook_AddinUninstall() End Sub
Private Sub Workbook_AfterRemoteChange() End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean) End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean) End Sub
Private Sub Workbook_BeforeRemoteChange() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub
Private Sub Workbook_Deactivate() End Sub
Private Sub Workbook_NewChart(ByVal Ch As Chart) End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object) End Sub
Private Sub Workbook_Open() End Sub
Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable) End Sub
Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable) End Sub
Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean) End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object) End Sub
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) End Sub
Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range) End Sub
Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) End Sub
Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) End Sub
Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long) End Sub
Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable) End Sub
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) End Sub
Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject) End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType) End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window) End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window) End Sub
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDelete()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_LensGalleryRenderComplete()
End Sub
Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
End Sub
Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
End Sub
Ressources complémentaires
Demandez aux experts
Communiquez avec des experts, discutez des actualités d’Excel, des mises à jour et des meilleures pratiques et lisez notre blog.
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.
Suggérer une nouvelle fonctionnalité
Vos suggestions et commentaires sont les bienvenus. Faites-nous part de vos idées. Nous sommes à votre écoute.
Voir aussi
Correctifs ou solutions de contournement pour les problèmes récents dans Excel pour Mac
