Discussion :

[canary]

Bonjour,

J'aimerai créer un onglet qui porte le nom de la cellule A1, et qu'en plus cet onglet soit de couleur rouge.

Voici ce que je sais faire :

Code :

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

1
2
3
4
5
6
 
'Cree un nouvel onglet avec le NOM du client
ActiveSheet.Name = "NOMclient"
 
'Onglet de la couleur du client
Sheets("NOMclient").Tab.Color = RGB(255, 0, 0)

Pourriez-vous m'aider svp pour changer "NOMclient" par le nom contenu dans la cellule A1 ?

Merci par avance !

[Philippe Tulliez]

Bonjour,

Code :

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

1
2
3
4
 With ActiveSheet
 .Name = Range("A1")
 .Tab.Color = RGB(255, 0, 0)
 End With

[EDIT]
Ou si la cellule A1 se trouve sur une autre feuille

Code :

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

1
2
3
4
 With ActiveSheet
 .Name = Worksheets("Feuil2").Range("A1")
 .Tab.Color = RGB(255, 0, 0)
 End With

[canary]

Merci beaucoup!
Très utile cette fonction "With" pour ne pas répéter les éléments