rendre invisible des boutons dans l'USF2

[petchy]

bonsoir
A l'aide d'un bouton dans un USF1 je fait appel un autre USF2 et je voudrais rendre invisible des boutons dans l'USF2,
j'ai mis se code sur le bouton mais ça ne fonctionne pas,avez vous une idée.

Private Sub CommandButton5_Click()
aaa.Show
CommandButton1.Visible = False
CommandButton12.Visible = False
CommandButton13.Visible = False
Frame3.Visible = False
End Sub

merci
Petchy

 

[myDearFriend]

Bonsoir Petchy,


Tu peux peut-être essayer :

Private Sub CommandButton5_Click()
   With aaa
      .CommandButton1.Visible = False
      .CommandButton12.Visible = False
      .CommandButton13.Visible = False
      .Frame3.Visible = False
      .Show
   End With
End Sub

Cela dit, si tu détermines les propriétés "visible" de ces contrôles à "False" directement dans l'environnement de développement VBE, ces contrôles seront invisibles à chaque ouverture du Userform "aaa" sans que tu sois obligé de le définir dans le code VBA.


Cordialement.

Didier_mDF

 

[Rai]

bonsoir,


AMHA, il serait opportun d'appliquer la méthode repaint à ton USF2.
Après
UserForm2.CommandButton1.Visible = False
...
UserForm2.CommandButton3.Visible = False
UserForm2.Repaint

devrait mettre à jour l'affichage de ta USF2

Ca marche ?

Rai

 

[petchy]

Re

un grand merci à tous les 2 pour vos codes,

@plus
petchy

 

[Akeya06]

Bonsoir à tous,

Voici une idée un peu tordu je vous l'accorde.
Dans une même USF est il possible en partant de vos code de remplacer des boutons par d'autres.

Merci d'avance

Akeya06