Ouverture feuille via combobox

Version imprimable

11/03/2013, 20h06
xavier0069

Ouverture feuille via combobox

Bonsoir à tous,

J'ai créer une combobox (active X) que j'ai nommé 'cb' et je l'ai placée dans la feuille 1.

J'ai ensuite créer une liste de nom et numéro de tel dans la feuille 2.
La combobox reprend cette liste.

Chaque nom de ma liste sera le nom d'une feuille du dossier.

J'aurai voulu savoir comme je pourrais faire pour qu'en affichant un nom dans la combobox, le feuille correspondante s'ouvre ?

Merci.

Quelque chose comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ComboBox1_Change()
Dim Str As String
 
If ComboBox1.ListIndex > -1 Then
    Str = ComboBox1.Value
    'Si la feuille existe, on l'active
    If Existe(Str) Then
        ThisWorkbook.Worksheets(Str).Activate
        'Sinon, on la créé
    Else
        ThisWorkbook.Worksheets.Add(After:=ActiveSheet).Name = Str
    End If
End If
End Sub
 
 
'Fonction qui permet de vérifier si le classeur contient une feuille nommée Str
Private Function Existe(ByVal Str As String) As Boolean
 
On Error Resume Next
Existe = ThisWorkbook.Sheets(Str).Name = Str
On Error GoTo 0
End Function

11/03/2013, 20h37
xavier0069

merci

A quoi fait référence 'existe' de la ligne 7 ?
J'ai une erreur sur cette ligne
11/03/2013, 20h46
mercatog

Si tu vois en bas, Existe est une fonction (cf la fonction en bas du code) qui retourne True si la feuille choisie existe dans le classeur et False sinon.

As-tu repris, lu et compris tout le code ou une partie?
11/03/2013, 20h52
xavier0069

Ok, autant pour moi, j'ai fait une faute en recopiant.

je te remercie.