Autres Colorer l'onglet active

ChTi160

XLDnaute Barbatruc

• 20 Juillet 2020

• #2

bonsoir chaelie2015

qu'entends tu ?
par :

colorer l'onglet active

Cliquez pour agrandir...

est ce

VB:

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

une procédure pour imager lol

VB:

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

 

Dernière édition: 20 Juillet 2020

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Juillet 2020

• #3

ChTi160 à dit:

bonsoir chaelie2015

qu'entends tu ?
par :
est ce

VB:

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

jean marie

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juillet 2020

• #4

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Juillet 2020

• #5

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

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juillet 2020

• #6

Re
Ok super
voir aussi ex : #2
jean marie

 

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 20 Juillet 2020

• #7

ChTi160 à dit:

Re
Ok super
voir aussi ex : #2
jean marie

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif