Changement de couleur bouton Activex à la fin d'une macro

Résolu
CBRiste31 Messages postés 84 Statut Membre -  
danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

J'ai créé deux boutons de contrôle de formulaires Activex, chacun relié à une macro différente.

J'aimerais qu'à la fin d'exécution de la 1ère macro, le bouton qui lui est attribué devienne vert, puis de même pour le 2ème bouton à l'exécution de la seconde macro.

Ci-dessous, le fichier.

https://uploadnow.io/f/P5DkxKY

Merci d'avance

Gexelpas


Windows / Chrome 109.0.0.0

10 réponses

Résumé de la discussion

Le problème porte sur deux boutons de contrôle reliés à deux macros et sur le fait de les voir devenir verts à l’issue de chaque macro. Il apparaît que les boutons actuels ne sont pas des ActiveX mais des boutons de forme, ce qui empêche de modifier leur couleur via VBA; il faut donc soit passer sur des contrôles ActiveX, soit adopter une autre approche graphique. Si l’on utilise des boutons ActiveX, on place dans chaque gestionnaire d’événement Private Sub CommandButtonX_Click() des instructions qui colorent le bouton correspondant et réinitialisent l’autre, en évitant l’emploi de Select et en référant proprement à la feuille. Des rappels indiquent également que Microsoft déconseille ActiveX et qu’il peut être pertinent d’évaluer des alternatives plus simples, tout en montrant comment adresser le BackColor via ActiveSheet.CommandButton1.BackColor = RGB(...).

Généré automatiquement par IA
sur la base des meilleures réponses
  1. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
     

    Bonjour à tous,

    Les boutons de ton classeur ne sont pas des boutons ActiveX mais des boutons de la boîte à outils "Formulaire". On ne peut pas changer la couleur de ces boutons.

    Pour utiliser les contrôles ActiveX :

    Pour indiquer que la macro est terminée, ajoute la ligne en fin de code :

    MsgBox "fin de la macro"

    Daniel 

    1
    1. CBRiste31 Messages postés 84 Statut Membre 3
       

      Merci Daniel, je ne referai plus cette erreur...

      0
  2. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
     

    ... Sinon, pour colorer un bouton ActiveX en gris :

        ActiveSheet.CommandButton1.BackColor = RGB(242, 242, 242)

    et en vert :

    ActiveSheet.CommandButton1.BackColor = RGB(102, 255, 51) 'vert

    Daniel 

    1
  3. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
     

    Supprime tes deux macros et mets celles-ci dans le module de la feuille Feuil1 :

    Private Sub CommandButton1_Click()
  Sheets("Feuil2").Select
  ActiveCell.FormulaR1C1 = "testun"
  Sheets("Feuil2").Range("B1").Select
  Sheets("Feuil1").Select
  CommandButton1.BackColor = RGB(102, 255, 51) 'vert
  CommandButton2.BackColor = RGB(242, 242, 242)
End Sub

Private Sub CommandButton2_Click()
    Sheets("Feuil2").Select
    Sheets("Feuil2").Range("A2").Select
    ActiveCell.FormulaR1C1 = "testdeux"
    Sheets("Feuil2").Range("A3").Select
    Sheets("Feuil1").Select
  CommandButton2.BackColor = RGB(102, 255, 51) 'vert
  CommandButton1.BackColor = RGB(242, 242, 242)
End Sub

    Daniel

    1
    1. CBRiste31 Messages postés 84 Statut Membre 3
       

      Bonjour Daniel,

      Merci beaucoup pout ton temps et ton aide;

      Je comprends mieux l'intégration d'une macro à une commande de bouton grâce à tes exemples. Merci :-)

      0
  4. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Bonjour CBRiste31,

    Ma petite contribution : https://www.swisstransfer.com/d/281e47ed-5fb3-4bc7-ba48-c679f42ad11b

    1
    1. CBRiste31 Messages postés 84 Statut Membre 3
       

      Bonjour Le Pingou,

      Au top, comme toujours ! :-)

      Je vais l'utiliser pour d'autres macros dorénavant !

      Merci bcp !

      Cdlt,

      Gexelpas

      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
     

    Bonjour à tous,

    Puisque, semble-t-il, tu débutes dans la programmation des command buttons, il y a une bizarrerie qu'il est important de connaître : quand tu indiques une cellule sans spécifier le nom de la feuille, VBA considère que la cellule fait partie de la feuille du bouton et non pas de la feuille active. On le voit dans la fenêtre d'exécution :

    sheets("Feuil2").select


    ?Range("A1").Parent.name


    Feuil1

    Par exemple, si le bouton est sur Feuil1 et que tu veuilles écrire en A1 de Feuil2, tu dois spécifier le nom de la feuille :

        Sheets("Feuil2").Select
    Sheets("Feuil2").Range("A2").Select

    Daniel

    PS. Note que j'ai repris des lignes de ton code. En pratique, il vaut mieux éviter les instructions "Select".

    1
  8. CBRiste31 Messages postés 84 Statut Membre 3
     

    Bonjour et merci pour cette information.

    Quelle serait le code à ajouter à ma macro pour que dès la fin de son exécution, une boite de message s'affiche, indiquant qu'elle est achevée ?

    Merci d'avance.

    Cdlt,

    Gexelpas

    0
    1. brucine Messages postés 24851 Date d'inscription   Statut Membre Dernière intervention   4 170
       

      Bonjour,

      Ce ne sont pas les Active X en soi qui sont dangereux, mais leur exploitation à partir d'Internet ou d'un fichier tiers en contenant: il n'y a pas de risque sur un fichier Excel local où on a soi-même mis en place un contrôle de ce type.

      Sur la dernière question, il suffit normalement d'insérer en fin de code un
      MsgBox "Mon texte".

      0
  9. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Bonjour,

    Juste au passage est-ce que si Un est terminé devient vert et Deux reste gris puis si Deux est terminé devient vert et Un de vient gris....?

    0
  10. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Bonjour danielc0,

    Belle proposition et le tout sans avoir de réponse du demandeur c'est dommage..

    0
    1. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
       

      Bonjour,

      Tu n'as pas dû ouvrir son classeur...

      Daniel

      -2
    2. CBRiste31 Messages postés 84 Statut Membre 3
       

      Bonjour Le Pingou.

      Je n'avais pas accès à internet les 2 derniers jours, mais je viens de voir la proposition de Daniel (tout comme la vôtre plus haut) et je viens de le remercier. :-)

      0
  11. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     

    Bonjour Daniel,

    Eh oui je l'ai ouvert et j'ai vu ces deux codes  qui ne peuvent pas prendre en compte les contrôles ActiveX.

    Bonne suite

    0

Discussions similaires

Windows Live Mesh + Active X
JMR93 -
PIBUS9174 -

6 réponses
activex
titi17-08 -
titi17-08 -

2 réponses
Windows Live Mesh ActiveX control
mopoule -
CCMclaude -

2 réponses
activer les activeX sous firefox
kaiiosan -
leon -

22 réponses
Erreur ActiveX/COM récalcitrante dans Ccleaner
LupLuc22 -
Lady Mel -

8 réponses