Appeler une feuille avec une combobox

[bigcharlot]

Bonjour le forum,
Quelqu'un peut-il me dire s'il y a moyen d'appeler une feuille à partir d'une combobox dans un USF.
Fichier joint.
D'avance merci [file name=Cherche_feuille.zip size=9783]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cherche_feuille.zip[/file]

 

[Hervé]

bonsoir bigcharlot

essayes comme ceci :

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
        If Not ws.Name = 'Recherche' Then 'si tu veux la feuille recherche dans la combobox
        'supprime cette condition
                ComboBox1.AddItem ws.Name
        End If
Next ws
End Sub
Private Sub ComboBox1_Click()
With Sheets(ComboBox1.Text)
        .Select
        .Range('a1').Select
End With
End Sub

tu n'a plus besoin du bouton recherche, des sélection dans la combobox, tu es renvoyer sur la feuille.

salut

 

[bigcharlot]

Bonjour Hervé et tous les autres,
Je te remercie pour ton code, mais je suis pas bien habitué avec le vba !
Où dois écrire ce code?
Encore Merci,
C

Re à toutes et tous,
Hervé, j'ai trouvé, merci c'est pile poil ce que je cherchais. Bravo l'ami et encore merci
Bonne nuit les loulous

Message édité par: bigcharlot, à: 26/02/2006 23:28