Autres Colorer l'onglet active

[chaelie2015]

Bonjour
je souhaite colorer l'onglet active après avoir le renommer.

Sub nom_onglet()
ActiveSheet.Name = Range("C2")
........
End Sub

Salutations

 

[ChTi160]

bonsoir chaelie2015

qu'entends tu ?
par :

colorer l'onglet active

est ce

 ActiveWorkbook.Worksheet("xxxx").Tab.Color = vbRed

une procédure pour imager lol

Private Sub CommandButton4_Click()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets.Add
With Ws
   .Name = "xxxxx"
   .Tab.Color = vbRed
End With
End Sub

jean marie

 

[chaelie2015]

bonsoir chaelie2015

qu'entends tu ?
par :
est ce

 ActiveWorkbook.Worksheet("xxxx").Tab.Color = vbRed

jean marie

Bonjour jean marie
j'ai crée un code pour renommer la feuille selon la valeur de la cellule C2 ( Code ci dessus)
je souhaite le compléter par un code qui colore le nom de l’onglet

 

[ChTi160]

Re donc c'est sur la propriété tab de la feuille qu'il faut agir.
As tu testé ?
Jean marie

 

[chaelie2015]

Re
Sub nom_onglet()
ActiveSheet.Name = Range("C2")

With ActiveWorkbook.ActiveSheet.Tab
.Color = 192
.TintAndShade = 0
End With
End Sub
merci

 

[ChTi160]

Re
Ok super
voir aussi ex : #2
jean marie

 

[chaelie2015]

Re
Ok super
voir aussi ex : #2
jean marie

Re
merci d'avoir donnée l'idée.
Bonne fin journée