Robert
J'ai bien fait comme tu m'as ecrit, mais cela me donne un bugg a ce niveau :
Sheets("Feuill6").Activate
Voila le code de Thierry, avec la modification
'La procédure OKBouton_Click crée une variable objet qui représente
'la feuille séléctionnée. Si la feuille est visible, elle est activée
'Si elle n'est pas visible, l'utilisateur peut la rendre visible à
'l'aide d'une boîte de dialogue. Si l'utilisateur répond Oui, la feuille
'est affichée et activée. Autrement, la feuille initiale est activée
'(enregistrée dans une variable objet nommée FeuilleOriginale)
'--------------------------------------------------------------------
Private Sub BoutonOK_Click()
If ListBox1 = "" Then
Sheets("Feuill6").Activate
End
End If
Dim FeuilleAfficher As Object
Set FeuilleAfficher = Sheets(ListBox1.Value)
If FeuilleAfficher.Visible Then
FeuilleAfficher.Activate
Else
If MsgBox("Réafficher cette Feuille ?", _
vbQuestion + vbYesNoCancel) = vbYes Then
FeuilleAfficher.Visible = True
FeuilleAfficher.Activate
Else
FeuilleOriginale.Activate
End If
End If
Unload Me
End Sub
Merci, G'Claire