plusieurs boutons que je dois rendre invisible

[Petchy]

Bonsoir le Forum,

voila,j'ai plusieurs boutons que je dois rendre invisible à l'activation de mon USF,faut il écrire
quit.visible=false pour tous les boutons, ou y à t'il une autre écriture en une seule fois pour tous les boutons.

 

[Minick]

Salut,

Dans les proprietes de tes boutons dans Vbe tu peux les mettre invisibes
par defaut à la creation de ton Usf.

ou alors en code tu devras par exemple mettre un Tag identique sur chaque bouton et tester le tag dans une boucle pour savoir si tu dois
masquer ou non.


si tu veux un petit exemple fait un petit signe

@+ Minick

 

[Bernard]

Bonsoir Petchy et Minick

Voici quelques modèles de code :

1- Pour le bouton qui ouvre le userform et rend invisible les différents boutons ou images de la feuille :

Private Sub CommandButton1_Click()
'Images invisibles
ActiveSheet.Shapes.Range(Array("Picture 5", "Picture 4", "Picture 3", "Picture 2", "CommandButton1")).Visible = False
UserForm1.Show
End Sub

2- Pour le bouton qui ferme le userform :

Private Sub CommandButton2_Click()
FermetureUserForm
End Sub

3- pour la croix du userform :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
FermetureUserForm
End Sub

4- la macro qui permet de fermer le userform et de rendre les boutons visibles :

Sub FermetureUserForm()
ActiveSheet.Shapes.Range(Array("Picture 5", "Picture 4", "Picture 3", "Picture 2", _
"CommandButton1")).Visible = True
Unload UserForm1
End Sub

Cordialement

Bernard

 

[myDearFriend]

Bonsoir Petchy, Minick, Bernard.


Petchy, en complément, tu peux également utiliser le code suivant :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "CommandButton" Then
Ctrl.Visible = False
End If
Next Ctrl



Cordialement,
Didier_mDF

 

[Petchy]

bonjour Minick,Bernard,Didier_mDFet le forum

un grand merci pour vos solutions,qui m'évitera d'écrire plusieurs fois les meme codes.
@ plus
Petchy