Discussion :

[philippe6]

Bonjour,

Voici un petit bout de 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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub pen()
Workbooks.Open "C:\Documents and Settings\philippe.chotard\Mes documents\Statistiques générales.xls"
End Sub
Sub activpen()
Workbooks("Statistiques générales.xls").Activate
End Sub
 
 
 Sub Selectionfeuille(ByVal N As Integer)
    Select Case N
        Case 0
            ActiveWorkbook.Worksheets("accueil").Select
        Case 1
            ActiveWorkbook.Worksheets("menu").Select
        Case 2
            ActiveWorkbook.Worksheets("gestion des audioguides").Select
        Case 3
            ActiveWorkbook.Worksheets("St-Romain versus Fourvière").Select
        Case 4
            ActiveWorkbook.Worksheets("bilan rayon Fourvière 2012").Select
        Case 5
            ActiveWorkbook.Worksheets("Boutique bilan extrait").Select
        Case 6
            ActiveWorkbook.Worksheets("polearcheogradespolearcheo").Select
           End Select
 End Sub
 
Private Sub ListBox1_initialize()
Dim N As Long
 
For N = 1 To ActiveWorkbook.Sheets.Count
     ListBox1.AddItem ActiveWorkbook.Sheets(N).Name
 
Next N.
End Sub

J'ai limité le nimbre de Case pour ne pas vous ennuyer (il y en a 20 et ça ca augmenter)

Ce que je souhaitais faire c'est qu'en lançant l'application, la lisBox se renseigne toute seule des différents items proposés, je n'y arrive pas, j'ai utilisé un artifice :

l'application lancée la listBox ext là, mais vide, aussi, j'ai ajouté un bouton qui la remplit avec une pocedure Click qui contient exactement ce que contient la proc initialize.
Ceci dit je trouve ça très moche (sur le bouton j'ai du inscrire "veuillez clicker ici". Comment faire pour que cette listBox se remplisse avec initialize ou autrement, mais au lancement.

Merci,

Philippe

[AlainTech]

Bonjour,

Le fait que ta procédure ListBox1_initialize soit restée avec une minuscule à initialize aurait dû te mettre la puce à l'oreille.
Il n'existe pas d'événement Initialize pour une ListBox.
D'ailleurs, il ne faut jamais taper une procédure événementielle. Il faut la choisir dans les menus déroulants de l'éditeur VBA.

Par contre, il existe bien un événement Initialize pour un UserForm.

Voici un petit exemple d'usage adapté à ton cas:

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
  Dim wks As Worksheet
  For Each wks In ThisWorkbook.Sheets
    ListBox1.AddItem wks.Name
  Next wks
End Sub

Concernant ta sélection de feuille, il y a plus simple mais ça pourrait faire l'objet d'une autre question si celle-ci est résolue.