Discussion :

[deus-ex-inferno]

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

[anasecu]

Bonsoir,

Je ne trouve pas la bonne syntaxe.

Peut-être en plus simple ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = "Index,Paramètre" '  Index par Feuil9, Paramètre par Feuil8 etc…
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
    If InStr(sh, S.Name) = 0 Then
        ListBox1.AddItem S.Name
    End If
Next
TextBox1 = ""
End Sub

[deus-ex-inferno]

Bonjour,
Merci anasecu .
Le code simplifié fonctionne très bien mais ce n’est pas ce que je cherche à faire.
Le nom des onglets comporte plus d’une dizaine de caractères chacun.
Je souhaiterai me simplifier la tâche en mettant leur N° de feuille plutôt que de taper leurs noms.
(Il y a plusieurs restaurants sur le site et plusieurs pôles par restaurant)
Et donc un classeur par pôle.
Cette syntaxe ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = "Feuil9,Feuil8" 
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
    If InStr(sh, S.Name) = 0 Then
        ListBox1.AddItem S.Name
    End If
Next
TextBox1 = ""
End Sub

[Theze]

Bonjour,

La demande manque de précisions donc voici une piste qui donne le numéro d'index (position de la feuille dans Excel de gauche à droite), le nom du module de la feuille et son nom dans Excel :

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
 
    For Each S In Worksheets
 
        ListBox1.AddItem S.Index & " -" & S.CodeName & "- (" & S.Name & ")"
 
    Next S
 
End Sub

[deus-ex-inferno]

Re,
Ce que je cherche à faire c’est de remplacer les noms d’onglet par les numéros d’onglet.
Exemple :

Remplacer

Code :

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

Sh = Array("Index", "Paramètre")

Par

Code :

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

" la syntaxe " ("Feuil9", "Feuil8", ect..)

Les feuilles en question ne doivent pas s’afficher dans la ListBox.

Merci à vous pour votre aide.

[anasecu]

Bonsoir,

Ce que je cherche à faire c’est de remplacer les noms d’onglet par les numéros d’onglet.

Je pense que ton vocabulaire n'est pas adéquat car si tu veux changer "Index" par "Feuil9"

ce n’est pas remplacer les noms d’onglet par les numéros d’onglet 'index' mais par leur 'codename' qui n'est pas modifiable en excel mais avec VBE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = "Feuil9,Feuil8" '  Index par Feuil9, Paramètre par Feuil8 etc…
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
    If InStr(sh, S.CodeName) = 0 Then
        ListBox1.AddItem S.Name
    End If
Next
TextBox1 = ""
End Sub

[Philippe Tulliez]

Bonjour Anasecu,

ce n’est pas remplacer les noms d’onglet par les numéros d’onglet 'index' mais par leur 'codename' qui n'est pas modifiable en excel mais avec VBE

Il existe une autre solution pour modifier le CodeName d'une feuille

Exemple 1 - En utilisant le nom de la feuille

Code :

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

1
2
3
4
5
Sub T_1()
 Dim sht As Worksheet
 Set sht = Worksheets("feuil1")
 sht.[_CodeName] = "MyNewCodeName"
End Sub

Exemple 2 - En utilisant le CodeName de la feuille

Code :

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

1
2
3
Sub T_2()
 Feuil1.[_CodeName] = "MyNewCodeName"
End Sub

[deus-ex-inferno]

Re,

Merci à vous tous.
Désolé pour mon vocabulaire .

anasecu,

Cela fonctionne nickel.
Merci beaucoup.

[anasecu]

Bonsoir Philippe Tulliez

Il existe une autre solution pour modifier le CodeName d'une feuille

Totalement d'accord avec toi, j'avais simplifié un peu effectivement pour dire que cette propriété n'était accessible que par le développement.

Merci d'avoir été plus explicite et plus complet.
L'exemple 2 est à employer si l'on ne veux pas se planter du fait de changement de dénomination de la feuille. ;-)

Désolé pour mon vocabulaire .,.

Bonsoir deus-ex-inferno

Ce n'est pas grave l'on a fini par comprendre ce que tu voulais alors bonne continuation.