Discussion :

[xavion]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Transitoire]

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.
mais allez en VBA voir dans la fenètre des propriétés des divers checkBoxs, boutons etc, et vous comprendrez mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, à voir, les ActiveX n'existent pas sur Mac, sauf à utiliser Office sous une émulation Windows.

[Transitoire]

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


Cordialement

[xavion]

Bonjour et merci à tous pour vos contributions!
Donc aucune solution sans passer par l'émulation. Dommage.
Bonne soirée
Xav

[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...

[RyuAutodidacte]

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 …)



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

deviendrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en le transformant vers ton code cela donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[RyuAutodidacte]

re,

@Transitoire :

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 …

[Transitoire]

Bonjour, il ne m'appartient pas de définir des choix, seulement de proposer des possibilités.


Comme Canada dry, ça ressemble a un ToggleButton, mais ça n'en n'est pas un!!!
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

[RyuAutodidacte]

Bonjour,

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

Ca se voit

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.

[Transitoire]

Re bonjour .

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

[RyuAutodidacte]

Bonsoir @xavion,
Re @Transitoire,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

qui peut devenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Var = False Then

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 …