Combobox

Bonjour,

je fais suite à un post d'avant hier. je voulais savoir comment amliorer ma
combobox, PMO m'a aidé, mais il reste un petit soucis:

j'ai essayer ,mais malheureusement, ça ne fontionne pas, il me met :
"impossible de définir la propriété Visible de la classe Worksheet"
et il bloque sur :

ase "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
For i& = 1 To Sheets.Count
If i& <> 4 Then **********Sheets(i&).Visible = xlSheetHidden********
Next i&
Unload Me

Je vous remercie si vous avez une modif à apporter.
YANN

"PMO" a écrit :
> Bonjour,
> Essayez et adaptez le code suivant
> '**********
> Private Sub combobox1_Click()
> Dim i&
> Select Case Me.ComboBox1.Value
> Case "Résumé 2005"
> ThisWorkbook.IsAddin = False
> Sheets(4).Visible = True
> For i& = 1 To Sheets.Count
> If i& <> 4 Then Sheets(i&).Visible = xlSheetHidden
> Next i&
> Unload Me
>
> Case "Résumé 2006"
> ThisWorkbook.IsAddin = False
> Sheets(5).Visible = True
> For i& = 1 To Sheets.Count
> If i& <> 5 Then Sheets(i&).Visible = xlSheetHidden
> Next i&
> Unload Me
>
> Case "Administrateur"
> For i& = 1 To Sheets.Count
> Sheets(i&).Visible = xlSheetVisible
> Next i&
> With Me
> .ComboBox1.Visible = False
> With .TextBox1
> .Visible = True
> .SetFocus
> End With
> .Label1.Visible = True
> End With
> End Select
> End Sub
> '**********
> Cordialement.
> --
> PMO
> Patrick Morange
>
> "YANN24" a écrit :
> > Bonjour,
> > j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
> > Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005" ou
> > 2006, les feuilles qui ne doivent plus etre visible le restent. Comment faire?
> > merci d'avance.
> > YANN
> > -----------------
> > Private Sub combobox1_Click()
> > Select Case Me.ComboBox1.Value
> >
> > Case "Résumé 2005"
> > ThisWorkbook.IsAddin = False
> > Sheets(4).Visible = True
> > Unload Me
> >
> > Case "Résumé 2006"
> > ThisWorkbook.IsAddin = False
> > Sheets(5).Visible = True
> > Unload Me
> >
> > Case "Administrateur"
> > With Me
> > .ComboBox1.Visible = False
> > With .TextBox1
> > .Visible = True
> > .SetFocus
> > End With
> > .Label1.Visible = True
> > End With
> >
> > End Select
> > End Sub
> > ----------------