Discussion :

[kristoch91]

Bonjour

J'aimerai créer une nouvelle feuille dans un fichier de déjà existant en la nommant.
J'arrive à créer cette feuille mais pas à la nommer ni à mettre de la couleur sur cet onglet de la nouvelle feuille.

j'ai ce code de départ pour ajouter une feuille

Code :

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

Worksheets.Add

Merci de bien vouloi m'aider

[Jean-Pierre49]

Bonjour le forum

En te servant de l’enregistreur tu vas obtenir un code du genre

Code :

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

1
2
3
4
5
6
    Sheets("tata").Select
    Sheets.Add
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "toto"
    Range("C37").Select
    ActiveWorkbook.Sheets("toto").Tab.ColorIndex = 3

Après nettoyage

Code :

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

1
2
3
    Sheets.Add
    ActiveSheet.Name = "Toto"
    ActiveSheet.Tab.ColorIndex = 3 ' pour le rouge

Bon courage

[kristoch91]

Comment je peux avoir les autres indices poru les couleurs?

[Jean-Pierre49]

toujour avec l'enregistreur

[fring]

Comment je peux avoir les autres indices poru les couleurs?

Bonjour,

Exécute ce petit code dans un nouveau classeur, tu auras toutes les couleurs de remplissage avec leurs index correspondants

Code :

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

1
2
3
4
5
6
7
8
Sub couleurs()
Dim i As Byte
 
For i = 1 To 56
    Cells(i, 1).Interior.ColorIndex = i
    Cells(i, 2) = i
Next
End Sub

Cdlt