Renommer une feuille sur excel en vba

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #31

ok donc le nouveau code deviens ceci?
Sub Nouvel_onglet()
Feuil2.Copy After:=Feuil2
Feuil2.Name = Val(Sheets(Feuil2.Index - 1).Name) + 1
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #32

Non, après le Copy c'est bien toujours la nouvelle feuille qui est active donc la ActiveSheet qu'il faut renommer. Et je croyais qu'on y mettait un nom donné par InputBox ? …

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #33

ok faut voir ceci
Sub Nouvel_onglet()
Feuil2.Copy After:=ActiveSheet
Feuil2.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #34

C'est surtout l'instruction après qu'il faut remplacer par celle de mon poste #21
Et probablement faire suivre par celle du #23

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #35

Le nom de la feuille a copier est sh_copie
quel sera le nouveau code dans Sub Nouvel_onglet()

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #36

Ce que vous dites n'est pas clair. sh_copie est il le nom d'une feuille ou d'un objet Worksheet qui la représente ?
Moi je proposais de tout faire dans la Sub Nouvel_onglet :

VB:

Sub Nouvel_onglet()
   Feuil2.Copy
   ActiveSheet.Name = IntputBox("Nom de la feuille créée ?")
   Feuil2.[F1000000].End(xlUp)(2).Value = ActiveSheet.Name
   End Sub

Mais je trouve bizarre que la feuille modèle à copier soit aussi celle qui contient la liste des feuilles.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #37

C'est le Worksheet que j'ai nommé sh_copie
la feuille a copier est la feuille bancaire (sh_copie)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #38

Joignez le classeur que je puisse vérifier ce que vous dites.
Je ne suis pas sûr que vous ayez bien compris en quoi consiste un objet VBA de type Worksheet. J'ai toujours l'impression que vous confondez son nom avec celui de la feuille Excel dont il assume la représentation vis à vis de VBA.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #39

OK compris je vous envoi le fichier

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #40

voici le fichier ci-joint
c'est la feuille BANCAIRE qui doit être copiée

 

Pièces jointes

• RENOMMER.xlsb

  262.1 KB · Affichages: 15

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #41

OuI c'est bien l'objet Worksheet qui s'appelle comme ça. Mais je déconseille le '_' dans les identifiants cal il sert de séparateur dans les noms des procédures de prise en charge d'évènements entre le nom de l'objet et le nom de l'évènement.
Alors :

VB:

Private Sub Label44_Click()
Sh_Copie.Copy After:=ActiveSheet
ActiveSheet.Name = InputBox("Nom de la feuille créée")
Feuil2.[F1000000].End(xlUp)(2).Value = ActiveSheet.Name
End Sub

Une seconde procédure pour renommer une feuille me semble inutile et on ne saurait pas forcément quelle feuille est à renommer.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #42

Merci bien ça marche bien
Bonne soiree a vous

 

Vote positif 0 Vote négatif