Renommer une feuille sur excel en vba

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #16

Oui c'est a cela que je demande de l'aide car je connai pas le code pour renommer

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #17

Ça consiste simplement à attribuer une expression String à la propriété Name de l'objet Worksheet qui représente la feuille.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #18

ok compris donc aider moi svp

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #19

Ça implique de savoir quelle feuille est à renommer et quel nom on veut lui attribuer.
Pour renommer "Toto" la feuille active c'est ActiveSheet.Name = "Toto". Encore que ça peut planter s'il en existe déjà une de ce nom …

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #20

La feuille a renommer sera celle créée avec le bouton créer une feuille et le nom n'est pas fixe
cela dependra de l'operation a effectuer
c'est-a-dire a la place des 1 2 3 …. on doit me proposer de saisir moi meme le nom de la feuille que je veux

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #21

Alors mettez :

VB:

ActiveSheet.Name = InputBox("Nom de la feuille créée")

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #22

Ok super c'est exatement ce que je voulais merci bien
Mais j'aimerai que Le nom de la feuille renommée soit copié dans la colonne "F" de la feuille "LISTE"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #23

Ajoutez encore :

VB:

Feuil2.[F1000000].End(xlUp)(2).Value = ActiveSheet.Name

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #24

Grand merci a vous
la derniere j'aimerai qu'a l'ouverture toute les feuilles soit masqué (xlsheetveryhidden) sauf la feuille acceuil

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Janvier 2021

• #25

Dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
   Dim Wsh As Worksheet
   For Each Wsh In Me.Worksheets
      If Wsh.Name <> "Accueil" Then Wsh.Visible = xlSheetVeryHidden
      Next Wsh
   End Sub

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 12 Janvier 2021

• #26

Merci infiniment mon probleme est resolu
grand merci a vous

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #27

Sub Nouvel_onglet()
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1
End Sub

Bonjour M.Dranreb
Je viens vers vous encore ce matin
Ce code me permet de copier la feuille active pourtant je voulait copier une feuille fixe
c'est-a-dire que chaque fois que je clique sur créer une feuille c'est cette feuille ("BANCAIRE") uniquement qui doit être copier et non la feuille active

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #28

Bonjour.
Eh bien au lieu du 1er Activesheet mettez le nom de l'objet Worksheet qui représente cette feuille.

 

Vote positif 0 Vote négatif

S

SUCCES20

XLDnaute Nouveau

• 13 Janvier 2021

• #29

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #30

Non. Vous trouvez les noms des objets Worksheet dans la rubrique Microsoft Excel Objets du projet VBA dans l'explorateur de projet. Le nom des feuilles qu'ils représentent est rappelé entre parenthèses derrière chacun.
Personnellement je leur redonne toujours un nom mnémonique commençant par Wsh. Mais beaucoup laissent les Feuil1, Feuil2 etc d'origine qui ne veulent rien dire.

 

Vote positif 0 Vote négatif