(vba) changer la couleur des onglets

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #4748001
Bonsoir.
A adapter selon la couleur voulue :
Sheets(x + 1).Tab.ColorIndex = 4
Cordialement.
Daniel
"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


JB
Le #4747981
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"
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


JB
Le #4747961
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
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"


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 -



j-pascal
Le #4698521
Bonsoir Daniel,

Merci !

JP
"Daniel.C"
Bonsoir.
A adapter selon la couleur voulue :
Sheets(x + 1).Tab.ColorIndex = 4
Cordialement.
Daniel
"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






j-pascal
Le #4698511
Bonsoir,

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

JP

"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
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"


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 -



Publicité
Poster une réponse
Anonyme