Excel 2021 365 MAC ne prend pas en charge les macros?
J'avais un fichier Excel avec des macros qui fonctionnait parfaitement avec Excel 2011. À présent, depuis que j'ai installé Office 365 et Excel sur mon nouveau Mac avec puce M1, ces fichiers ne fonctionnent plus, que des débogages. Pour info le fichier fonctionne sur PC, mais pas sur Mac .
L'erreur serait ici, mais personne n'arrive à solutionner le problème.
Merci aux experts de bien vouloir m'apporter une réponse
Bien cordialement
Macro sur Mac MS Office 365
Cette macro fonctionne sur un Office 2019 sur PC
Ligne d’erreur en rouge
Code erreur 438
Sub AddToCellMenu()
Dim ContextMenu1, ContextMenu2 As CommandBar
Dim MonSubMenu1, MonSubMenu2 As CommandBarControl
Dim Opt As String
'Supprimer les menus
DeleteFromCellMenu
Set ContextMenu = Application.CommandBars("Cell")
'Rajouter les menus
Set MonSubMenu1 = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=1)
Set MonSubMenu2 = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=1)
With MonSubMenu1
.Caption = "Formater les Cellules"
.Tag = "Mon_Cell_Control_Tag1"
With .Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ActiveWorkbook.Name & "'!" & "Maj"
.FaceId = 100
.Caption = "Majuscule"
Opt = "Maj"
End With
End With
Bonjour
Ta macro tourne mais plante sur la ligne ne rouge si je comprends bien
Attendons un spécialiste MAC mais il est probable que les boutons mac soient d'autres objets que sur PC
BOnjour
Je me permets de relancer ma demande car à ce jour aucune nouvelle de Microsoft ou d'un expert pour arriver à remedier au problème suivant:
J'avais un fichier Excel avec des macros qui fonctionnait parfaitement avec Excel 2011. À présent, depuis que j'ai installé Office 365 et Excel sur mon nouveau Mac avec puce M1, ces fichiers ne fonctionnent plus, que des débogages. Pour info le fichier fonctionne sur PC, mais pas sur Mac .
L'erreur serait ici, mais personne n'arrive à solutionner le problème.
Macro sur Mac MS Office 365
Cette macro fonctionne sur un Office 2019 sur PC
Ligne d’erreur en rouge
Code erreur 438
Sub AddToCellMenu()
Dim ContextMenu1, ContextMenu2 As CommandBar
Dim MonSubMenu1, MonSubMenu2 As CommandBarControl
Dim Opt As String
'Supprimer les menus
DeleteFromCellMenu
Set ContextMenu = Application.CommandBars("Cell")
'Rajouter les menus
Set MonSubMenu1 = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=1)
Set MonSubMenu2 = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=1)
With MonSubMenu1
.Caption = "Formater les Cellules"
.Tag = "Mon_Cell_Control_Tag1"
With .Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ActiveWorkbook.Name & "'!" & "Maj"
.FaceId = 100
.Caption = "Majuscule"
Opt = "Maj"
End With
End With
Mille mercis par avance pour vos réponses et votre aide
Bien cordialement