Bonjour à tous


Information :
- Pour afficher l’Userform : feuille : ’BDD equipements’ bouton Chercher ou ajouter équipement

- Ecrire 200V01 dans TextBox2

Objectif : quand je sélectionne 200V01 dans ListBox2, la ListBox3 affichera toute les onglets du classeur (ThisWorkbook.Sheets) nommée *200V01*

Voici mon code adapter, svp vérifiez pour quoi il ne marche pas !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub ListBox2_Click()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
 
If Sh.Name = Me.ListBox2.ListIndex Then
 Me.ListBox3.AddItem Sh.Name
 
 End If
 Next Sh
End Sub
Je vous remercie infiniment pour votre attention