Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (vba) changer la couleur des onglets

(vba) changer la couleur des onglets

5 réponses
Avatar
j-pascal
Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la procédure
suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm yy"))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
A adapter selon la couleur voulue :
Sheets(x + 1).Tab.ColorIndex = 4
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:

Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la
procédure suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm yy"))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP


Avatar
JB
Bonsoir,

Nouvelle_Année = 2007
i = ActiveSheet.Index
For x = 4 To 8
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm
yy"))
coul = (Sheets(x + 1).Tab.ColorIndex) Mod 55
Sheets(x + 1).Tab.ColorIndex = coul + 1
Next

JB


On 12 sep, 21:00, "j-pascal" wrote:
Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la proc édure
suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm yy "))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP


Avatar
JB
Sub essai()
Nouvelle_Année = 2007
i = ActiveSheet.Index
For x = 4 To 8
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmmyy
"))
coul = (Sheets(x + 1).Tab.ColorIndex) Mod 55
If coul < 0 Then coul = 0
Sheets(x + 1).Tab.ColorIndex = coul + 1
Next
End Sub

http://cjoint.com/?jmvCykiUfZ


JB

On 12 sep, 21:22, JB wrote:
Bonsoir,

Nouvelle_Année = 2007
i = ActiveSheet.Index
For x = 4 To 8
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm
yy"))
coul = (Sheets(x + 1).Tab.ColorIndex) Mod 55
Sheets(x + 1).Tab.ColorIndex = coul + 1
Next

JB

On 12 sep, 21:00, "j-pascal" wrote:



Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la pr océdure
suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm yy"))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
j-pascal
Bonsoir Daniel,

Merci !

JP
"Daniel.C" a écrit dans le message de news:

Bonsoir.
A adapter selon la couleur voulue :
Sheets(x + 1).Tab.ColorIndex = 4
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:

Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la
procédure suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name =
Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm
yy"))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP






Avatar
j-pascal
Bonsoir,

Merci, c'est vraiment parfait !
Esthétique, mais aussi très pratique pour l'utilisateur...

JP

"JB" a écrit dans le message de news:


Sub essai()
Nouvelle_Année = 2007
i = ActiveSheet.Index
For x = 4 To 8
Sheets(x + 1).Name Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmmyy
"))
coul = (Sheets(x + 1).Tab.ColorIndex) Mod 55
If coul < 0 Then coul = 0
Sheets(x + 1).Tab.ColorIndex = coul + 1
Next
End Sub

http://cjoint.com/?jmvCykiUfZ


JB

On 12 sep, 21:22, JB wrote:
Bonsoir,

Nouvelle_Année = 2007
i = ActiveSheet.Index
For x = 4 To 8
Sheets(x + 1).Name > Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm
yy"))
coul = (Sheets(x + 1).Tab.ColorIndex) Mod 55
Sheets(x + 1).Tab.ColorIndex = coul + 1
Next

JB

On 12 sep, 21:00, "j-pascal" wrote:



Bonsoir,

Est-il possible de modifier la couleur de l'onglet au moment où la
procédure
suivante s'exécute :
(Imaginons que les onglets sont bleus et deviennent jaunes au fur et à
mesure que leurs noms changent ...)

'------------------------------
Nouvelle_Année = Range("A1")
i = ActiveSheet.Index
For x = 4 To 15
Sheets(x + 1).Name > > Application.Proper(Format(DateSerial(Nouvelle_Année, x - 3, 1), "mmm
yy"))
Next
'------------------------------

?

Merci d'avance pour vos lumières,

--
Cordialement @+
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -