Bonjour,

Je débute dans le VBA et j'essaye de coder une listbox qui m'affiche le nom de tous mes onglets.

Voici le code que j'ai écrit :

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
Private Sub ListBox1_Change()
n = 0
m = 0
Z = 0
 
Sheets("Feuil35").Activate
Z = ListBox1.ListIndex
n = ListBox1.List(Z)
m = Sheets(n).Index
Range("A1").Value = n
Range("A2").Value = m
 
UserForm1.Hide
 
End Sub
-----------

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
 
Me.ListBox1.Clear
For i = 8 To 33
Me.ListBox1.AddItem Sheets(i).Name
Next
 
End Sub
Il marche plutôt bien seulement il y a un hic !
Il marche une fois et la seconde fois il me renvoi l'erreur d'execution 381. et il a quelquechose contre le ligne suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
n = ListBox1.List(Z)
Auriez vous une réponse ?

Merci d'avance !

Thomas