Format bouton commande active X

Résolu
Nico -  
Bonjour,

Je souhaiterais changer le format de mes boutons de commandes (formulaires activeX) j'ai réussis à changer la police et la couleur de fond.
Par défault ils sont rectangle sur fond gris, je voudrais changer leur forme (rond, bord arrondis,..)

Comment procéder ?

6 réponses

  2. Nico
    J'avais vu ce sujet mais je n'y arrive pas.
    0
    1. pijaku Modérateur
      Bonjour,

      vous dites :
      Je souhaiterais changer le format de mes boutons de commandes (formulaires activeX)

      Formulaires ou Activex? Il faut savoir...

      Formulaires : utilisez des formes à la place de vos boutons. Les formes sont disponibles dans le menu Insertion :


      Dessinez par exemple un rectangle, clic droit dessus / Affecter une macro...

      Activex, il faudra ruser davantage.

      J'attends donc votre retour
      0
      3. pijaku Modérateur
        Tu as plusieurs solutions, mais aucune ne sera optimale.
        La meilleure est encore d'utiliser les formes comme des contrôles de formulaire.

        Solution 1 :
        Utilise un contrôle Image au lieu d'un CommandButton

        Solution 2 :
        Utilise un Frame avec la propriété Caption = "" à l'intérieur duquel tu places une image de fond avec le texte du bouton etc...

        Solution 3 :
        Place une image de fond dans ton CommandButton, image de fond créée avec les coins arrondis en transparence et enregistrée en .gif.

        Voici un exemple des "bricolages" possibles : https://www.cjoint.com/c/DHik5vis47B
        0
        1. Nico
          Merci , c'est vrai que le mieux est de passer en formulaires mais je vais devoir changer mes codes..
          0
          1. pijaku Modérateur
            Pas forcément...

            Supposons :
            Tu as dans ta Feuil1 1 Commandbutton (pas beau) que tu souhaites remplacer par une forme (jolie).
            - Tu règles la propriété visible de ton CommandButton sur False => il n'est donc plus visible mais toujours présent.
            - Tu enlèves le mot Private de Private Sub CommandButton1_Click
            - Dessines ta forme (jolie)
            - Clic droit dessus/Affecter une macro => clic sur Nouvelle
            - Copie/Colle ce code : 
            Sub Rectangleàcoinsarrondis1_Cliquer()
CallByName Worksheets("Feuil1"), "CommandButton1_Click", VbMethod
End Sub


            Un fichier exemple ICI
            0
          2. Nico
            Yes ca marche cependant faut pas que j'oublie de changer le nom de la feuille si je le change plus tard ;)

            Merci
            0
          3. pijaku Modérateur
            Tu peux, peut être, essayer avec le CodeName de la feuille qui lui ne changera jamais. 
            Sub Rectangleàcoinsarrondis1_Cliquer()
            CallByName Worksheets(Feuil1), "CommandButton1_Click", VbMethod
            End Sub
            0
          4. Nico
            Cela ne fonctionne aps, dommage
            0

        Discussions similaires

        Bouton ON/OFF : O ou I, quel côté est allumé
        Stargirlfr

        12 réponses
        Dimensions L x l x H : comment lire ces infos ?
        Miss-Curieuse

        8 réponses
        Supprimer l'historique de commandes et d'achats sur Amazon
        Matthew5

        25 réponses
        Enlever le pass. Telecomm. Active
        Lisa

        3 réponses
        Où est la touche SHIFT sur mon clavier d'ordi ?
        joe!

        18 réponses