Etat bouton à l'ouverture de la feuille

micgca · 29 Novembre 2015

Bonjour,
je travaille sur un classeur facture - livraison - commande.

Avec le travail des un et l'aide des autres sur le forum, j'arrive aujourd'hui à avoir quelque chose de très satisfaisant. Alors encore un énorme merci à vous tous.

Ma question :

j'ai un bouton qui permet d'afficher ou non le mot PAYE sur la facture.

Private Sub CommandButton3_Click()
With Me.Shapes("Image 14")
.Visible = Not .Visible
If .Visible Then CommandButton3.Caption = "Masquer PAYE" Else CommandButton3.Caption = "Afficher PAYE"
End With
End Sub

Ma question est : je souhaite qu'à chaque ouverture de la feuille facture, ce mot PAYE ne soit pas affiché. Comment intégrer cet état dans la commande d'ouverture de feuille qui est :

Sheets("Matrice Facture").Select

Merci et bonne journée.
Michel.

CHALET53 · 29 Novembre 2015

Re : Etat bouton à l'ouverture de la feuille

Bonjour,

Peut-être en associant un code à ta feuille "Matrice Facture" de ce type en remplaçant msgbox par ton code

Private Sub Worksheet_activate()
MsgBox ("Toto")
End Sub

a+

gilbert_RGI · 29 Novembre 2015

Re : Etat bouton à l'ouverture de la feuille

bonjour,

dans le module de la feuille"Matrice Facture" mettre

VB:

Private Sub Worksheet_Activate()
    With Me.Shapes("Image 14")
        .Visible = False   
    End With
End Sub

micgca · 29 Novembre 2015

Re : Etat bouton à l'ouverture de la feuille

Ok très bien, merci,
et si j'ai dans la même feuille un second Image13 à initialiser de le même façon ?

parceque

Private Sub Worksheet_Activate()
With Me.Shapes("Image 14")
.Visible = False
With Me.Shapes("Image 13")
.Visible = False
End With
End Sub

ne marche pas

micgca · 29 Novembre 2015

Re : Etat bouton à l'ouverture de la feuille

zut il manquait un End With

DoubleZero · 29 Novembre 2015

Re : Etat bouton à l'ouverture de la feuille

Bonjour à toutes et à tous,

micgca à dit:
... et si j'ai dans la même feuille un second Image13 à initialiser de le même façon ?..

A adapter et tester :

Code:

Option Explicit
Private Sub worksheet_activate()
    Me.Shapes.Range(Array("Image 13", "Image 14")).Visible = False
End Sub

A bientôt

Etat bouton à l'ouverture de la feuille

micgca

XLDnaute Junior

CHALET53

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

micgca

XLDnaute Junior

micgca

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Discussions similaires