Discussion :

[xavier0069]

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.

[mercatog]

Quelque chose comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xavier0069]

merci

A quoi fait référence 'existe' de la ligne 7 ?
J'ai une erreur sur cette ligne

[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?

[xavier0069]

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

je te remercie.