Cases d'option Word Mac ? Fermé

Question

Bonjour,

J'ai besoin d'urgence de trouver comment insérer des cases d'option (bouton d'option) dans Word 2004 pour Mac. 
Dans Word 2003 (sur PC) cela fonctionne via la boite à outils Contrôles. Mais impossible de trouver cette boite à outils ou un équivalent sur Word Mac !!!

Elle n'existerait donc pas ???

Si c'est le cas, n'y a-t-il pas un moyen pour créer des cases d'option sur Mac ?

J'ai besoin d'une solution d'urgence,
Merci pour votre aide !

Ps: j'ai déjà un fichier tout prêt avec cases d'options sous Word 2003 mais une fois qu'il passe sur Mac, les cases d'options deviennent des images !!! Très embêtant !!!

Merci!

Configuration: Mac OS X / Safari 531.21.10

Bernard Rey · Answer

Oui, c'est normal : les "Contrôles" sont en fait des contrôles ActiveX, qui n'existent pas dans les versions Mac.

Il te faut utiliser les outils de la barre "Formulaires" qui, eux, existent dans les deux environnements. Ils sont par contre sensiblement plus limités (particulièrement dans Word). Mais il faut "faire avec"...

Sarouch · Answer

Merci pour l'info ! C'est en effet très limité et très embêtant parce qu'il me faut absolument des boutons d'options sur Mac.

Du coup, j'ai pensé passer en Excel pour Mac puisque là il y a les commandes boutons d'option.

Par contre, j'ai perdu tous mes repères en VBA.
Les codes sont en français d'après ce que j'ai vu ?
Parce que 'OptionButton' devient 'Casdoption'
Et optionbutton.background deviendrait  ???

Une idée ?

Merci de votre aide !
Le temps m'est compté! (J-1!)

Bernard Rey · Answer

Sarouch :

j'ai perdu tous mes repères en VBA.
Les codes sont en français d'après ce que j'ai vu ?


Non, la traduction du VBA en français, c'était du temps d'Excel 5, ça. Logiquement il ne devrait pas y avoir de changement, au moins de ce point de vue. Je regarderai ce soir...

Sarouch · Answer

Ok !

Dans ce cas, si ça peut aider, voici le code que j'avais (et qui fonctionnait) sur Word 2003 (Windows) et que j'aimerais transférer (du moins que le résultat soit similaire) sur Excel Mac Os :

Private Sub OptionButton1_Click()
OptionButton1.BackColor = RGB(0, 153, 0) 'vert
OptionButton2.BackColor = RGB(255, 255, 255) 'blanc
OptionButton3.BackColor = RGB(255, 255, 255) 'blanc
End Sub

Ce code permet de changer la couleur de fond de la case d'option lorsqu'elle est sélectionnée mais de la remettre en blanc lorsqu'elle est désélectionnée et que donc une autre case du groupe est sélectionnée.

Et celui ci :

Sub CommandButton1_Click()
   ThisDocument.SendForReview "test@test.com", "évaluation des formations", True
End Sub

Permet d'ouvrir le logiciel de messagerie (quel qu'il soit), d'insérer l'adresse du destinataire et le sujet du message.

Merci pour la future aide précieuse !!!

Bernard Rey · Answer

Utilisé dans un "Userform", tes lignes de code "OptionButtonfonctionnent très bien chez moi (Excel 2004 11.5.8) Telle qu'elle est là, elle applique bien la couleur verte lors du clic sur le bouton 1, mais c'est tout. Il faut évidemment répéter le code pour agir d'un clic sur les autres boutons (je suppose que ça va de soi, mais bon).

L'envoi par messagerie est nettement plus complexe, dans la mesure où il n'existe pas de commande effective dans le VBA sur Mac qui permette d'envoyer par messagerie. Il faut alors passer par un bout d'AppleScript (et ça marche alors très bien). Par exemple :
Sub EnRoute() 
' Pour envoyer le classeur actif en PJ au destinataire en A1
' avec l'objet du message en A2 (on peut rajouter "content" ou "sender")
    Dim Str As String, temp As String
    ActiveWorkbook.Save
    LeDestinataire = Range("A1").Text
    MonObjet = Range("A2").Text
    MonClasseur = ActiveWorkbook.FullName
    Str = "tell application ""Microsoft Entourage""" & vbCr _
        & "make new outgoing message with properties" _
        & "{recipient:""" & LeDestinataire & """,subject:""" _
        & MonObjet & """,attachment:""" & MonClasseur & """}" _
        & vbCr & "move the result to out box folder" & vbCr & "end tell"
    temp = MacScript(Str)
End Sub

À reprendre et adapter selon tes besoins précis...

Sarouch · Answer

Et bien... Ça ne fonctionne toujours pas ! Pour les couleurs.

J'ai beau entrer tous les codes que je veux, il me met à chaque fois 'erreur d'exécution 424, Objet requis ! ???

Quand tu dis "utilisé dans un userform", il y a quelque chose de spécial à faire ? Parce que j'ai simplement une feuille Excel dans laquelle j'ai inséré des boutons d'options regroupés par zone de groupe (les trois premiers agissent ensemble, etc...). Et mon code est tapé dans le code du bouton d'option ...

Peut-être qu'il y a quelque chose que je ne fais pas bien puisque chez toi ça marche...

Attention, je suis sur Excel 2004 11.5.6 (je ne sais pas si ça change grand chose!)

Merci encore... Jour J ! Merci.

Bernard Rey · Answer

Pour utiliser un "Userform", il faut commencer par aller dans l'éditeur Visual Basic, insérer un Userform et y positionner les éléments voulus. Ensuite, s'assurer via les commandes "Load" et "Show" d'avoir un affichage de l'userform au moment souhaité, et insérer les boucles macros événementielles dans la feuille de code associée à l'userform. Voir dans l'aide pour les détails si besoin. 

Je suis étonné que tu aies une feuille de code associée à une zone de groupe créée avec la barre d'outils "Formulaires". Je vérifierai ça ce soir mais il me semblait que ça n'existait pas. C'est même une des principales différences entre les outils "Formulaires" et "Contrôles" des versions Windows (on pourrait même presque dire que les outils de la barre "Contrôles" sont des éléments d'userform directement disponible dans les feuilles). 

Je pense que tu as plutôt voulu associer une macro à ton bouton, ce qui est possible mais ça nécessite une autre forme d'écriture. Il faut faire des procédures "Sub" du type : 

Sub PourBouton1() 
ActiveSheet.Shapes("Option Button 1").Select 
    Selection.ShapeRange.Fill.Solid 
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 50 
ActiveSheet.Shapes("Option Button 2").Select 
    Selection.ShapeRange.Fill.Solid 
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 
ActiveSheet.Shapes("Option Button 3").Select 
    Selection.ShapeRange.Fill.Solid 
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 
EndSub

Il y a bien eu des bugs avec les userforms, mais je ne pense pas qu'il y ait de différences notables entre les versions 11.5.6 et 11.5.8. Ceci dit, on ne peut que t'engager (fortement) à faire toutes les mises à jour (le principal objet des mises à jour, c'est la correction de bogues). 


Bonjour chez vous ! 
Bernard

Sarouch · Answer

Magnifique ! Ça fonctionne merci beaucoup ! C'était donc ça ... Je voulais en effet affecter des macros à mes boutons d'où en tapant 'normalement' il ne trouvait pas l'objet que je lui décrivais.

Par contre j'ai opté pour les codes RGB pour les couleurs mais ça fonctionne très bien aussi.

Bref, ça fonctionne !
Encore merci !

Cases d'option Word Mac ?

8 réponses

Discussions similaires