boutton et feuille relier

[zine pef]

salut le forum
j'ai dans le fichier ,userform,combobox,3 boutton

Private Sub UserForm_Initialize()
ComboBox1.List = Array("feuil1", "feuil2", "feuil3")
            CommandButton1.Visible = False
            CommandButton2.Visible = False
            CommandButton3.Visible = False
End Sub

pour combobox

Private Sub ComboBox1_Change()
         On Error GoTo a
        Sheets(ComboBox1.Value).Activate
        If Userf.ComboBox1.Value = "" Then: Exit Sub
a: If Err.Number = 9 Then: Exit Sub
end sub

le probleme quand..
feuil1.select ... CommandButton1.Visible =true
feuil2.select ... CommandButton2.Visible =true
feuil3.select ... CommandButton3.Visible =true
j'espere le probleme est clair

 

[Hervé]

Re : boutton et feuille relier

bonsoir

pas tout compris à ta demande (cherche pas, ca viens de moi)

en piece jointe un fichier afin que tu nous aides

salut

 

[Catrice]

Re : boutton et feuille relier

Bonsoir,

Voir le fichier joint, d'apres ce que j'ai compris ...

 

[zine pef]

Re : boutton et feuille relier

merci Hervé tu as bien compri ma demande, c'est bien le code que je cherche

et merci Catrice pour ton code
si possible m'explique

For Each Y In Controls
If Left(Y.Name, 13) = "CommandButton" Then Y.Visible = False
Next

 

[Catrice]

Re : boutton et feuille relier

Bonjour,

For Each Y In Controls
If Left(Y.Name, 13) = "CommandButton" Then Y.Visible = False
Next

On boucle sur les controles.
Si le nom du controle = "CommandButton" (13 caracteres) alors on rend invisible.
Dit autrement, Si CommandButton on rend invisible