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

aixmars :

je pourrais vous faire parvenir une vidéo de l'endroit ou ça bug.

Pas besoin de vidéo ou de capture d’écran, les lignes que tu as citées sont tout à fait suffisantes pour reproduire le problème et la réponse est celle que j’ai donnée : dans les versions récentes d’Office pour Mac, la personnalisation des menus contextuels est possible avec RibbonX, l’outil dédié de Microsoft (fonctionne sous Windows). Et c’est assez clairement décrit, expliqué et illustré par Ron de Bruin (voir le lien que j’ai donné dans mon précédent message).

Pour ce qui est de contacter Ron, il n’est pas trop compliqué d’aller sur la page "Contact" de son site…

Answer 2

Bonjour Aliberon

Merci pour ce retour et cette astuce. Hélas non je n'ai pas son contact

,de plus je ne suis pas un expert en informatique hélas, et la ca commence à devenir complexe pour moi

Si vous le souhaiter on peut discuter en message privé et je pourrais vous faire parvenir une vidéo de l'endroit ou ca bug.

Pour information, j'ai mis dans le ruban , toutes les macro.

Dommage qu'on ne puisse pas joindre un fichier ici , j'aurai pu faire une capture écran pour vous montrer .

Dans l'attente de votre retour je vous souhaite un bon déjeuner

Pascal S