le msgbox "lancé" par l'intermédiaire d'un userform reste caché derrière le userform

Bonjour
Je développe une application qui doit être utilisée par différents utilisateurs sous pc Excel 2011 et 2016 mais également sous MAC excel 2011 et 2016
C'est avec cette dernière version que les problèmes se posent

j'ai préparé un userform assez étoffé sous pc
dans ce userform sur clic du bouton "Fermer" par exemple un message d'avertissement est activé par msgbox
du genre

Code:

---

1 2 3

private sub Btn_fermer_click() msgbox "Alerte" end sub

---

IL me semble qu'il y a quelques mois cela fonctionnait correctement, le message "Alerte" apparaissant au dessus du userform
Depuis quelque temps sous EXCEL MAC 2016 ce message est caché ; je l'ai retrouvé en arrière plan derrière le userform ..
Est ce que l'un d'entre vous a rencontré ce type de problème ?

A t'on une solution ? (j'ai bien l'idée de remplacer msgbox par un autre userform mais c'est un peu lourd pour une seule version excel !)
Bien entendu je gère les userform sous excel pour windows et si nécessaire je gère la compilation conditionnelle si c'est spécifique à MAc
le site de Ron de Bruin m'a bien aidé :P !

Merci à tous pour vos avis et propositions.

Bonjour,

et en cachant l'UserForm avant d'afficher le MsgBox ?
(Même s'il semble plus logique d'incorporer le message directement dans l'UserForm …)

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par Marc-L

Bonjour,

et en cachant l'UserForm avant d'afficher le MsgBox ?
(Même s'il semble plus logique d'incorporer le message directement dans l'UserForm …)

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

---

Merci pour votre réponse
Effectivement c'est une solution qui tient - je l'ai testée - mais d'un point de vue ergonomique ce n'est pas très pratique pour l'utilisateur qui ne voit plus les raisons de mon message
Ce que je trouve surtout bizarre c'est que ce pb semble récent et peut être d^à une récente mise à jour ?
encore merci

Bonjour, je pense qu'il serait assez simple de commander un déplacement vers le haut ou vert le bas du UserForm afin de voir apparaitre le Messagebox. Je viens d'essayer ça marche sur mon mac mais moi j'ai 2011 donc mon Msgbox apparait en avant, dans votre cas, il n'est pas sur que le UF ne soit pas en mode primal, a essayer cette voie. sinon possibilité d'augmenter la hauteur ou la largeur du UF démasquant un message sur UF avec le vrai bouton FERMER, le premier étant en fait seulement un déclencheur de l'action modificative. J'espère avoir été clair et vous avoir aidé.8-)

Bonjour,

c'est peut-être plus 2016 (SDI) que la version Mac la cause.
Ceci peut t'intéresser :
http://www.jkp-ads.com/Articles/keepuserformontop02.asp
Par contre est-ce applicable sur un Mac ?
eric

Citation:

---

Envoyé par eriiic

Bonjour,

c'est peut-être plus 2016 (SDI) que la version Mac la cause.
Ceci peut t'intéresser :
http://www.jkp-ads.com/Articles/keepuserformontop02.asp
Par contre est-ce applicable sur un Mac ?
eric

---

Bonjour et merci pour ta contribution
Malheureusement je ne pense pas que ce soit applicable sous Mac car on fait appel à des gestions de handle complètement différente de ce qui se fait pour OS mac
Néanmoins je vous remercie pour ce lien qui me sera bien utile.

Citation:

---

Envoyé par Transitoire

Bonjour, je pense qu'il serait assez simple de commander un déplacement vers le haut ou vert le bas du UserForm afin de voir apparaitre le Messagebox. Je viens d'essayer ça marche sur mon mac mais moi j'ai 2011 donc mon Msgbox apparait en avant, dans votre cas, il n'est pas sur que le UF ne soit pas en mode primal, a essayer cette voie. sinon possibilité d'augmenter la hauteur ou la largeur du UF démasquant un message sur UF avec le vrai bouton FERMER, le premier étant en fait seulement un déclencheur de l'action modificative. J'espère avoir été clair et vous avoir aidé.8-)

---

Bonsoir et merci
D'après ce que je sais seul le mode modal est possible sous mac ; j'ai essayé userform.show 0 ou vbnomodal .... echec
Je ne peux guère diminuer mon UF pour laisser voir le message mais le déplacer est possible.
J'ai également une autre solution ... un peu lourde mais qui fonctionne : il s'agit de remplacer MSGBOX par un autre UF qui comporte message et bouton OK CANCEL
Et curieusement ce dernier UF est bien au dessus du précédent ... c'est donc bien MSGBOX qui est "capricieux" avec Office 2016 sous MAC ...

Bonjour,
a quoi sert ce MsgBox y a t il un choix oui ou non ?
Il y a un procédé simple, s'il s'agit de vérifier que le choix est bien celui là.
Le bouton fermer ne ferme plus mais agrandit le userform vers le bas ou apparait une phrase en font très voyante du style "Voulez vous réellement fermer?" avec deux boutons oui ou non, possibilité du focus sur l'un ou l'autre pour rendre rapide et simple la réponse . Oui ferme réellement et non remet à la même dimension le Userform. L'utilisateur n'a plus qu'a continuer!
Cdt 8-)

Bjr, j'ai fait un exemple, si ça vous intéresse, à vous de l'adapter à votre existant .
Cdt
8-)

re
dans le meme esprit que transitoire mais possibilité de personaliser le message

une frame invisible dans le userform bien au centre avec ton message et deux boutons

code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() With UserForm1 Frame1.Visible = True End With End Sub Private Sub CommandButton2_Click() UserForm1.Hide Unload UserForm1 End Sub Private Sub CommandButton3_Click() Frame1.Visible = False End Sub

---

Pièce jointe 350518

Bonjour,
(coucou Marc, Patrick;))

Citation:

---

userform sur clic du bouton "Fermer" par exemple un message d'avertissement est activé par msgbox
…
IL me semble qu'il y a quelques mois cela fonctionnait correctement, le message "Alerte" apparaissant au dessus du userform
Depuis quelque temps sous EXCEL MAC 2016 ce message est caché ; je l'ai retrouvé en arrière plan derrière le userform ..
Est ce que l'un d'entre vous a rencontré ce type de problème ?

---

sur l'exemple simple et astucieux (:plusser:) de @Transitoire, j'ai testé ce MsgBox sur Excel 2016 Mac
en rajoutant le MsgBox dans le code du bouton "Quitter".
Le message apparaît bien au dessus de l'useform !

Config : el Capitan 10.11.6 - Excel Mac 2016 version 15.38

Que se passe t-il si tu fais le même test ??
si ça marche dans ce cas il faut en trouver la raison qui doit être autre …

Bonjour,

La solution de transitoire posera problème lorsque l'UserForm sera plein écran.

Celle de Patrick non (pour une fois que nous sommes d'accord ;)
Par contre, j'ajouterai juste une ligne au code de Patrick :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Frame1.Visible = True Frame1.ZOrder '==> peux s'avérer nécessaire si d'autres contrôles "containers" sont présents à l'emplacement de la Frame1 End Sub   Private Sub UserForm_Activate() Frame1.Visible = False End Sub

---

Mais, selon moi, la solution d'un autre UserForm est loin d'être farfelue ou usine à gaz...

Super, l'idée du Frame cher Patrick , j'avais jamais pensé à ça. D'habitude je rajoute toujours en haut ou à droite, ou comme le dit Pijaku un deuxième UF qui ne me semble pas non plus une usine à gaz. Je trouve perso que la solution du MsgBox fait moins pro. Mais ça n'est que mon avis!:D
8-)

Merci à tous pour vos contributions et remarques
Il faut savoir que sur mac mon formulaire de saisie est assez grand et Excel Mac m'offre de vilaine surprises ... je suis obligé de redimensionner l'UF (merci à Ron de Bruin)
J'ai oublié de préciser que c'est un msgbox fonctionnel donc avec 2 ou 3 boutons pour choix - dans un UF, pour une simple alerte je préfère une étiquette masquée qui apparait quand il le faut ..

J'ai donc 2 possibilités :
le frame centré sachant que dans l'idéal il faudrait empêcher l'utilisateur de passer outre et de cliquer ailleurs dans l'UF j'envisage de mettre à enabled=false tous les autres contrôles

soit un deuxième UF qui permet de pallier à l'inconvénient précédent ; certes ce n'est pas une usine à gaz mais msgbox ne fonctionne pas correctement pour Mac Excel 206 seulement .

Mais avouez que tout de même cette régression en passant de Mac excel 2011 à Mac excel 2016 est un peu étonnante d'autant que je ne serai pas surpris de savoir que ce comportement soit la suite d'une mise à jour.

Je ne clos pas la discussion en pensant que des utilisateurs de Mac auront peut être des idées à nous donner ..
Merci encore
Cordialement

Citation:

---

J'ai donc 2 possibilités :
le frame centré sachant que dans l'idéal il faudrait empêcher l'utilisateur de passer outre et de cliquer ailleurs dans l'UF j'envisage de mettre à enabled=false tous les autres contrôles

---

Cher Softwood, rien ne vous empêche d'avoir un frame qui a exactement la même dimension que le UF avec le message et les deux boutons ou trois, tout le reste n'est plus accessible. Je viens d'essayer et chez moi ça marche comme cela.:?
8-)

re

pour peu que tu ajoute

Code:

---

beep

---

dans le code
si l'utilisateur ne se pose pas de question tu lui chante la marseillaise hein!!! ou tu lui file un coup de hache

une question que je n'ai pas posé et pourtant importante :doit il etre bloquant ce message? c'est a dire que tant que tu n'a pas repondu tu peux rien faire

au quel cas il va faloir pousser un peu plus loin l'astuce quel quelle soit (frame ,redim usf, new usf)

bonjour,

Avez vous pris en compte mon message comme quoi cela marché sur le test fait de mon post précédent ?
qu'en est il ?

Citation:

---

Envoyé par RyuAutodidacte

Bonjour,
(coucou Marc, Patrick;))



sur l'exemple simple et astucieux (:plusser:) de @Transitoire, j'ai testé ce MsgBox sur Excel 2016 Mac
en rajoutant le MsgBox dans le code du bouton "Quitter".
Le message apparaît bien au dessus de l'useform !

Config : el Capitan 10.11.6 - Excel Mac 2016 version 15.38

Que se passe t-il si tu fais le même test ??
si ça marche dans ce cas il faut en trouver la raison qui doit être autre …

---

Bonjour et merci pour cette info
mon utilisateur (je ne possède pas moi meme de Mac d'où ma réponse décalée) est sous
OS High Sierra Excel Mac Office 365 Excel version 16.9
j'aurai tendance à penser que cette version plus récente que la votre pose problème

Re,

J'ai testé le fichier test :
- pour le MsgBox, j'ai bien "Mon message" qui apparaît
- pour l'useform il apparaît bien au-dessus aussi (useform vide)

Donc tout 2 au 1er plan et tant que l'on as pas fermé l'useform ou le MsgBox, on a pas la main.

j'avais l'intention de mettre mon Mac à jour avec la dernière version système, qd je l'aurais fait je referai un test …

re
bonjour
je vais reposer la question autrement

un msgbox par definition bloque toute action tant que l'on a pas repondu
ce qui peut empecher l'utilisateur de faire une betise

alors qu'en est il de tes besoins?????

1. parce que la methode (userform2) n'est pas bloquante
2. par ce que la methode (frame) peut l'etre seulement si la frame occupe tout la surface du userform et au dessus de tout les autre controls

un test qui serait bien a faire et tres simple pour ne pas jetter la solution du userform 2

dans le activate du userform2 mettre le msgbox en mode (response) et dans la condition du response fermer le usf2( et faire ce qui aurait été prevu sans)
juste pour voir si le msgbox apparait au dessus ;)
ca fait un peu beaucoup selon moi pour un simple message mais il faut tester
peut etre meme le faire dans le queryclose du usf2 etant donné que le usf2 a pris le dessus quand il c'est affiché
a mediter

allez juste pour tester
met ce code dans ton userform2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Private Sub UserForm_Activate() Me.Height = 0: Me.Width = 0: Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim style, response style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. response = MsgBox("maintenant que tu le vois le message" & vbCrLf & " tu veux faire quoi fermer ou pas fermer ", style, "un message qui se vois non de dieu!!!") If response = vbYes Then Unload UserForm1 ': Unload UserForm2 Else Unload UserForm2 End If End Sub

---

voila et la c'est bloquant;)
les deux userforms etant en mode modal =fakse bien sur

Pour trouver les bonnes réponses, il faut poser les bonnes questions?
Ce cher Softwood manque d'explications sur les raisons réelles qui pousse au MsgBox avec surtout les propositions qui sont faites par ce MsgBox et les évenements qui en découlent.
En ce qui me concerne, je pense que la solution la plus simple, pour un Mac bien entendu reste le Frame(Patrick Toulon) couvrant totalement L' UF avec le rajout de (Pijaku) .ZOrder.
Pour ce qui me concerne, il y a la une réponse plus que satisfaisante a tous les cas de figures qui furent imaginer.
Cher Softwood, il n'y a plus qu'a! :D
8-)

re
juste pour m'amuser avec ca ;)
voila comment avec une frame meme plus petite que le userform je la rend Bloquante
j'en ai meme fait une sorte de fonction message réutilisable pour plusieurs situations avec la possibilité de changer le texte du message

voila le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() message "tu fait quoi la !!!????" & vbCrLf & "tu veux fermer ou pas ?" End Sub   Private Sub message(texte) Set blanck = Me.Controls.Add("Forms.Image.1", "blanck") With blanck: .Top = 0: .Left = 0: .Width = Me.Width: .Height = Me.Height: .ZOrder: .BackStyle = 0: End With With Frame1 .Visible = True: .ZOrder: .Width = 240: .Height = 108: .Left = (Me.InsideWidth - .Width) / 2: .Top = (Me.InsideHeight - .Height) / 2: End With textemessage = texte End Sub Private Sub non_Click() Frame1.Visible = False Me.Controls.Remove ("blanck") End Sub Private Sub oui_Click() Unload Me End Sub

---

j'ai donc mis dans le userform des control peu importe les quels au hazard

j'ai un bouton "test" qui va tester le message avec le texte du message ( que l'on peut changer/réutilisation de la fonction)
dans la frame j'ai un bouton "oui" un bouton "non"
comme dans la demo je reduit la taille de la frame c'est soit ca soit la mettre avisible false je prefere la reduire comme ca je peux continuer a placer mes controls dans VBE
apercu dans l'editeur VBE
Pièce jointe 350880

apercu en fonctionnement
Pièce jointe 350883

le principe est simple j'ajoute une image dynamiquement en backstyle transparent + zorder ce qui a pour effet de ne plus pouvoir toucher les controls et je place la frame au centre exact de l'userform + zorder
ce qui fait que les deux controls le plus au top de la hierarchie sont la frame puis juste en dessous l'image et le reste en dessous
voila pas vu pas pris et la sub message est utilisable plusieur fois dans des conditions differentes avec message différents
l'image est supprimer si on ferme pas si on ferme elle est automatiquement detruite puisqu'elle n'est pas buidin
;)

re,

il est clair que l'on peut passé par différents contournement, mais il est étrange qu'un simple MsgBox ne marche pas correctement,
il y a surement autre chose qui n'a pas été détecté … problème d'installation, … etc à voir

sinon voilà un autre contournement à tester sur Mac selon le fichier test posté :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ToggleButton2_Click() Dim rep$ #If Mac Then rep = MacScript("set theDialogText to ""Be carrefull. Would you like to continue?""" & Chr(13) & _ "display dialog theDialogText buttons {""Don't Continue"", ""Continue""} with icon caution") #Else MsgBox "mon message" #End If End Sub

---

Citation:

---

Envoyé par RyuAutodidacte

Re,

J'ai testé le fichier test :
- pour le MsgBox, j'ai bien "Mon message" qui apparaît
- pour l'useform il apparaît bien au-dessus aussi (useform vide)

Donc tout 2 au 1er plan et tant que l'on as pas fermé l'useform ou le MsgBox, on a pas la main.

j'avais l'intention de mettre mon Mac à jour avec la dernière version système, qd je l'aurais fait je referai un test …

---

Merci pour ce test
Tout à fait conforme au comportement de test sous windows et sous MAC 2011 et donc tu me le confirmes avec Excel MAc vers 15
Mais ce n'est pas le cas pour la version 16 !!
le message passe "dessous" et comme par defaut Mac centre userform et msgbox mes utilisateurs ne 'voient' pas le message ; le userform est difficile à déplacer car assez grand ..
par contre UF2 reste bien dessus

Citation:

---

Envoyé par RyuAutodidacte

re,

il est clair que l'on peut passé par différents contournement, mais il est étrange qu'un simple MsgBox ne marche pas correctement,
il y a surement autre chose qui n'a pas été détecté … problème d'installation, … etc à voir

sinon voilà un autre contournement à tester sur Mac selon le fichier test posté :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ToggleButton2_Click() Dim rep$ #If Mac Then rep = MacScript("set theDialogText to ""Be carrefull. Would you like to continue?""" & Chr(13) & _ "display dialog theDialogText buttons {""Don't Continue"", ""Continue""} with icon caution") #Else MsgBox "mon message" #End If End Sub

---

---

Grand merci dès que possible je teste cette solution
Moi aussi je trouve cela étrange et c'est bien pourquoi j'ai lancé cette discussion d'autant que mes utilisateurs sous mac ne m'avaient rien signalé.

Effectivement il s'agit d'un formulaire de saisie "maison" et avant de fermer si l'utilisateur veut fermer sans avoir saisi certaines données je lui demande de confirmer sa décision.
Donc la fonction MSGBOX répond sans problème à mon souhait sur PC quelle que soit la version de Excel et sur MAC Excel 2011 et tu le soulignes avec la version 15.38
Mais sur la version utilisée 16.9 le comportement de msgbox n'est pas celui auquel on peut s'attendre
Cordialement

Citation:

---

Envoyé par Transitoire

Pour trouver les bonnes réponses, il faut poser les bonnes questions?
Ce cher Softwood manque d'explications sur les raisons réelles qui pousse au MsgBox avec surtout les propositions qui sont faites par ce MsgBox et les évenements qui en découlent.
En ce qui me concerne, je pense que la solution la plus simple, pour un Mac bien entendu reste le Frame(Patrick Toulon) couvrant totalement L' UF avec le rajout de (Pijaku) .ZOrder.
Pour ce qui me concerne, il y a la une réponse plus que satisfaisante a tous les cas de figures qui furent imaginer.
Cher Softwood, il n'y a plus qu'a! :D
8-)

---

Cher Transitoire
Tu pourra lire par ailleurs mes explications ... je veux donc bêtement que msgbox soir dessus pour obliger l'utilisateur à répondre à ma question.
Comportement classique et usuel de MSgbox qui fonctionne sous PC Mac excel 2011 mac excel 2016 vers 15.38 (merci à RyuAutodidacte) mais pas sous Mac Excel 2016 version 16.9
La fenêtre du MSGBOX passe dessous ... j'ai bien entendu fait plusieurs tests
En tout cas vos contributions me permettent de contourner cette difficulté en attendant peut_être une mise à jour ou un correctif par Microsoft
Comme tu le dis j'ai le choix et j'ai plus qu'à ...
cordialement

Re,

j'ai mis à jour la version d'Excel sur Mac et je suis maintenant en version Excel 2016 Mac 16.10 (365). (version au dessus de la 10.9 mais MAJ oblige)
de chez moi j'ai repris le fichier test, voilà ce que cela donne :

Pièce jointe 351002

Donc le MsgBox marche parfaitement !!

Citation:

---

Envoyé par patricktoulon

re
bonjour
je vais reposer la question autrement

un msgbox par definition bloque toute action tant que l'on a pas repondu
ce qui peut empecher l'utilisateur de faire une betise

alors qu'en est il de tes besoins?????

1. parce que la methode (userform2) n'est pas bloquante
2. par ce que la methode (frame) peut l'etre seulement si la frame occupe tout la surface du userform et au dessus de tout les autre controls

un test qui serait bien a faire et tres simple pour ne pas jetter la solution du userform 2

dans le activate du userform2 mettre le msgbox en mode (response) et dans la condition du response fermer le usf2( et faire ce qui aurait été prevu sans)
juste pour voir si le msgbox apparait au dessus ;)
ca fait un peu beaucoup selon moi pour un simple message mais il faut tester
peut etre meme le faire dans le queryclose du usf2 etant donné que le usf2 a pris le dessus quand il c'est affiché
a mediter

allez juste pour tester
met ce code dans ton userform2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Private Sub UserForm_Activate() Me.Height = 0: Me.Width = 0: Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim style, response style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. response = MsgBox("maintenant que tu le vois le message" & vbCrLf & " tu veux faire quoi fermer ou pas fermer ", style, "un message qui se vois non de dieu!!!") If response = vbYes Then Unload UserForm1 ': Unload UserForm2 Else Unload UserForm2 End If End Sub

---

voila et la c'est bloquant;)
les deux userforms etant en mode modal =fakse bien sur

---

Merci
mes besoins étaient par ce msgbox de bloquer une fermeture de formulaire s'il était mal rempli. Il y a également d'autres cas où j'ai besoin d'une confirmation
Je m'appretais donc à revoir tous les situations semblables et à utiliser l'une de vos propositions

1° Dans de nombreuses situations je dois déjà utiliser la compilation conditionnelle (#If MAC ..) j'ai donc testé ce que tu m'avais proposé et ça fonctionne parfaitement
mais mieux et comme je l'espérait

2° Microsoft vient de faire une mise à jour d'office 365 pour MAC et MSGBOX fonctionne à nouveau correctement
Pour info c'est la version 16.10

Il n’empeche que cette discussion m'a permis de voir de multiples possibilités : frame 2 ème userform ... pas du tout inutile
merci encore
Cdt

Bonsoir,

j'ai utilisé AppleScript ici - c'est vraiment très utile car on peut vraiment étendre les possibilités avec vba …

PS : j'étais resté à la version 15.xx d'Excel Mac 2016, et j'avais pesté sur le forum contre MS sur l'éditeur VBA qui ne servait plus à rien car une vraie galère pour coder (pour rappel) :
https://www.developpez.net/forums/d1...r/#post9173128
Je n'ai pas vraiment testé pour l'instant, mais on retrouve les fenêtres de l'éditeur VBA style grosso modo comme Excel PC 2010 avec, très important, les fameuses fenêtres des variables locales / d'exécution (auto complétion du code - enfin !!).
Je pense que l'on est pas loin d'excel 2011, mais à mon avis il doit y avoir encore qq lacunes à découvrir …
MS continue les efforts pour les users MAC stp - merci de reprendre le bon chemin

Edit :

Citation:

---

2° Microsoft vient de faire une mise à jour d'office 365 pour MAC et MSGBOX fonctionne à nouveau correctement
Pour info c'est la version 16.10

---

Oui comme signalé au post #27

Citation:

---

Envoyé par RyuAutodidacte

Bonsoir,

j'ai utilisé AppleScript ici - c'est vraiment très utile car on peut vraiment étendre les possibilités avec vba …

PS : j'étais resté à la version 15.xx d'Excel Mac 2016, et j'avais pesté sur le forum contre MS sur l'éditeur VBA qui ne servait plus à rien car une vraie galère pour coder (pour rappel) :
https://www.developpez.net/forums/d1...r/#post9173128
Je n'ai pas vraiment testé pour l'instant, mais on retrouve les fenêtres de l'éditeur VBA style grosso modo comme Excel PC 2010 avec, très important, les fameuses fenêtres des variables locales / d'exécution (auto complétion du code - enfin !!).
Je pense que l'on est pas loin d'excel 2011, mais à mon avis il doit y avoir encore qq lacunes à découvrir …
MS continue les efforts pour les users MAC stp - merci de reprendre le bon chemin

Edit :
Oui comme signalé au post #27

---

oui ça fonctionne comme tu le montres dans ton dernier message donc il y avait un pb avec la vers 16.9
des problèmes pour compatibilité Mac /// j'en ai eu (avec les listbox entre autres mais ce serait un autre sujet)
Par contre contrairement à Mac Excel 2011 la version 2016 ne permet toujours pas la gestion des userform (on accède au code mais pas aux propriétés)
Je vais me mettre à applescript car je trouve dommage d'avoir développer une appli qui ne fonctionne pas sous mac ..
Je pense que l'on peux considérer la discussion comme étant close.
cordialement

bonjour,

Citation:

---

la version 2016 ne permet toujours pas la gestion des userform

---

en effet je l'ai remarqué aussi !!

mais en voyant cette évolution on peut dire que l'on va rester optimiste et que les choses vont se régler au fur et à mesure.

PS : je conseille AppleScript très pratique, ainsi que certaine commande du terminal utilisable dans le code AS.
je ferai qq test sur cette nouvelle version Excel 16.10 afin de voir si la commande AppleScript me renvoi bien le résultat dans Excel (j'ai un doute - sinon no problem sur la version 2011 que je conseille tjs de garder fortement)

Bonsoir,

voilà un petit test rapide :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim MyPath1 As String, MyPath2 As String MyPath1 = MacScript("Choose Folder") MyPath2 = MacScript("POSIX path of (choose folder)") Debug.Print MyPath1 Debug.Print MyPath2 Debug.Print ThisWorkbook.Path End Sub

---

En lançant le code normalement ou en pas à pas, on a bien le résultat du code AppleScript qui apparaît dans la fenêtre des variables locales ou celle des Exécution(s)
Après le fait d'être sur Excel 2016 MAC il faudra pour certains cas utiliser la nouvelle méthode passant par AppleScriptTask
Mais tant que MacScript passe , autant l'utiliser alors (sinon => AppleScriptTask)

Donc repassons à la problématique (Résolu), avec solution en AppleScript testé et vérifié => ok :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub ToggleButton2_Click() Dim rep #If Mac Then rep = MacScript("set theDialogText to ""Be carrefull. Would you like to continue?""" & Chr(13) & _ "set the_results to display dialog theDialogText with title (""DONNÉES MANQUANTES"") buttons {""Don't Continue"", ""Continue""} with icon caution" & Chr(13) & _ "set BUTTON_Returned to button returned of the_results") Debug.Print rep If rep = "Continue" Then Unload UserForm1 'Else 'Unload UserForm2 End If #Else MsgBox "mon message" #End If End Sub

---

voilà

Edit : Ne pas oublier de mettre :resolu: si tel est le cas ;)