Bonjour,

J'ai un classeur de plusieurs feuilles (une vingtaine pour l'instant), dans un premier temps, j'ai crée un userform qui s'alimentait du nom des feuilles, un DblClick les mettait au premier plan, maintenant, j'essai pour gagner de la place (prévisionnel) de créer des combobox (j'appelle ça des listes déroulantes, peut-être à tord)

Voici le code :

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 UserForm_Initialize()
' Rajoute les feuilles créées dans Excel à la liste du formulaire
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
If Sh.Name Like "co*" Then
ComboBox1.AddItem Sh.Name
 
End If
Next
 
End Sub
 
Private Sub UserForm_Activate()
'pour passer en plein écran
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub
Il se remplit par famille (ici "co*" récupère les feuilles ayant un nom commençant par collège, mais lorsque je selectionne un de ces noms, rien ne se passe.

Auriez vous un conseil ?

Merci

Cordialement