Discussion :

[foughaa01]

Je souhaite avoir un code VBA qui affecte des nom defferents a plusieur feuilles Excel, Merci d'avance pour votre Aide

[Pierre Fauconnier]

Bonjour

Il faut préciser si tu souhaites attribuer un nom d'onglet (Excel) ou si tu veux modifier le nom VBA d'une feuille.

Pour le nom d'onglet, tu as la propriété Name des objets Worksheet et Graph. Pour le nom vba de l'objet, tu peux utiliser la propriété [_CodeName]...

Voici un code qui utilise un objet de type Worksheet pour pointer vers une feuille, en modifier le nom d'onglet et le nom VBA.

Code :

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

1
2
3
4
5
  Dim ws As Worksheet
 
  Set ws = Worksheets("feuil3")
  ws.Name = "Test" ' Nom de l'onglet Excel
  ws.[_CodeName] = "ws_Test" ' Nom de l'objet VBA dans l'arborescence du projet

[foughaa01]

Bonjour,
merci pour votre reponse mon ami, mais ça je le sais , ce que je veux c'est un code generale qui affecte pour chaque onglet un nom, c'est à dire je veux creer un nombre (n) d'onglet on utilisant une boucle au même chaque onglet lui affecte un non qui est dejas déclaré au debut de la macro,


quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
Dim m As Integer
 
 ici je veux declarer une liste de noms qu'ils seront affectés aux dix onglet qu'ils seront ajoutés
mais je ne sais pas comment declarer une liste de noms pour une variable
 
For m = 1 To 10
 
 
Sheets.Add
 
ActiveSheet.Select
 
ActiveSheet.Name = 
Next m
 
End Sub`

[mercatog]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim m As Byte
Dim TabloNoms
TabloNoms = Array("Nom1", "Nom2", "Nom3")  'tu peux ajouter les noms que tu veux
For m = LBound(TabloNoms) To UBound(TabloNoms)
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = TabloNoms(m)
Next m
End Sub

[foughaa01]

Bonjour,
Merci beaucoup pour toi mercatog c'est ça ce que je veux