Discussion :

[Un Internaute]

Bonjour le forum,
Lorsque je "triture" les feuilles du classeur dans un certain ordre ça ne "suit" pas dans feuille VBA.
Lorsqu'il y en a très peu avec Propriétés ça va mais plus nombreuses c'est C$$$$T!!!
Y a t-il une astuce?
Merci pour d'éventuels retours.
Bien cordialement

[Stanler]

Bonjour,

Qu'entends tu par "triturer" ?
Les feuilles sont renomables, mais il n'y aura qu'une seule "Feuil1", qui peut s'appeler "Feuil2" par exemple.

A droite, c'est le nom renomable, et à gauche c'est l'identité, le numéro source, la codification de la feuille.

[Un Internaute]

Bonjour,

Qu'entends tu par "triturer" ?
Les feuilles sont renomables, mais il n'y aura qu'une seule "Feuil1", qui peut s'appeler "Feuil2" par exemple.

A droite, c'est le nom renomable, et à gauche c'est l'identité, le numéro source, la codification de la feuille.

Bonjour Stanler,
Oui c'est ça le nom renommable (droite) ne correspond pas à celui des onglets.
Merci à toi
Cordialement

[Stanler]

Dans les codes, on voit souvent

Code :

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

Sheets("Feuil1") ' Fait référence à la feuille qui a un nom renomable "Feuil1"

alors que l'on peut également écrire :

Code :

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

Sheets(1) ' Fait référence à la feuille qui a la codification 1.

.
Tu souhaiterais trier les feuilles autrement, c'est cela ?

[kiki29]

Salut, l'utilisation du CodeName permet de déplacer, renommer des feuilles sans avoir à retoucher au code VBA.

[Un Internaute]

Bonjour Stanler & kiki29,

J'ai trouvé ça sur le forum et ça fait ce que je veux.

Code :

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

1
2
3
4
5
6
7
Sub RenumeroterFeuillesVba()
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "Feuil" & I + 1
I = I + 1
Next ws
End Sub

Merci à vous deux et bonne fin de journée
Bien cordialement