Discussion :

[AzelRoth]

Bonsoir,

Voila jsute une question débile comme le dit le titre du post:

Est-ce que Sheets("Feuil1") et Sheets(1) veulent dire la même chose?
De même pour Worksheet("Feuil4") et Worksheets(4)?

C'est juste à titre d'information perso.
Si ça peut me permettre de clarifier mon code, on ne sait jamais.
Merci

[aalex_38]

Non ça ne veut pas dire la même chose.

Les collections sont accessibles par un numéro d'index et parfois par leur nom.

Si tu renomme ta feuille5 en MaFeuille7 tu pourra y accéder soit par son numéro d'index soit par

Code :

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

worksheets("MaFeuille7")

[laetitia]

bonjour AzelRoth le forum avantage d appeler une feuille par son numero en qu a ou tu la renomme ta macro marcheras toujours Sheets(1) resteras Sheets(1)
par son nom elle marcheras plus

ps salut alex pas rafraichi

[Invité]

Bonsoir,

Ce que vous indique Laetitia est tout à fait valable à condition de ne pas modifier l'ordre des feuilles :

-Vous avez une feuille "Détail1" en première position
-une feuille "Détail2" en 2ème position
-et ainsi de suite par exemple jusqu'à "Détail24"
-vous créez une feuille "Récap" elle sera en 25ème position.

Vous décidez de mettre la feuille "Récap" en 1ère position car elle est plus facile à visualiser et sélectionner manuellement.

Le code :

Code :

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

Sheets(1).Select

qui sélectionnait la feuille "Détail1" va maintenant sélectionner la feuille "Récap" alors que :

Code :

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

Sheets("Détail1").Select

sera toujours valable.

A toutes fins utiles.

[laetitia]

re le forum oui!! j aurais du le preciser comme le dit jacques jacques_jean si tu changes la chronologie des feuilles il y a une influence
bonne soiree a+

[Pierre Fauconnier]

Bonsoir

J'ajouterai ceci.

Le problème avec des macros qui utilisent le nom de la feuille, c'est que si l'utilisateur change le nom de la feuille, la macro plante...

Il est donc judicieux d'utiliser le plus souvent possible le codename de la feuille, que tu peux personnaliser dans les propriétés VBA de la feuille. Tu es ainsi certain que ta macro fonctionne toujours, sauf suppression de la feuille, bien sûr...

[aalex_38]

Bonjour,

J'utilise aussi le codename notamment pour des suppressions de feuilles (attention il doit toujours en rester une).

le codename de la feuille, que tu peux personnaliser dans les propriétés VBA de la feuille

Merci beaucoup Pierre Fauconnier, je n'y avais jamais pensé et c'est génial de pouvoir changer le codename de la feuille, on s'assure de plus de maitrise avec un nom choisi au lieu de Feuilx !!!

Un exemple de suppression de feuille :

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 supprimer_tous_les_onglets()
' desactive
Dim F1 As Worksheet
 
For Each F1 In ThisWorkbook.Sheets
 
    If F1.CodeName <> "Master" And F1.CodeName <> "Anos" Then
 
            F1.Delete
 
    End If
Next
' active
End Sub

[Pierre Fauconnier]

Il peut même être attribué par code

Code :

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

feuil1.[_codename] = "xxx"

Pratique lorsque l'on crée une feuille par code et qu'on veut lui donner un codename...

Attention! les crochets et le caractère _ sont indispensables, car sans cela, codename est en lecture seule... (Merci silkyRoad)

[pgz]

Bonjour.

Question complémentaire : on fait comment pour trouver dans un autre classeur une feuille par con codename?

PGZ

[Pierre Fauconnier]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function getWorksheetByCodename(CodeName As String, Optional Classeur As Workbook) As Worksheet
    Dim Feuille As Worksheet
 
    If Classeur Is Nothing Then Set Classeur = ThisWorkbook
 
    For Each Feuille In Classeur.Worksheets
        If Feuille.CodeName = CodeName Then
            Set getWorksheetByCodename = Feuille
            Set Feuille = Nothing
            Exit For
        End If
    Next Feuille
End Function

[pgz]

Re,

En fait on peut y aller direcement avec, par exemple

Code :

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

Set sh = wbk.Worksheets(wbk.VBProject.VBComponents(CodeName).Properties("Name").Value)

PGZ

[Pierre Fauconnier]

Pour autant que la case Faire confiance au projet Visual Basic soit cochée dans Outils/Macro/Sécurité/éditeurs approuvés

C'est pourquoi je préfère ma méthode