Bonjour
Je reviens vers vous car la solution ne m'a pas été apportée.
En effet , j'ai fichier Excel avec des macros qui fonctionnait parfaitement avec Excel 2011. 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 .
Voici l'erreur:
Macro sur Mac MS Office 365
Cette macro fonctionne sur un Office 2019 sur PC
Ligne d’erreur en rouge ( gras)
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
Peut on demander aux développeurs de faire le nécessaire au plus vite car cela fait plusieurs semaine que je ne peux plus travailler sur mon fichier.
Cela est assez incroyable qu'une firme comme Microsoft qui réalise des milliards de bénéfices ne puissent pas mettre tout en oeuvres pour remedier à ce dysfonctionnement.
Pour information mon fichier fonctionne parfaitement sur un pc windows avec OFFICE / excell 365
Pour ma part impossible de mettre sur mon ordi mac un bootcamp ou un windows virtuel.
Dans l'attente de votre réponse, je vous souhaite une belle journée.
Pascal S
