Bonjour,
Je suis débutant en VBA.
J'aimerais remplir ma Listbox au démarrage de mon document. J'ai essayé de mettre UserForm_Initialize dans This Workbook mais il me dit que la Sub en question n'est pas déclarée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Workbook_open()
UserForm_Initialize
End Sub
Voici ce qu'il y a dans Feuil1 :

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
Private Sub UserForm_Initialize()
    ListBox1.Clear
    ListBox1.AddItem "A"
    ListBox1.AddItem "B"
End Sub
 
Private Sub CommandButton1_Click()
    UserForm_Initialize
End Sub
 
Private Sub UserForm_suite()
    If ListBox1.List(ListBox1.ListIndex) = "A" Then
        ListBox2.AddItem "1"
        ListBox2.AddItem "2"
        ListBox2.AddItem "3"
    End If
    If ListBox1.List(ListBox1.ListIndex) = "B" Then
        ListBox2.AddItem "4"
        ListBox2.AddItem "5"
    End If
End Sub
 
Private Sub ListBox1_Click()
    ListBox2.Clear
    UserForm_suite
End Sub
Je ne peux pas créer de module avec les listbox sans que j'ai une erreur sur un objet manquant (listbox1 par exemple, même si je la déclare As Listbox). Je pense avoir compris que pour lancer une macro au démarrage il faut que ce soit dans un module (c'est la conclusion que j'en tire).
Avez vous une idée de comment remplir ma listbox à l'ouverture du document ?
Merci d'avance