Renommer une feuille sur excel en vba

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2021

• #2

Bonsoir.
Comme pour la pulpart des collections Excel, la méthode Add de la collection Worksheets renvoie un objet Worksheet représentant la feuille ajoutée. Il suffit donc de penser à le récuperer soit par un Set dans une variable soit comme expression d'un With afin de changer sa propriété .Name.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #3

Bonsoir Famille voici un fichier exemple
J'ai besoin de votre aide pour pouvoir configurer le bouton RENOMMER UNE FEUILLE afin de renommer une feuille sans afficher Excel
Le nom de la feuille renommée doit être copié dans la colonne "F" de la feuille "LISTE"
Lors de l'afficharge d'excel par le bouton EXCEL ON seule la feuille COPIE doit être affichée le reste doit être masquée

 

Pièces jointes

• RENOMMER.xlsb

  256.6 KB · Affichages: 15

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #4

Veuillez joindre un classeur débarrassé de toutes ces dispositions idiotes de protection du projet VBA et d'application non affichée …

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #5

VOICI LE FICHIER

 

Pièces jointes

• RENOMMER.xlsb

  256.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #6

Ça ne va toujours pas. Le classeur se ferme toujours aussitôt quoi que j'essaie de faire.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #7

Je crois que je ne vais pas intervenir plus longtemps. Pas la peine de joindre un autre fichier.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #8

Cliquer sur le bouton EXCEL ON qui se trouve en bas a gauche

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #9

voici le fichier

 

Pièces jointes

• RENOMMER.xlsb

  256.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #10

À quel endroit du code essayez vous de créer une feuille ?

Ah, par Copy seulement ? Et ActiveSheet.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1 derrière ne marche pas ?

 

Dernière édition: 12 Janvier 2021

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #11

apres l'ouverture clique sur la partie entouré pour afficher excel

 

Pièces jointes

• Capture.JPG

  51 KB · Affichages: 6

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #12

ça marche mais ça ne renomme pas
on met seulement 1 2 3 ….

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #13

Quand je clique sur "Créer une feuille", ça m'ajoute chaque fois une nommée "1", "2" etc.
Et je ne peux toujours pas fermer l'UserForm sans que ça me ferme le classeur. Agacent, ça !

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #14

Ok je viens de mettre un bouton Fermer

 

Pièces jointes

• RENOMMER.xlsb

  261.9 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #15

C'est mieux. Mais il n'y a pas de Private Sub Label45_Click() pour renommer une feuille.
Vous devriez mettre des noms mnémoniques aux contrôles pour pouvoir s'y retrouver plus facilement.
Personnellement je les fais précéder d'un trigramme pris de cette liste :

 

Vote positif 0 Vote négatif