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

Rechercher des sujets similaires à "2021 365 mac prend pas charge macros"