Modification automatique de l'apparence d'un bouton

JNP

XLDnaute Barbatruc

• 11 Janvier 2010

• #2

Re : Modification automatique de l'apparence d'un bouton

Bonjour Mastergonk et bienvenue 🙂,
Jettes un oeil à ce fil, tu verras que c'est possible, mais assez compliqué 🙄.
Bon courage 😎

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Janvier 2010

• #3

Re : Modification automatique de l'apparence d'un bouton

Bonjour Cyrill, JNP

Pas sur d'avoir tout compris, mais regarde le code ci-dessous, pour un bouton de la boite à outils controles placé sur une feuille de calcul, code à utiliser dans le module de celle-ci :

Pour la colonne A

Code:

Private Sub CommandButton1_Click()
Columns(1).Hidden = Not Columns(1).Hidden
CommandButton1.BackColor = IIf(Columns(1).Hidden, RGB(255, 0, 0), RGB(0, 255, 0))
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

M

Mastergonk

Guest

• 15 Janvier 2010

• #4

Re : Modification automatique de l'apparence d'un bouton

Bonjour JNP et Pierrot93,

je vous remercie pour vos messages mais je dois avouer que je ne suis pas parvenu à faire ce que je voulais avec vos indications. 😕 😱
Plutôt que d'essayer de décrire mon fichier, je vous le poste. 😀

Je vous rappelle mon besoin :
Je souhaiterais que chaque bouton m'affiche l'état de la (ou des) colonne(s) correspondante(s). Par exemple, lorsque la colonne "E" est affichée, que le bouton correspondant apparaisse en vert, mais qu'il apparaisse en rouge lorsqu'elle est masquée.

Merci d'avance de vos réponses

 

Pièces jointes

• TestFichier Premium.xls

  47 KB · Affichages: 58

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Janvier 2010

• #5

Re : Modification automatique de l'apparence d'un bouton

Bonjour,

le code donné était plutôt destiné à un contrôle de la "boite à outil contrôles", regarde l'exemple dans le fichier joint, code dans le module de la feuille.

bonne fin d'après midi
@+

 

Pièces jointes

• classeur1.zip

  11.4 KB · Affichages: 73
• classeur1.zip

  11.4 KB · Affichages: 72
• classeur1.zip

  11.4 KB · Affichages: 69

Vote positif 0 Vote négatif

M

Mastergonk

Guest

• 15 Janvier 2010

• #6

Re : Modification automatique de l'apparence d'un bouton

Merci Pierrot93,
je vais jeter un oeil à ce que tu m'as envoyé.
Bon week-end !

 

Vote positif 0 Vote négatif

M

Mastergonk

Guest

• 4 Février 2010

• #7

Re : Modification automatique de l'apparence d'un bouton

Bonjour à tous,
j'ai essayé d'appliquer la solutionde Pierrôt93 mais je n'y parviens pas... 🙁
Je n'arrive pas à appliquer le changement de couleur à mon bouton, et je n'arrive pas à intégrer les boutons de Pierrôt93 dans mon document...
Quelqu'un pour aider un boulet ??? 😱

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2010

• #8

Re : Modification automatique de l'apparence d'un bouton

Bonjour a tous
Vois si tu peux t'inspirer de ceci (avec ton bouton)
Si Pierrot passe par la il pourra supprimer les select

 

Pièces jointes

• TestFichier Premium.zip

  13.3 KB · Affichages: 47

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 4 Février 2010

• #9

Re : Modification automatique de l'apparence d'un bouton

Bonjour à tous,

Un peu en retard, je poste quand même
à+
Philippe
.

 

Pièces jointes

• 444.zip

  16.8 KB · Affichages: 45

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Février 2010

• #10

Re : Modification automatique de l'apparence d'un bouton

Bonjour à tous

A la demande de PierreJean🙂 que je salue particulièrement :

Code:

Sub Bouton31_QuandClic()
Dim s As Shape
Set s = ActiveSheet.Shapes("Button 31")
    x = Range("E5").EntireColumn.Hidden
    If x Then
       Range("E5,F5").EntireColumn.Hidden = False
       With s.TextFrame.Characters
        .Text = "Masquer Tout"
        .Font.ColorIndex = 3
       End With
    Else
       Range("E5,F5").EntireColumn.Hidden = True
        With s.TextFrame.Characters
        .Text = "Afficher Tout"
        .Font.ColorIndex = 5
       End With
    End If
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Février 2010

• #11

Re : Modification automatique de l'apparence d'un bouton

Re

on pourrait également raccourcir un peu le code ainsi :

Code:

Sub test()
Dim s As Shape
Set s = ActiveSheet.Shapes("Button 31")
Range("E5,F5").EntireColumn.Hidden = Not Range("E5,F5").EntireColumn.Hidden
x = Range("E5").EntireColumn.Hidden
With s.TextFrame.Characters
    If x Then
        .Text = "Masquer Tout"
        .Font.ColorIndex = 3
    Else
        .Text = "Afficher Tout"
        .Font.ColorIndex = 5
    End If
End With
End Sub

Edition déplacé le bloc "with"

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Février 2010

• #12

Re : Modification automatique de l'apparence d'un bouton

Re

une dernière version pour le fun....

Code:

Option Explicit
Sub test()
Range("E5,F5").EntireColumn.Hidden = Not Range("E5,F5").EntireColumn.Hidden
With ActiveSheet.Shapes("Button 31").TextFrame.Characters
    .Text = IIf(Range("E5").EntireColumn.Hidden, "Masquer Tout", "Afficher Tout")
    .Font.ColorIndex = IIf(Range("E5").EntireColumn.Hidden, 3, 5)
End With
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2010

• #13

Re : Modification automatique de l'apparence d'un bouton

Re

Merci mon ami Pierrot 🙂 🙂 pour cette illustration de la difference entre un amateur et un pro
Je regarde et essaie d'en prendre de la graine

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Février 2010

• #14

Re : Modification automatique de l'apparence d'un bouton

Re,

Aarf PierreJean🙂, je ne suis également qu'un simple amateur... te souhaitant une bonne journée

 

Vote positif 0 Vote négatif

M

Mastergonk

Guest

• 8 Février 2010

• #15

Re : Modification automatique de l'apparence d'un bouton

Bonjour à tous et encore merci pour votre aide.

J'ai réussi grâce à vous à appliquer la modification automatique du texte et de la couleur du bouton "Afficher/masquer tout". Le fonctionnement de ce bouton est donc parfait : quand on affiche ou on masque une ou plusieurs colonnes, il change automatiquement de texte et de couleur.

Malheureusement, je ne parviens pas à appliquer le même fonctionnement aux autres boutons. Je voudrais que les boutons "Adresse 1" et "Adresse 2" changent aussi de couleur en fonction de l'affichage de la colonne correspondante.
J'ai essayé de réutiliser le code du bouton "Afficher/masquer tout", mais le résultat obtenu n'est pas satisfaisant.

Je vous joins à nouveau mon fichier dans l'état d'avancement auquel je suis arrivé.

Merci d'avance de vos propositions !

 

Pièces jointes

• fichier test.zip

  14.3 KB · Affichages: 34
• fichier test.zip

  14.3 KB · Affichages: 31
• fichier test.zip

  14.3 KB · Affichages: 27

Vote positif 0 Vote négatif