Macro sur Excel 2021/365

Question

Bonjour

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

Answer 1

Bonjour

Je reviens vers vous car la solution ne m'a pas été apportée.

En effet , j'ai un 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 semaines 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 puisse pas mettre tout en oeuvre pour remedier à ce dysfonctionnement.

Pour information, mon fichier fonctionne parfaitement sur un PC Windows avec Office / Excel 365. Pour ma part, impossible de mettre sur mon ordi Mac un Boot Camp ou un Windows virtualisé.

Dans l'attente de votre réponse, je vous souhaite une belle journée.

Pascal S

Answer 2

Bonsoir

Mille mercis Aliboron pour cette réponse.

Je suis tout de même stupéfait qu'un firme qui fait des milliards de bénéfice ne soit pas capable de mettre en place un hotline efficace avec au bout du fil des développeurs et spécialistes qui puissent apporter dans les plus bref délais une solution.

Je ne pense pas être le seul à avoir des soucis avec les macro. Mais je trouve que Microsoft véhicule par cette insouciance de leur utilisateur , une mauvais image.

Bref

En tout cas merci encore pour votre réponse et j''éspère très vite que j'obtiendrai une solution car cela fait plus de 3 semaines que je n'arrive pas à travailler sur mes documents.

bien à vous

P.

Answer 3

La tentative d'explication par les contrôles de formulaire me semble bien tirée par les cheveux, d'autant que les contrôles de formulaire existent depuis toujours dans les versions pour Mac (contrairement aux contrôles de contenu, par exemple). Mais visiblement, c'est au niveau de la "cascade" du sous-menu qu'il y a un blocage. Peut-être un bug, je suis incapable de le dire, je ne peux que le constater, comme toi.

La première chose à faire, c'est de remonter l'information aux équipes produit via la ligne "Commentaires" du menu "Aide", en espérant qu'il s'agit d'un bug et qu'ils sauront l'isoler et apporter un correctif lors d'une future mise à jour. Sait-on jamais.

Dans la mesure où il s'agit de toute évidence d'une macro reprise de Ron de Bruin (voir cette page), je pense que tu peux te mettre en contact avec lui (en anglais, il est néerlandais) et lui soumettre le problème. Comme il a beaucoup travaillé sur les variantes des versions pour Mac par rapport aux versions Windows, peut-être que ça l'inspirera, s'il a un peu de temps (pas gagné)...

Answer 4

Nous utilisons un service de traduction pour assister nos utilisateurs. Veuillez nous excuser pour les éventuelles erreurs grammaticales.

Je comprends que c’est frustrant, la meilleure façon de laisser des commentaires sur le produit est via le menu d’aide intégré à l’application car nous n’avons pas de méthode de contact pour les développeurs d’applications.

Cordialement
Elise

Answer 5

Auriez-vous la gentillesse de demander à vos développeurs de faire le nécessaire, pour retrouver ces fonctionnalités sur Mac ? Car pour l'instant hélas, je ne peux pas travailler sur mon fichier, et cela me pénalise grandement. Cela est très fâcheux, et je pense que je ne suis sans doute pas le seul utilisateur à connaître ces désagréments.

Je vous en remercie par avance.