Problème conversion macro qui marche sous windows mais pas sur mac

Version imprimable

20/04/2018, 18h32
xavion

1 pièce(s) jointe(s)

Problème conversion macro qui marche sous windows mais pas sur mac

Bonjour à tous,

tout est dans le titre. Je galère depuis des mois entiers. J'ai tout essayé et je désespère..
Quand j'ouvre le fichier mis en pièce jointe j'ai un retour de déboggage qui me dit : erreur d'exécution "438". Propriété ou méthode non gérée par cet objet.

La ligne incriminée est :

Code:

If Worksheets("Schedule").ToggleButton1.Value = False Then

Je pense que cela vient de ToggleButton1 mais je ne vois pas pourquoi.
Merci d'avance!!

Bonsoir, je suis moi aussi sur Mac.
J'ai isolé dans la Sub workbook.open() les lignes qui déclenchent le problème.
Sur Excel Mac, il y a plein de chose qui ne sont soit: pas gérées; soit gérées différemment. Je pense que c'est de la que vient le problème, il va vous falloir modifier le code en conséquence.
Je ne pense pas que je pourrais vous aider beaucoup plus, car je ne sait pas ce qui se passe sous windows. Mais vous qui savez comment ça se passe, je pense que vous arriverez à vous en sortir. En plus, c'est en "rosbeef" et je ne le parle que sous la torture.:lol:
mais allez en VBA voir dans la fenètre des propriétés des divers checkBoxs, boutons etc, et vous comprendrez mieux
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Workbook_Open() ..... If Worksheets("Schedule").ToggleButton1.Value = False Then 'plante, erreur 438, propriété ou méthode non géré par cet objet ..... Worksheets("Schedule").CheckBox1.BackColor = Worksheets("Schedule").Range("A1:J3").Interior.Color 'plante, erreur 438, propriété ou méthode non géré par cet objet Worksheets("Schedule").CheckBox2.BackColor = Worksheets("Schedule").Range("A1:J3").Interior.Color 'plante, erreur 438, propriété ou méthode non géré par cet objet Worksheets("Schedule").CheckBox1.ForeColor = RGB(255, 204, 0) 'plante, erreur 438, propriété ou méthode non géré par cet objet Worksheets("Schedule").CheckBox2.ForeColor = RGB(255, 204, 0) 'plante, erreur 438, propriété ou méthode non géré par cet objet .... Worksheets("Schedule").CommandButton3.BackColor = RGB(4, 188, 247) 'plante, erreur 438, propriété ou méthode non géré par cet objet Worksheets("Schedule").CommandButton3.ForeColor = RGB(255, 255, 255) 'plante, erreur 438, propriété ou méthode non géré par cet objet .... End Sub
Cordialement 8-)

20/04/2018, 21h26
patricktoulon

re

je sais pas pour mac mais sur certaine configuration windows c'est la meme erreur

et si on passais par la collection oleobjects !!!!!!!!!hein????

Code:

If Worksheets("Schedule").oleobjects("ToggleButton1").object.Value = False Then
20/04/2018, 21h37
kiki29

Salut, à voir, les ActiveX n'existent pas sur Mac, sauf à utiliser Office sous une émulation Windows.
21/04/2018, 06h27
Transitoire

1 pièce(s) jointe(s)

Bonjour à tous,
C'est difficile, je comprend peu l'anglais. D'après ce que j'ai cru comprendre, suivant les choix, on modifie des couleurs de fond de bouton etc sur des boutons de feuille . Ce sont des choses qui n'existent pas sur Mac. Pourquoi pas créer un 5° UF qui remplirait les même fonctions?
Patrick, j'ai essayé avec OLEObject, ça marche pas? ci dessous le message
Pièce jointe 371911

Cordialement 8-)
21/05/2018, 00h05
xavion

Bonjour et merci à tous pour vos contributions!
Donc aucune solution sans passer par l'émulation. Dommage.
Bonne soirée
Xav
21/05/2018, 09h14
78chris

Bonjour

J'ai eu à convertir un programme pour MAC il y a quelques années : les Toggle boutons n'existaient pas il a fallu remplacer par des boutons simples mais cela a peut-être changé.

Autre souci le programme qui tournait sans aucune latence sur PC ramait à mort sur MAC...

1 pièce(s) jointe(s)

Bonjour,

j'ai vérifié sur Mac et comparé entre Mac et PC et comme dit précédemment par kiki29 (que je salue) le "ToggleButton" seul est en ActiveX et donc uniquement sur PC !
Tout ce qui est ActiveX, DLL, …, spécifique donc au PC ne fonctionnera pas sur Mac - pour coder sur Mac/PC il est important de connaitre les différences …

Il existe bien le "ToggleButton" sur Mac mais dans un UseForm, et je ne suis pas sûr que cela convienne …

Par contre, on pourrait simuler un "ToggleButton" via une forme (dont la réponse est True ou False - via un bouton simple on a pas accès à la couleur de fond …)

Pièce jointe 382189

Copier les 2 Macros (Dans un nouveau fichier dans un module pour test et voir - commencer par la macro CreaButtonToggleForme),
puis actionné le bouton "ToggleButton" (créer via une forme) - c'est ActButtonToggleForme qui sera nécessaire au final - bien sur le tout à adapter (et marchera forcément sur PC et Mac)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub CreaButtonToggleForme() With Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50) .Name = "MonToggleBut1" With .Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End With .TextFrame.HorizontalAlignment = xlHAlignCenter .TextFrame.VerticalAlignment = xlVAlignCenter .TextFrame2.TextRange.Font.Size = 14 .TextFrame2.TextRange.Font.Bold = True .TextFrame.Characters.Text = "OFF" With .ThreeD .BevelTopType = msoBevelCoolSlant .BevelTopInset = 13 .BevelTopDepth = 6 End With With .Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Solid End With .OnAction = "ActButtonToggleForme" End With End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub ActButtonToggleForme() With Feuil1.Shapes.Range(Array("MonToggleBut1")) If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then .Fill.ForeColor.RGB = RGB(0, 128, 0) .TextFrame.Characters.Text = "ON" With .ThreeD .BevelTopType = msoBevelSlope .BevelTopInset = 6 .BevelTopDepth = 6 End With ' code VBA des actions à faire si il y en a Else .Fill.ForeColor.RGB = RGB(255, 0, 0) .TextFrame.Characters.Text = "OFF" With .ThreeD .BevelTopType = msoBevelCoolSlant .BevelTopInset = 13 .BevelTopDepth = 6 End With ' code VBA des actions à faire si il y en a End If End With End Sub
Voilà

Edit : on pourrait avoir d'après l'exemple ci-dessus (on pourrait aussi se basé sur le texte se trouvant dan la forme ou autre …) :
ton code :

Code:

If Worksheets("Schedule").ToggleButton1.Value = False Then

deviendrait :

Code:

If Feuil1.Shapes.Range(Array("MonToggleBut1")).Fill.ForeColor.RGB = RGB(255, 0, 0) Then

en le transformant vers ton code cela donnerait :

Code:

If Sheets("Schedule").Shapes.Range(Array("MonToggleBut1")).Fill.ForeColor.RGB = RGB(255, 0, 0) Then

21/05/2018, 15h55
Transitoire

Bonjour,
Original la forme, bien pensé par ailleurs.
Ne se crée-t-on pas moins de problème en remplaçant le ToggleButton par une simple case à cocher, qui existe sur mac(Feuille) et permet, me semble-t-il le même résultat avec un codage infiniment plus simple. On a peut-être juste à remplacer ToggleButton1 par CheckBox1 et conserver pratiquement le reste du code. :)
A moins bien sur que l'on utilise le Toggle sur position triple?
Cordialement 8-)
22/05/2018, 02h45
RyuAutodidacte

re,

@Transitoire :

Citation:

Ne se crée-t-on pas moins de problème en remplaçant le ToggleButton par une simple case à cocher

la CheckBox ne pose pas de problème, mais n'est pas explicite pour un utilisateur lambda si le fichier doit être transmis, elle ne permet pas non plus d'afficher visuellement toutes les caractéristiques que propose le ToggleButton.
En plus si on se retrouve avec plusieurs CheckBox visuellement tu vas chercher ton ToggleButton (représenter par une CheckBox), sans compter que c'est minuscule, alors que le ToggleButton lui est bien visible …
Rien de compliquer dans le codage et pas si long de plus …
22/05/2018, 07h25
Transitoire

2 pièce(s) jointe(s)

Bonjour, il ne m'appartient pas de définir des choix, seulement de proposer des possibilités.
Pièce jointe 382386
Pièce jointe 382389
Comme Canada dry, ça ressemble a un ToggleButton, mais ça n'en n'est pas un!!!:D
Je précise que l'on n'est pas obligé de cliquer sur la petite case. Cliquer sur le rectangle suffit pour la modification.
Ca se comporte comme un bouton, qui aurait une petite Led sur le coté qui préviendrais de son état.
Cordialement 8-)
22/05/2018, 09h49
RyuAutodidacte

Bonjour,

Citation:

Comme Canada dry, ça ressemble a un ToggleButton, mais ça n'en n'est pas un!!!

Ca se voit :mrgreen:

Je laisse à @xavion choisir ce qu'il lui convient le mieux …

PS : je ne contredis pas que ce que tu proposes comme solution, mais je signale juste que la CheckBox n'a pas certaines spécificités … comme peut le proposer le ToggleButton.
22/05/2018, 10h48
Transitoire

Re bonjour .

Citation:

A moins bien sur que l'on utilise le Toggle sur position triple?

Ainsi que dit un peu plus haut, bien sur, on ne peut pas utiliser un CheckBox en trois positions, alors que le bouton, permettrait de le faire avec une troisième couleur et un texte différent des deux autres!
Toutefois, s'il existe d'autres raisons, je serai ravi de les connaître? :)
j'ai tant à apprendre!
Cordialement 8-)

Bonsoir @xavion,
Re @Transitoire,

Citation:

j'ai tant à apprendre!

PS : je n'utilise jamais les formes, les UseForms, je vais sur la faq et le net, pour voir les définitions, les exemples et je fais quelques tests et je lis les posts …
maintenant je fais tout comme cela. Exemple :

il suffit :
• de mettre une forme sur une feuille vierge
• faire un clic droit sur la forme et voir toutes les propriétés que l'on peut lui mettre (exemple insérer une image, ca offre déjà plus de possibilité que la CheckBox ;))
• si on veut pas trop se prendre la tête, on utilise l'enregistreur de macro afin de récupérer les propriétés qui nous intéressent, puis on réadapte le code afin qu'il soit bien écris
(enlever tout ce qui est inutile comme les Select, Selection … etc …)
• Bien sûr faire quelques tests lorsque cela est nécessaire
• et là on commence à s'approprier le code
• l'imagination joue beaucoup aussi pour concevoir le code => se poser les bonnes questions pour résoudre le problème comme sur cette discussion et bien d'autres dans le forum

Et c'est qu'un exemple parmi d'autres pour progresser dont les principes selon ce que l'on attaque sont assez proche … (une aide via un post, parfois nécessaire lorsque l'on bloque sur un point)

Exemples avec les 3 états :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ActButtonToggleForme()
Dim Var As Boolean
 
    With Feuil1.Shapes.Range(Array("MonToggleBut1"))
        If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then
            .Fill.ForeColor.RGB = RGB(0, 128, 0)
            .TextFrame.Characters.Text = "ON"
            With .ThreeD
                .BevelTopType = msoBevelSlope
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            Var = True
            ' code VBA des action à faire si il y en a
        ElseIf .Fill.ForeColor.RGB = RGB(128, 128, 128) Then
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .TextFrame.Characters.Text = "OFF"
            With .ThreeD
                .BevelTopType = msoBevelCoolSlant
                .BevelTopInset = 13
                .BevelTopDepth = 6
            End With
            Var = False
            ' code VBA des action à faire si il y en a
        Else
            .Fill.ForeColor.RGB = RGB(128, 128, 128)
            .TextFrame.Characters.Text = "NULL"
            With .ThreeD
                .BevelTopType = msoBevelCoolSlant
                .BevelTopInset = 13
                .BevelTopDepth = 6
            End With
            Var = True
            ' code VBA des action à faire si il y en a
        End If
    End With
 
End Sub

on avait :

Code:

If Sheets("Schedule").Shapes.Range(Array("MonToggleBut1")).Fill.ForeColor.RGB = RGB(255, 0, 0) Then

qui peut devenir :

Code:

If Var = False Then

Même code en se basant sur le texte (affecter la macro à la forme) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ActButtonToggleForme2()
Dim Var As Boolean
 
    With Feuil1.Shapes.Range(Array("MonToggleBut1"))
        If .TextFrame.Characters.Text = "OFF" Then
            .Fill.ForeColor.RGB = RGB(0, 128, 0)
            .TextFrame.Characters.Text = "ON"
            With .ThreeD
                .BevelTopType = msoBevelSlope
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            Var = True
            ' code VBA des action à faire si il y en a
        ElseIf .TextFrame.Characters.Text = "NULL" Then
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .TextFrame.Characters.Text = "OFF"
            With .ThreeD
                .BevelTopType = msoBevelCoolSlant
                .BevelTopInset = 13
                .BevelTopDepth = 6
            End With
            Var = False
            ' code VBA des action à faire si il y en a
        Else
            .Fill.ForeColor.RGB = RGB(128, 128, 128)
            .TextFrame.Characters.Text = "NULL"
            With .ThreeD
                .BevelTopType = msoBevelCoolSlant
                .BevelTopInset = 13
                .BevelTopDepth = 6
            End With
            Var = True
            ' code VBA des action à faire si il y en a
        End If
    End With
 
End Sub

après les codes (selon les possibilités de ceux-ci) s'arrêtent là où l'imagination du codeur s'arrête …