XL 2010 Afficher/masquer un bouton dans un Userform selon condition

Staple1600

XLDnaute Barbatruc

• 17 Novembre 2019

• #2

Bonjour

Avec ceci , c'est normal qu'il y ait un petit souci
Private Sub UserForm_Help_Initialize()

Cela fonctionnera mieux ainsi 😉

VB:

Private Sub UserForm_Initialize()
'Si pas administrateur
CommandButton_version.Visible = Sheets(1).Cells(1) = 1
End Sub

 

Vote positif 0 Vote négatif

thunder23

XLDnaute Occasionnel

• 17 Novembre 2019

• #3

Re Staple1600,

Ah d'accord ok et il faudrait que je mette quoi à la place ?

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2019

• #4

Bonjour,
Private Sub UserForm_Activate()
If Sheets("Feuil1").Range("a1").Value = 1 Then Me.CommandButton1.Visible = True
End Sub

A+ François

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Novembre 2019

• #5

Re, Bonjour fanfan38

=>thunder13
Relire mon précédent message 😉

=> fanfan38
Pour infos:
On peut se passer du If / End IF
(cf message#2)

 

Dernière édition: 17 Novembre 2019

Vote positif 0 Vote négatif

thunder23

XLDnaute Occasionnel

• 17 Novembre 2019

• #6

Staple1600 à dit:

Re, Bonjour fanfan38

Relire mon précédent message 😉

=> fanfan38
On peut se passer du If / End IF
(cf message#2)

Cliquez pour agrandir...

Ah oui je viens juste de voir, ça n'avait pas tout charger la page toute à l'heure, merci 😉

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2019

• #7

Salut Staple 1600
J'ai vu... tu m'en apprend tous les jours...
A+ François

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Novembre 2019

• #8

Re

fanfan38
PS: Le relire mon message s'adressait au demandeur 😉
Je n'ai pas froissé au moins?

Je retourne éditer mon message pour que ce soit plus clair 😉

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2019

• #9

Non pas du tout... J'avais bien compris ce que tu voulais dire...
Bonne soirée... A+ François

 

Vote positif 0 Vote négatif