Microsoft 365 problème de macros entre excel windows et mac

Salut, pour tout ce qui est Mac, je conseille le site de Ron de Bruin

Bonjour @Traouck (et coucou à @kiki29 en passant )
La 1ère chose à savoir et le plus important quand on code sur PC/Mac, c'est d'éviter tout ce qui en rapport avec les ActiveX et DLL.
Par exemple Mac, tu ne pourras pas utilisé un Dictionnaire mais une Collection sera OK

bonjour

si ton truc marchait avant moi je suis la reine d’Angleterre
pour info commandbarpopup c'est pour des sub menu ou menu contextuelce sont des commandbars
je te pointe l'erreur en image puisque tu envoie des images
ne pas confondre commandbarpopup et msocontrolpopup c'est pas la même chose

merci ma reine.
J'essaie d'intégrer ça dans mon fichier et je te tiens au courant.

Bonjour,

En supplément au mention de RyuAutodidacte, attention aux accents !
Pas d'accents dans vos noms comme j'en vois dans votre vue "Liste déroulante". C'est une mauvaise habitude de vouloir respecter la ponctuation avec VBA. Pensez Anglais uniquement.
Evitez les espaces dans les noms de feuilles, les points aussi. Préférez leur des tirets ou souligné
Si vous avez des userforms cela ne fonctionnera qu'avec Excel 2011
Sinon transformer les menus avec MAC..., veillez bien à mettre la seconde macro resetbar proposée par PatrickToulon.
Ce serait intéressant de savoir quelle version de excel vous avez.
Cordialement

​

Bonjour,
Le fichier est assez ancien et entre temps j'ai un peu oublié l'utilisation des macros...
j'ai essayé ce code, mais ça bloque au niveau du texte en jaune.
J'ai mis la sub resetbar dans un module.
J'ai le pack office 365
Par contre ce fichier tourne sans soucis sur windows...



Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("&MyFunction").Delete
On Error GoTo 0
End With
End Sub

Private Sub Workbook_Open()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton

With Application.CommandBars("Worksheet Menu Bar")
resetbar
Set objPopUp = .Controls.Add(msoControlPopup, 1, True)
With objPopUp
.Caption = "MyFunction"

Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "formula Entry"
.OnAction = ""
.Style = msoButtonCaption
End With


Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "value Entry"
.OnAction = ""
.Style = msoButtonCaption
End With

End With
End With

Call SelectAccueil

End Sub

Et voila l'original qui ne marche pas...
J'ai bien conscience d'être un boulet avec vba, et je suis désolé de na pas pouvoir aider plus sur ce site.
Par contre si vous avez besoin de conseils en bâtiment, je peux vous aider!
Merci d'avance.
Cédric

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("&MyFunction").Delete
On Error GoTo 0
End With
End Sub

Private Sub Workbook_Open()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("MyFunction").Delete
On Error GoTo 0
Set objPopUp = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls.Count, _
temporary:=True)
End With
objPopUp.Caption = "&MyFunction"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Formula Entry"
.OnAction = "Cbm_Active_Formula"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Value Entry"
.OnAction = "Cbm_Active_Value"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Formula Selection"
.OnAction = "Cbm_Formula_Select"
.Style = msoButtonCaption
End With
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Value Selection"
.OnAction = "Cbm_Value_Select"
.Style = msoButtonCaption
End With

Call SelectAccueil

End Sub

re
bonsoir
il me semble t'avoir déjà dis que ceci
Dim objPopUp As CommandBarPopup
n’était pas bon!!!!!même si sur Windows l'erreur n'est pas relevée
il est fort possible que sur Mac vba soit moins souple avec ce genre d'erreur
donc
Dim objPopUp As CommandBarControl

Effectivement, je ne sais pas pourquoi le copier collé à merder et je ne l'ai pas vu ou ne sais pas ce que j'ai fait. Vivement les vacances...
Mais ça bloque toujours au même endroit... même avec un CommandBarControl


Private Sub Workbook_Open()
Dim objPopUp As CommandBarControl
Dim objBtn As CommandBarButton

With Application.CommandBars("Worksheet Menu Bar")
resetbar
Set objPopUp = .Controls.Add(msoControlPopup, 1, True)
With objPopUp
.Caption = "MyFunction"

Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "formula Entry"
.OnAction = ""
.Style = msoButtonCaption
End With


Set objBtn = .Controls.Add(msoControlButton)
With objBtn
.Caption = "value Entry"
.OnAction = ""
.Style = msoButtonCaption
End With

End With
End With

Call SelectAccueil

End Sub

ben déclare les tout les deux as object et on en parle plus

Je le mets ou as object?
J'ai fait ce fichier il y a un certain nombres d'années et je n'ai pas re codé entre temps. Du coup je ne comprends même plus ce que je fais...

re
Dim objPopUp As CommandBarControl
Dim objBtn As CommandBarButton

Dim objPopUp As Object
Dim objBtn As object

Il ne veut toujours pas.
Il bloque toujours au même endroit...