Discussion :

[rossemma]

Bonjour,

Ma question est surement bête pour les pros de ce forum

je voudrais utiliser les noms internes des feuilles dans le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub hidesheets()
 
    Dim ws As Worksheet
 
    'Application.ScreenUpdating = False
    For Each ws In Sheets
    If Not ws.Name = "WELCOME" Then ws.Visible = False
    Next ws
 
End Sub

Merci d'avance.

[anasecu]

Bonjour,

je voudrais utiliser les noms internes des feuilles

C'est quoi pour toi un nom interne ?

[rossemma]

pour moi, c'est feuil1, feuil2

mais j'ai remplacé par sh_nom1, sh_nom2

ex :
nom qui apparaît sur l'onglet de la feuille = WELCOME
nom interne de la feuille = sh_welcome

[unparia]

Bonjour
Parcourir de préférence la collection WorkSheets.

[rossemma]

code modifié :

Code :

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

1
2
3
4
5
6
Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    For Each ws In Worksheets
    If Not ws.Name = sh_welcome Then ws.Visible = False
    Next ws

mais cela bloque, il dit propriété non gérée par cet objet.

[unparia]

Name est de type String et donc sh_welcome est à mettre entre guillemets

IMPORTANT : faire gaffe à bien avoir au moins une feuille ainsi nommée très exactement (sinon -->> blocage)

J'espère que tu ne confonds pas nommer une feuille avec attribuer une feuille à une variable objet (par instruction Set) . Ce n'est pas la même chose du tout.

EDIT : je vais partir. Alors, juste pour le cas où tu aurais affecté et non nommé, voilà comment faire :

Code :

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

1
2
3
4
5
6
Dim ws As Worksheet, F As Worksheet
  Set F = Worksheets("toto_par_esemple") ' là, on ne nomme pas, mais on attribue une feuille à une variable
    Application.ScreenUpdating = False
    For Each ws In Worksheets
      If Not ws Is F Then ws.Visible = False
    Next ws

[rossemma]

merci

avec ton code, il répond "erreur de compilation, next sans for"

[unparia]

Impossible. Tu as probablement mal copié/collé !
Montre ton code

[rossemma]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub hidesheets()
 
    Dim ws As Worksheet, F As Worksheet
    Set F = Worksheets("sh_welcome") ' là, on ne nomme pas, mais on attribue une feuille à une variable
    Application.ScreenUpdating = False
    For Each ws In Worksheets
      If Not ws Is F Then ws.Visible = False
    Next ws
 
End Sub

sh_welcome est le nom interne
probleme next résolu mais il dit que sh_welcome n'appartient pas à la sélection

de plus, puis je mettre plusieurs nom de feuille dans F ?

[unparia]

probleme next résolu mais il dit que sh_welcome n'appartient pas à la sélection

de plus, puis je mettre plusieurs nom de feuille dans F ?

Houla ! Tu n'as donc pas de feuille ainsi TRES EXACTEMENT nommée
Il n'est bien évidemment pas possible d'affecter plusieurs feuilles à une variable

J'ai l'impression de plus en plus nette que tu mélanges tout ...
Montre-nous voir TOUTES les lignes de ton code où apparaît sh_welcome
(j'espère que tu n'as pas "nommé" ici et "affecté" là ... On va bien voir).

[anasecu]

Bonjour,

sh_welcome est le nom interne

Si ce que tu appelles "nom interne" est le codename, ceci devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
Sub hidesheets()
 
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In Worksheets
      If Not ws Is sh_welcome Then ws.Visible = False
    Next ws 
End Sub

[rossemma]

Pour résumé, je cherche à masquer lors de la fermeture du classeur toutes les feuilles sauf celles qui se nomment :

"sh_welcome"
"sh_11XX"
"sh_12XX"
"sh_ab"
"sh_modif"
"sh_tabvoorlien"

Ces noms sont les noms internes et pas ceux des onglets (au moins pas de problèmes si pas hasard on change le nom de l'onglet)

[kiki29]

Salut, je pense que tu parles de ce que l'on appelle le CodeName, dans ce cas voir ici

© Pierre Fauconnier

[anasecu]

Bonjour,

Pour résumé, je cherche à masquer lors de la fermeture du classeur toutes les feuilles sauf celles qui se nomment

Dans ce cas tu peux procéder ainsi :

Code :

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

1
2
3
4
5
6
7
8
Sub hidesheets()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In Worksheets
      If InStr("sh_welcome,sh_11XX,sh_12XX,sh_ab,sh_modif,sh_tabvoorlien", ws.CodeName) = 0 Then ws.Visible = False
    Next ws
    Application.ScreenUpdating = True
End Sub

[rossemma]

exact

un grand merci
cela fonctionne

[Bric-a-brac]

Bonjour,

Image extraite ici => http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

ActiveSheet.Name => Nom de l'onglet
ActiveSheet.CodeName => Nom interne de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
Sub Renomme_les_onglets_avec_le_nom_interne()
 
Dim i As Integer
 
For i = 1 To Sheets.Count
    Sheets(i).Name = Sheets(i).CodeName
Next i
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Renomme_nom_interne_avec_le_nom_des_onglets()
 
Dim i As Integer
Dim sh As Worksheet
Dim test As String
 
For i = 1 To Sheets.Count
    Set sh = Worksheets(Sheets(i).Name)
    On Error Resume Next
    sh.[_CodeName] = Sheets(i).Name
Next i
Set sh = Nothing
 
End Sub

Attention, le CodeName ne doit pas avoir d'espace, de trait-union, etc... et doit commencer par une lettre
Donc pour faire simple => Lettres, Underscores, Chiffres

Cordialement