Bonsoir,
Je cherche une syntaxe ou code pour remplace le nom des onglets par leur n° de feuille.
En vue d’ajouté une dizaine de feuille à masquer l'or de la demande d'impression
Je ne trouve pas la bonne syntaxe.
Merci à vous pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = Array("Index", "Paramètre") ' Index par Feuil9, Paramètre par Feuil8 etc…
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
t = Application.Match(S.Name, sh, 0)
    If IsError(t) Then
        ListBox1.AddItem S.Name
    End If
Next
TextBox1 = ""
End Sub