commandbutton . visible

[evelynetfrancois]

bonjour a tous
voici mon soucis
j ai un meme USF qui s'ouvre en cliquant sur un bouton en feuil1 et egalement en feuil2

Quelle ligne de macro (a rajouter a la procedure) permetré de faire apparaitre a l initialisation de l USF le 'CommandButton4' lorsque cette USF est lancé du boutton de la feuill1 et ne pas le faire apparaitre si l USF est lance de la feuil2
j ai essaye un truc du genre
if activesheet('feuil1').activate Then
CommandButton4.visible = True
end if

if activesheet('feuil2').activate Then
CommandButton4.visible = False
end if
mais sans resultat satisfaisant !!!!!

Merci d avance pour toutes vos sujetions toujours bien venues
bonne journée
E et F

 

[dg62]

bonjour evelyneetfrancois


en utilisant une variable type flag


quand lancement avec bouton1 mettre flag=1
quand lancement avec bouton2 mettre flag=0

et ensuite

si flag = 1

commandbutton4.visible=true

etc...

Option Explicit

Public flag As Byte

Private Sub UserForm_Initialize()
If flag = 1 Then
CommandButton3.Visible = True
End If
If flag = 0 Then
CommandButton3.Visible = False
End If

End Sub

Private Sub CommandButton2_Click()
flag = 1
UserForm1.Show

End Sub

Private Sub CommandButton1_Click()
flag = 0
UserForm1.Show

End Sub

Message édité par: dg62, à: 28/01/2006 15:12

 

[evelynetfrancois]

super merci dg62!!
cé exactement ce qu il me fallait !!
pour info j ai mis

If Range('iu1') = 1 Then
CommandButton4.Enabled = True
End If
If Range('iu1') = 0 Then
CommandButton4.Enabled = False
End If

bonne journée a toi et au plaisir de te lire
EetF