Renommer une feuille sur excel en vba

[SUCCES20]

Bonsoir famille


J'aimerai juste savoir comment faire pour renommer les feuilles après création des feuilles avec un code VBA

merci et bonne soirée a vous

 

[SUCCES20]

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

 

[Dranreb]

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

 

[SUCCES20]

ok compris donc aider moi svp

 

[Dranreb]

Ç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 …

 

[SUCCES20]

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

 

[Dranreb]

Alors mettez :

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

 

[SUCCES20]

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"

 

[Dranreb]

Ajoutez encore :

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

 

[SUCCES20]

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

 

[Dranreb]

Dans ThisWorkbook :

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

 

[SUCCES20]

Merci infiniment mon probleme est resolu
grand merci a vous

 

[SUCCES20]

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

 

[Dranreb]

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

 

[SUCCES20]

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

 

[Dranreb]

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.